From: Glenn Morris Date: Wed, 1 Oct 2008 07:00:10 +0000 (+0000) Subject: (filesets-menu-name): Fix type. X-Git-Tag: emacs-pretest-23.0.90~2696 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6efb94fc96bd92ef3ffa27d9f02b0b5ab47a2aee;p=emacs.git (filesets-menu-name): Fix type. (filesets-menu-path, filesets-menu-before): Fix types. Change defaults to be consistent with recentf. (Bug#1056) --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3ec18dcb279..9df2c8a01a0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-10-01 Glenn Morris + + * filesets.el (filesets-menu-name): Fix type. + (filesets-menu-path, filesets-menu-before): Fix types. + Change defaults to be consistent with recentf. (Bug#1056) + 2008-09-30 Stefan Monnier * term/xterm.el (xterm-turn-on-modify-other-keys) diff --git a/lisp/filesets.el b/lisp/filesets.el index b3b021d5695..6395caaa483 100644 --- a/lisp/filesets.el +++ b/lisp/filesets.el @@ -307,21 +307,25 @@ SYM to VAL and return t. If INIT-FLAG is non-nil, set with (defcustom filesets-menu-name "Filesets" "Filesets' menu name." :set (function filesets-set-default) - :type 'sexp + :type 'string :group 'filesets) -(defcustom filesets-menu-path nil +(defcustom filesets-menu-path '("File") ; cf recentf-menu-path "The menu under which the filesets menu should be inserted. See `add-submenu' for documentation." :set (function filesets-set-default) - :type 'sexp + :type '(choice (const :tag "Top Level" nil) + (sexp :tag "Menu Path")) + :version "23.1" ; was nil :group 'filesets) -(defcustom filesets-menu-before "File" +(defcustom filesets-menu-before "Open File..." ; cf recentf-menu-before "The name of a menu before which this menu should be added. See `add-submenu' for documentation." :set (function filesets-set-default) - :type 'sexp + :type '(choice (string :tag "Name") + (const :tag "Last" nil)) + :version "23.1" ; was "File" :group 'filesets) (defcustom filesets-menu-in-menu nil