changeset 72629:b09d9bab1859

* cus-edit.el (custom-group-menu-create): Avoid deactivating the mark after running the menu filter.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 03 Sep 2006 14:13:37 +0000
parents 62dbeb7871a2
children b6dcd16cf78c
files lisp/ChangeLog lisp/cus-edit.el
diffstat 2 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sun Sep 03 14:01:01 2006 +0000
+++ b/lisp/ChangeLog	Sun Sep 03 14:13:37 2006 +0000
@@ -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
--- a/lisp/cus-edit.el	Sun Sep 03 14:01:01 2006 +0000
+++ b/lisp/cus-edit.el	Sun Sep 03 14:13:37 2006 +0000
@@ -4395,7 +4395,8 @@
   "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