From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 8 Sep 2006 11:57:05 +0000 (+0000)
Subject: (custom-menu-create): Bind deactivate-mark here
X-Git-Tag: emacs-pretest-22.0.90~700
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=809f0c3561c74499b70206dba00c57e7cf400c6e;p=emacs.git

(custom-menu-create): Bind deactivate-mark here
(custom-group-menu-create): Not here.
---

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index c31e319f798..c3625947b7b 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -4395,15 +4395,15 @@ 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* ((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))