From a5944d98c714657b31e14ca23328560e8756b7f9 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Mon, 14 Jun 2010 04:35:48 +0200
Subject: Nits.

---
 elisp/geiser-doc.el  |  4 ++--
 elisp/geiser-menu.el | 14 +++++++-------
 elisp/geiser-repl.el |  8 ++++----
 3 files changed, 13 insertions(+), 13 deletions(-)

(limited to 'elisp')

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))
 
 
-- 
cgit v1.2.3