diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-14 04:17:54 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-14 04:17:54 +0200 |
| commit | 040fd88d1e58e7aff82b1d3a380f3034b5e3475e (patch) | |
| tree | ccb5132430bf57ff31391a86823def3f23594fdf /elisp/geiser-doc.el | |
| parent | 4cb02391b54f644a2de31f487110c714a84dbfe7 (diff) | |
| download | geiser-040fd88d1e58e7aff82b1d3a380f3034b5e3475e.tar.gz geiser-040fd88d1e58e7aff82b1d3a380f3034b5e3475e.tar.bz2 | |
Better menus.
Diffstat (limited to 'elisp/geiser-doc.el')
| -rw-r--r-- | elisp/geiser-doc.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el index 33d2c1a..6bb4ba5 100644 --- a/elisp/geiser-doc.el +++ b/elisp/geiser-doc.el @@ -352,15 +352,16 @@ With prefix, the current page is deleted from history." (defun geiser-doc--visible-p () ) -(geiser-menu--defmenu geiser-doc-mode-map (eq major-mode 'geiser-doc-mode) +(geiser-menu--defmenu doc geiser-doc-mode-map ("Next" "\C-c\C-f" geiser-doc-next "Next item" :enable (geiser-doc--history-next-p)) ("Previous" "\C-c\C-b" geiser-doc-previous "Previous item" :enable (geiser-doc--history-previous-p)) ("Refresh" "\C-c\C-r" geiser-doc-refresh "Refresh current page") - (menu "Manage history" - ("Kill item" "\C-c\C-k" geiser-doc-kill-page "Kill this page") - ("Clean history" "\C-c\C-c" geiser-doc-clean-history)) + line + ("Kill item" "\C-c\C-k" geiser-doc-kill-page "Kill this page") + ("Clean history" "\C-c\C-c" geiser-doc-clean-history) + line (custom "Browser options" geiser-doc)) (defun geiser-doc-mode () @@ -373,7 +374,6 @@ With prefix, the current page is deleted from history." (set-syntax-table scheme-mode-syntax-table) (setq mode-name "Geiser Doc") (setq major-mode 'geiser-doc-mode) - (geiser-menu--provide) (setq buffer-read-only t)) (geiser-popup--define doc "*Geiser documentation*" geiser-doc-mode) |