Mercurial > emacs
comparison lisp/filesets.el @ 98441:38ad371acd1d
(filesets-menu-name): Fix type.
(filesets-menu-path, filesets-menu-before): Fix types.
Change defaults to be consistent with recentf. (Bug#1056)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 01 Oct 2008 06:59:54 +0000 |
| parents | b4faea6c6c00 |
| children | 23878214a628 |
comparison
equal
deleted
inserted
replaced
| 98440:9f489d6f8e69 | 98441:38ad371acd1d |
|---|---|
| 305 :version "22.1") | 305 :version "22.1") |
| 306 | 306 |
| 307 (defcustom filesets-menu-name "Filesets" | 307 (defcustom filesets-menu-name "Filesets" |
| 308 "Filesets' menu name." | 308 "Filesets' menu name." |
| 309 :set (function filesets-set-default) | 309 :set (function filesets-set-default) |
| 310 :type 'sexp | 310 :type 'string |
| 311 :group 'filesets) | 311 :group 'filesets) |
| 312 | 312 |
| 313 (defcustom filesets-menu-path nil | 313 (defcustom filesets-menu-path '("File") ; cf recentf-menu-path |
| 314 "The menu under which the filesets menu should be inserted. | 314 "The menu under which the filesets menu should be inserted. |
| 315 See `add-submenu' for documentation." | 315 See `add-submenu' for documentation." |
| 316 :set (function filesets-set-default) | 316 :set (function filesets-set-default) |
| 317 :type 'sexp | 317 :type '(choice (const :tag "Top Level" nil) |
| 318 (sexp :tag "Menu Path")) | |
| 319 :version "23.1" ; was nil | |
| 318 :group 'filesets) | 320 :group 'filesets) |
| 319 | 321 |
| 320 (defcustom filesets-menu-before "File" | 322 (defcustom filesets-menu-before "Open File..." ; cf recentf-menu-before |
| 321 "The name of a menu before which this menu should be added. | 323 "The name of a menu before which this menu should be added. |
| 322 See `add-submenu' for documentation." | 324 See `add-submenu' for documentation." |
| 323 :set (function filesets-set-default) | 325 :set (function filesets-set-default) |
| 324 :type 'sexp | 326 :type '(choice (string :tag "Name") |
| 327 (const :tag "Last" nil)) | |
| 328 :version "23.1" ; was "File" | |
| 325 :group 'filesets) | 329 :group 'filesets) |
| 326 | 330 |
| 327 (defcustom filesets-menu-in-menu nil | 331 (defcustom filesets-menu-in-menu nil |
| 328 "Use that instead of `current-menubar' as the menu to change. | 332 "Use that instead of `current-menubar' as the menu to change. |
| 329 See `add-submenu' for documentation." | 333 See `add-submenu' for documentation." |