# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1418702151 -32400
# Node ID 111e7a3094e810adc769bddef233599f6fadc1e6
# Parent  d9c547265e6ee7e01c5c28e4d7e3b7d50bd67880
Force doclip at dnd

diff -r d9c547265e6e -r 111e7a3094e8 yatexadd.el
--- 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)))))