[Emacs-diffs] /srv/bzr/emacs/trunk r99538: subr.el (remove-yank-excluded-properties): Explain in a comment why `category'

[Eli Zaretskii]

------------------------------------------------------------
revno: 99538
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Sat 2010-02-20 10:59:16 +0200
message:
   subr.el (remove-yank-excluded-properties): Explain in a comment why 
`category'
   property is removed.
modified:
  lisp/ChangeLog
  lisp/subr.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-02-19 21:36:29 +0000
+++ b/lisp/ChangeLog    2010-02-20 08:59:16 +0000
@@ -1,3 +1,8 @@
+2010-02-20  Eli Zaretskii  <address@hidden>
+
+       * subr.el (remove-yank-excluded-properties): Explain in a comment
+       why `category' property is removed.
+
 2010-02-19  Chong Yidong  <address@hidden>
 
        * isearch.el (isearch-update-post-hook, isearch-update): Revert

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2010-02-11 19:37:11 +0000
+++ b/lisp/subr.el      2010-02-20 08:59:16 +0000
@@ -2442,7 +2442,11 @@
   "Remove `yank-excluded-properties' between START and END positions.
 Replaces `category' properties with their defined properties."
   (let ((inhibit-read-only t))
-    ;; Replace any `category' property with the properties it stands for.
+    ;; Replace any `category' property with the properties it stands
+    ;; for.  This is to remove `mouse-face' properties that are placed
+    ;; on categories in *Help* buffers' buttons.  See
+    ;; http://lists.gnu.org/archive/html/emacs-devel/2002-04/msg00648.html
+    ;; for the details.
     (unless (memq yank-excluded-properties '(t nil))
       (save-excursion
        (goto-char start)