Mercurial > emacs

changeset 72715:b51738f67f62

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(custom-menu-create): Bind deactivate-mark here (custom-group-menu-create): Not here.
author Richard M. Stallman <rms@gnu.org>
date Fri, 08 Sep 2006 11:57:05 +0000
parents 12e823cb535e
children 28b70fec3284
files lisp/cus-edit.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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))