diff options
| author | Chong Yidong | 2006-09-03 14:13:37 +0000 |
|---|---|---|
| committer | Chong Yidong | 2006-09-03 14:13:37 +0000 |
| commit | b1674d6103add2a26b00766f09600ced9a0f2c4b (patch) | |
| tree | 5f0daee37c9cf562f1524f3e849ca7b17ea96f82 | |
| parent | 35f111baba762a476b303076a848a335d1ac2f85 (diff) | |
| download | emacs-b1674d6103add2a26b00766f09600ced9a0f2c4b.tar.gz emacs-b1674d6103add2a26b00766f09600ced9a0f2c4b.zip | |
* cus-edit.el (custom-group-menu-create): Avoid deactivating the
mark after running the menu filter.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/cus-edit.el | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cd606e8f4da..8712304b363 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2006-09-03 Chong Yidong <cyd@stupidchicken.com> | ||
| 2 | |||
| 3 | * cus-edit.el (custom-group-menu-create): Avoid deactivating the | ||
| 4 | mark after running the menu filter. | ||
| 5 | |||
| 1 | 2006-09-03 Juri Linkov <juri@jurta.org> | 6 | 2006-09-03 Juri Linkov <juri@jurta.org> |
| 2 | 7 | ||
| 3 | * international/quail.el (quail-defrule-internal): Add a check | 8 | * international/quail.el (quail-defrule-internal): Add a check |
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index e3c92d59b00..c31e319f798 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -4395,7 +4395,8 @@ This function does not save the buffer." | |||
| 4395 | "Ignoring WIDGET, create a menu entry for customization group SYMBOL." | 4395 | "Ignoring WIDGET, create a menu entry for customization group SYMBOL." |
| 4396 | `( ,(custom-unlispify-menu-entry symbol t) | 4396 | `( ,(custom-unlispify-menu-entry symbol t) |
| 4397 | :filter (lambda (&rest junk) | 4397 | :filter (lambda (&rest junk) |
| 4398 | (let ((menu (custom-menu-create ',symbol))) | 4398 | (let* ((deactivate-mark nil) |
| 4399 | (menu (custom-menu-create ',symbol))) | ||
| 4399 | (if (consp menu) (cdr menu) menu))))) | 4400 | (if (consp menu) (cdr menu) menu))))) |
| 4400 | 4401 | ||
| 4401 | ;;;###autoload | 4402 | ;;;###autoload |