[Emacs-diffs] Changes to emacs/lisp/cus-edit.el,v

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       06/09/08 11:57:05

Index: cus-edit.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/cus-edit.el,v
retrieving revision 1.302
retrieving revision 1.303
diff -u -b -r1.302 -r1.303
--- cus-edit.el 3 Sep 2006 14:13:37 -0000       1.302
+++ cus-edit.el 8 Sep 2006 11:57:05 -0000       1.303
@@ -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))