(yank-excluded-properties): Added help-echo to list.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 978df486701118abc60eee63519ebee2e48168e5..06a73d25b2885460e2c891cd810c6364474f6aaa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2002-04-29  Kim F. Storm  <storm@cua.dk>
+
+       * subr.el (remove-yank-excluded-properties): New helper function.
+       (insert-for-yank, insert-buffer-substring-as-yank): Use it.
+
+       * simple.el (yank-excluded-properties): Added help-echo to list.
+
 2002-04-29  Glenn Morris  <gmorris@ast.cam.ac.uk>
 
        * autoinsert.el (auto-insert-directory): Doc fix. 

diff --git a/lisp/simple.el b/lisp/simple.el
index 09acf9b86ff0942c70e3bd4ba5071babbd1e04ef..ce19c413482458f2f6e691d567a9fde443c179dc 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1901,7 +1901,7 @@ The argument is used for internal purposes; do not supply one."
 
 ;; This is actually used in subr.el but defcustom does not work there.
 (defcustom yank-excluded-properties
-  '(read-only invisible intangible field mouse-face local-map keymap)
+  '(read-only invisible intangible field mouse-face help-echo local-map keymap)
   "*Text properties to discard when yanking."
   :type '(choice (const :tag "All" t) (repeat symbol))
   :group 'editing