# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1157716625 0
# Node ID b51738f67f622351ca20b460f440b1964e65a059
# Parent  12e823cb535e59e96f24f6c113880c5f0561e158
(custom-menu-create): Bind deactivate-mark here
(custom-group-menu-create): Not here.

diff -r 12e823cb535e -r b51738f67f62 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Fri Sep 08 11:46:42 2006 +0000
+++ b/lisp/cus-edit.el	Fri Sep 08 11:57:05 2006 +0000
@@ -4395,15 +4395,15 @@
   "Ignoring WIDGET, create a menu entry for customization group SYMBOL."
   `( ,(custom-unlispify-menu-entry symbol t)
      :filter (lambda (&rest junk)
-	       (let* ((deactivate-mark nil)
-		      (menu (custom-menu-create ',symbol)))
+	       (let* ((menu (custom-menu-create ',symbol)))
 		 (if (consp menu) (cdr menu) menu)))))
 
 ;;;###autoload
 (defun custom-menu-create (symbol)
   "Create menu for customization group SYMBOL.
 The menu is in a format applicable to `easy-menu-define'."
-  (let* ((item (vector (custom-unlispify-menu-entry symbol)
+  (let* ((deactivate-mark nil)
+	 (item (vector (custom-unlispify-menu-entry symbol)
 		       `(customize-group ',symbol)
 		       t)))
     (if (and (or (not (boundp 'custom-menu-nesting))