Mercurial > hgrepos > hgweb.cgi > yatex

changeset 332:111e7a3094e8 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 wrap: on
line diff
--- a/yatexadd.el	Tue Dec 16 11:31:45 2014 +0900
+++ b/yatexadd.el	Tue Dec 16 12:55:51 2014 +0900
@@ -1,7 +1,7 @@
 ;;; yatexadd.el --- YaTeX add-in functions
 ;;; yatexadd.el rev.20
 ;;; (c)1991-2014 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Tue Dec 16 09:45:09 2014 on firestorm
+;;; Last modified Tue Dec 16 12:54:54 2014 on firestorm
 ;;; $Id$
 
 ;;; Code:
@@ -1975,6 +1975,7 @@
 		      (prog2
 			  (message "Insert `%s'?  Y)es N)o C)yes+`clip': " bb)
 			  (memq (setq c (read-char)) '(?y ?Y ?\  ?c ?C))
+			(setq doclip (memq c '(?c ?C)))
 			(message ""))))
 	     (goto-char (match-end 0))
 	     (message "`bb=' %s"
@@ -1988,7 +1989,7 @@
 	       (insert-before-markers "[")
 	       (setq needclose t))
 	     (insert-before-markers bb)
-	     (if (memq c '(?c ?C)) (insert-before-markers ",clip"))
+	     (if doclip (insert-before-markers ",clip"))
 	     (if needclose (insert-before-markers "]")
 	       (or (looking-at "\\]") (insert-before-markers ","))))
 	    (t (YaTeX-push-to-kill-ring bb)))))

yatex.org