[slime-cvs] CVS update: slime/slime.el

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv1901

Modified Files:
	slime.el 
Log Message:
(slime-global-variable-name-p): Allow optional "<package-name>:" or
"<package-name>::".

(slime-repl-wrap-history): New user variable.
(slime-repl-history-replace): Implement wrap around.

(slime-repl-easy-menu): Fix binding for "Next Input".  Reported by
Surendra Singhi.



Date: Mon Nov 29 18:31:04 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.432 slime/slime.el:1.433
--- slime/slime.el:1.432	Thu Nov 25 19:58:04 2004
+++ slime/slime.el	Mon Nov 29 18:31:03 2004
@@ -749,7 +749,7 @@
       [ "Interrupt Lisp process" slime-interrupt ,C ]
       "--"
       [ "Previous Input"         slime-repl-previous-input t ]
-      [ "Next Input"             slime-repl-previous-input t ]
+      [ "Next Input"             slime-repl-next-input t ]
       [ "Goto Previous Prompt "  slime-repl-previous-prompt t ]
       [ "Goto Next Prompt "      slime-repl-next-prompt t ]
       [ "Clear Last Output"      slime-repl-clear-output t ]
@@ -2841,6 +2841,11 @@
 
 ;;;;; History
 
+(defcustom slime-repl-wrap-history nil
+  "T to wrap history around when the end is reached."
+  :type 'boolean
+  :group 'slime-repl)
+
 (defvar slime-repl-history-pattern nil
   "The regexp most recently used for finding input history.")
 
@@ -2856,13 +2861,16 @@
            (slime-repl-replace-input (nth pos slime-repl-input-history))
            (setq slime-repl-input-history-position pos)
            (message "History item: %d" pos))
-          (delete-at-end-p 
-           (cond (forward
-                  (slime-repl-replace-input "")
-                  (setq slime-repl-input-history-position -1)
-                  (message "End of history; no default available"))
-                 (t
-                  (message "Beginning of history; no preceeding item"))))
+          ((and delete-at-end-p (not slime-repl-wrap-history))
+           (cond (forward (slime-repl-replace-input "")
+                          (message "End of history"))
+                 (t (message "Beginning of history")))
+           (setq slime-repl-input-history-position
+                 (if forward -1 (length slime-repl-input-history))))
+          ((and delete-at-end-p slime-repl-wrap-history)
+           (slime-repl-replace-input "")
+           (setq slime-repl-input-history-position
+                 (if forward (length slime-repl-input-history) -1)))
           (t
            (message "End of history; no matching item")))))
 
@@ -4262,7 +4270,7 @@
 (defun slime-global-variable-name-p (name)
   "Is NAME a global variable?
 Globals are recognised purely by *this-naming-convention*."
-  (string-match "^\\*.*\\*$" name))
+  (string-match "^\\(.*::?\\)?\\*.*\\*$" name))
 
 (defun slime-get-cached-autodoc (symbol-name)
   "Return the cached autodoc documentation for SYMBOL-NAME, or nil."