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)))))