changeset 49318:63a122cc4286

(insert-for-yank): Set yank-undo-function after calling FUNCTION, unless it was set by FUNCTION (in case FUNCTION calls insert-for-yank).
author Kim F. Storm <storm@cua.dk>
date Sun, 19 Jan 2003 01:07:34 +0000
parents fbf08a4a2767
children b598dfcf2ce7
files lisp/subr.el
diffstat 1 files changed, 11 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/subr.el	Sun Jan 19 00:42:46 2003 +0000
+++ b/lisp/subr.el	Sun Jan 19 01:07:34 2003 +0000
@@ -1486,18 +1486,20 @@
  after calling FUNCTION (or insert).  Note that setting `this-command'
  to a value different from `yank' will prevent `yank-pop' from undoing
  this yank."
-  (let* ((method (get-text-property 0 'yank-handler string))
-	 (param (or (nth 1 method) string))
+  (let* ((handler (and (stringp string)
+		       (get-text-property 0 'yank-handler string)))
+	 (param (or (nth 1 handler) string))
 	 (opoint (point)))
-    (setq yank-undo-function (nth 3 method)) ;; UNDO
-    (if (nth 0 method) ;; FUNCTION
-	(funcall (car method) param)
-      (setq opoint (point))
+    (setq yank-undo-function t)
+    (if (nth 0 handler) ;; FUNCTION
+	(funcall (car handler) param)
       (insert param))
-    (unless (nth 2 method) ;; NOEXCLUDE
+    (unless (nth 2 handler) ;; NOEXCLUDE
       (remove-yank-excluded-properties opoint (point)))
-    (if (nth 4 method) ;; COMMAND
-	(setq this-command (nth 4 method)))))
+    (if (eq yank-undo-function t)  ;; not set by FUNCTION
+	(setq yank-undo-function (nth 3 handler))) ;; UNDO
+    (if (nth 4 handler) ;; COMMAND
+	(setq this-command (nth 4 handler)))))
     
 (defun insert-buffer-substring-no-properties (buf &optional start end)
   "Insert before point a substring of buffer BUFFER, without text properties.