diff options
| author | Eli Zaretskii | 2010-02-20 10:59:16 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2010-02-20 10:59:16 +0200 |
| commit | 0f00e9485d96c308b126553bd1b90ce4e64f1a1d (patch) | |
| tree | 79458a83a4a325323e8f3bb817d4274e28202846 | |
| parent | 3513efb2b574346664d73bf3027aa12c4f11a830 (diff) | |
| download | emacs-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/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/subr.el | 6 |
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 @@ | |||
| 1 | 2010-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 | |||
| 1 | 2010-02-19 Chong Yidong <cyd@stupidchicken.com> | 6 | 2010-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. |
| 2443 | Replaces `category' properties with their defined properties." | 2443 | Replaces `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) |