aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChong Yidong2006-09-03 14:13:37 +0000
committerChong Yidong2006-09-03 14:13:37 +0000
commitb1674d6103add2a26b00766f09600ced9a0f2c4b (patch)
tree5f0daee37c9cf562f1524f3e849ca7b17ea96f82
parent35f111baba762a476b303076a848a335d1ac2f85 (diff)
downloademacs-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/ChangeLog5
-rw-r--r--lisp/cus-edit.el3
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 @@
12006-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
12006-09-03 Juri Linkov <juri@jurta.org> 62006-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