diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-10-01 07:00:10 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-10-01 07:00:10 +0000 |
| commit | 6efb94fc96bd92ef3ffa27d9f02b0b5ab47a2aee (patch) | |
| tree | 7d8ef43675c943ba2fc5cd2eee1912ec35543640 | |
| parent | 7335e376376cc04d61ee7646de5163dd7efb6a4e (diff) | |
| download | emacs-6efb94fc96bd92ef3ffa27d9f02b0b5ab47a2aee.tar.gz | |
(filesets-menu-name): Fix type.
(filesets-menu-path, filesets-menu-before): Fix types.
Change defaults to be consistent with recentf. (Bug#1056)
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/filesets.el | 14 |
2 files changed, 15 insertions, 5 deletions
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 <rgm@gnu.org> + + * 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 <monnier@iro.umontreal.ca> * 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 |