summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-14 04:35:48 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-14 04:35:48 +0200
commit8cbee770fd943323297de29f6ae11541a2b63a0b (patch)
tree107fe6c544c3c3dd3ec856fe2049197655170d81
parentd92baad9f8e9f205ca1dc642e7f763ddbcfec43b (diff)
downloadgeiser-chez-8cbee770fd943323297de29f6ae11541a2b63a0b.tar.gz
geiser-chez-8cbee770fd943323297de29f6ae11541a2b63a0b.tar.bz2
Nits.
-rw-r--r--elisp/geiser-doc.el4
-rw-r--r--elisp/geiser-menu.el14
-rw-r--r--elisp/geiser-repl.el8
3 files changed, 13 insertions, 13 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el
index 6bb4ba5..5684e54 100644
--- a/elisp/geiser-doc.el
+++ b/elisp/geiser-doc.el
@@ -358,10 +358,10 @@ With prefix, the current page is deleted from history."
("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")
- 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 ()
diff --git a/elisp/geiser-menu.el b/elisp/geiser-menu.el
index b332005..bba6b10 100644
--- a/elisp/geiser-menu.el
+++ b/elisp/geiser-menu.el
@@ -39,7 +39,7 @@
(list binding))))
`(progn (define-key ,map [,item]
'(menu-item ,title ,cmd ,@hlp ,@rest))
- ,@(and binding
+ ,@(and (car binding)
`((put ',cmd
:advertised-binding
,(car binding))))
@@ -81,12 +81,12 @@
:button (:toggle . (and (boundp ',mode) ,mode))))))
(defmacro geiser-menu--defmenu (e keymap &rest keys)
- (let* ((fs)
- (name (format "Geiser %s" e))
- (mmap (make-symbol "mmap")))
+ (let ((fs)
+ (mmap (make-symbol "mmap")))
(dolist (kd keys)
(setq fs
- (cons (cond ((eq 'line kd) `(geiser-menu--add-line ,mmap))
+ (cons (cond ((or (eq '-- kd) (eq 'line kd))
+ `(geiser-menu--add-line ,mmap))
((stringp (car kd))
`(geiser-menu--add-items ,keymap ,mmap ,(list kd)))
((eq 'menu (car kd))
@@ -106,8 +106,8 @@
(t (error "Bad form: %s" kd)))
fs)))
`(progn
- (let ((,mmap (make-sparse-keymap ,name)))
- (define-key ,keymap [menu-bar ,e] (cons ,name ,mmap))
+ (let ((,mmap (make-sparse-keymap "Geiser")))
+ (define-key ,keymap [menu-bar ,e] (cons "Geiser" ,mmap))
(define-key ,mmap [customize]
(cons "Customize" geiser-menu--custom-customize))
(define-key ,mmap [switch]
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 6fc820a..e27d80f 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -389,27 +389,27 @@ module command as a string")
geiser-completion--complete-module :enable (symbol-at-point))
("Edit symbol" "\M-." geiser-edit--symbol-at-point
:enable (symbol-at-point))
- line
+ --
("Previous matching input" "\M-p" comint-previous-matching-input-from-input
"Previous input matching current")
("Next matching input" "\M-n" comint-next-matching-input-from-input
"Next input matching current")
("Previous input" "\C-c\M-p" comint-previous-input)
("Next input" "\C-c\M-n" comint-next-input)
- line
+ --
(mode "Autodoc mode" "\C-ca" geiser-autodoc-mode)
("Symbol documentation" "\C-cd" geiser-doc-symbol-at-point
"Documentation for symbol at point" :enable (symbol-at-point))
("Module documentation" "\C-cm" geiser-repl--doc-module
"Documentation for module at point" :enable (symbol-at-point))
("Load module" "\C-cl" geiser-load-file)
- line
+ --
("Restart" ("\C-cz" "\C-c\C-z") switch-to-geiser
:enable (not (geiser-repl--this-buffer-repl)))
("Revive REPL" ("\C-ck" "\C-c\C-k") geiser-repl-nuke
"Use this command if the REPL becomes irresponsive"
:enable (not (geiser-repl--this-buffer-repl)))
- line
+ --
(custom "REPL options" geiser-repl))