aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2010-02-20 10:59:16 +0200
committerEli Zaretskii2010-02-20 10:59:16 +0200
commit0f00e9485d96c308b126553bd1b90ce4e64f1a1d (patch)
tree79458a83a4a325323e8f3bb817d4274e28202846
parent3513efb2b574346664d73bf3027aa12c4f11a830 (diff)
downloademacs-0f00e9485d96c308b126553bd1b90ce4e64f1a1d.tar.gz
emacs-0f00e9485d96c308b126553bd1b90ce4e64f1a1d.zip
subr.el (remove-yank-excluded-properties): Explain in a comment why `category'
property is removed.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/subr.el6
2 files changed, 10 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5d2c0d87b03..5613793edff 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12010-02-20 Eli Zaretskii <eliz@gnu.org>
2
3 * subr.el (remove-yank-excluded-properties): Explain in a comment
4 why `category' property is removed.
5
12010-02-19 Chong Yidong <cyd@stupidchicken.com> 62010-02-19 Chong Yidong <cyd@stupidchicken.com>
2 7
3 * isearch.el (isearch-update-post-hook, isearch-update): Revert 8 * isearch.el (isearch-update-post-hook, isearch-update): Revert
diff --git a/lisp/subr.el b/lisp/subr.el
index d2363099b7c..977d5a53f35 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2442,7 +2442,11 @@ Otherwise, return nil."
2442 "Remove `yank-excluded-properties' between START and END positions. 2442 "Remove `yank-excluded-properties' between START and END positions.
2443Replaces `category' properties with their defined properties." 2443Replaces `category' properties with their defined properties."
2444 (let ((inhibit-read-only t)) 2444 (let ((inhibit-read-only t))
2445 ;; Replace any `category' property with the properties it stands for. 2445 ;; Replace any `category' property with the properties it stands
2446 ;; for. This is to remove `mouse-face' properties that are placed
2447 ;; on categories in *Help* buffers' buttons. See
2448 ;; http://lists.gnu.org/archive/html/emacs-devel/2002-04/msg00648.html
2449 ;; for the details.
2446 (unless (memq yank-excluded-properties '(t nil)) 2450 (unless (memq yank-excluded-properties '(t nil))
2447 (save-excursion 2451 (save-excursion
2448 (goto-char start) 2452 (goto-char start)