diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-09-08 11:57:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-09-08 11:57:05 +0000 |
| commit | 809f0c3561c74499b70206dba00c57e7cf400c6e (patch) | |
| tree | 871e60b41c3adeec600a243d0a06e43229232350 | |
| parent | 647b07d1d74e3bd280fd1b12468b49b99be907aa (diff) | |
| download | emacs-809f0c3561c74499b70206dba00c57e7cf400c6e.tar.gz | |
(custom-menu-create): Bind deactivate-mark here
(custom-group-menu-create): Not here.
| -rw-r--r-- | lisp/cus-edit.el | 6 |
1 files changed, 3 insertions, 3 deletions
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)) |