yatex

changeset 332:111e7a3094e8 dev

Force doclip at dnd
author HIROSE Yuuji <yuuji@gentei.org>
date Tue, 16 Dec 2014 12:55:51 +0900
parents d9c547265e6e
children 30a8f68abe0a
files yatexadd.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line diff
     1.1 --- a/yatexadd.el	Tue Dec 16 11:31:45 2014 +0900
     1.2 +++ b/yatexadd.el	Tue Dec 16 12:55:51 2014 +0900
     1.3 @@ -1,7 +1,7 @@
     1.4  ;;; yatexadd.el --- YaTeX add-in functions
     1.5  ;;; yatexadd.el rev.20
     1.6  ;;; (c)1991-2014 by HIROSE Yuuji.[yuuji@yatex.org]
     1.7 -;;; Last modified Tue Dec 16 09:45:09 2014 on firestorm
     1.8 +;;; Last modified Tue Dec 16 12:54:54 2014 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;;; Code:
    1.12 @@ -1975,6 +1975,7 @@
    1.13  		      (prog2
    1.14  			  (message "Insert `%s'?  Y)es N)o C)yes+`clip': " bb)
    1.15  			  (memq (setq c (read-char)) '(?y ?Y ?\  ?c ?C))
    1.16 +			(setq doclip (memq c '(?c ?C)))
    1.17  			(message ""))))
    1.18  	     (goto-char (match-end 0))
    1.19  	     (message "`bb=' %s"
    1.20 @@ -1988,7 +1989,7 @@
    1.21  	       (insert-before-markers "[")
    1.22  	       (setq needclose t))
    1.23  	     (insert-before-markers bb)
    1.24 -	     (if (memq c '(?c ?C)) (insert-before-markers ",clip"))
    1.25 +	     (if doclip (insert-before-markers ",clip"))
    1.26  	     (if needclose (insert-before-markers "]")
    1.27  	       (or (looking-at "\\]") (insert-before-markers ","))))
    1.28  	    (t (YaTeX-push-to-kill-ring bb)))))