* cus-edit.el (custom-group-menu-create): Avoid deactivating the

	mark after running the menu filter.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd606e8f4daedd6b465290bc2d29a39a41b87ed6..8712304b3632b48aedb1c97cda1e337a5b867f99 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-03  Chong Yidong  <cyd@stupidchicken.com>
+
+       * cus-edit.el (custom-group-menu-create): Avoid deactivating the
+       mark after running the menu filter.
+
 2006-09-03  Juri Linkov  <juri@jurta.org>
 
        * international/quail.el (quail-defrule-internal): Add a check

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index e3c92d59b00d32c42022d641b0500de4212f8b3c..c31e319f798c1311c16c908ad1d6a389675d26e5 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -4395,7 +4395,8 @@ This function does not save the buffer."
   "Ignoring WIDGET, create a menu entry for customization group SYMBOL."
   `( ,(custom-unlispify-menu-entry symbol t)
      :filter (lambda (&rest junk)
-              (let ((menu (custom-menu-create ',symbol)))
+              (let* ((deactivate-mark nil)
+                     (menu (custom-menu-create ',symbol)))
                 (if (consp menu) (cdr menu) menu)))))
 
 ;;;###autoload