[slime-cvs] CVS slime/contrib
CVS User heller
heller at common-lisp.net
Thu Jan 10 11:45:48 UTC 2013
Update of /project/slime/cvsroot/slime/contrib
In directory tiger.common-lisp.net:/tmp/cvs-serv16365
Modified Files:
ChangeLog slime-autodoc.el
Log Message:
* slime-autodoc.el (slime-autodoc): Remove :gnu-emacs-only.
Suggested by Raymond Toy.
(slime-autodoc): Fix long lines.
--- /project/slime/cvsroot/slime/contrib/ChangeLog 2013/01/04 18:22:01 1.562
+++ /project/slime/cvsroot/slime/contrib/ChangeLog 2013/01/10 11:45:48 1.563
@@ -1,3 +1,9 @@
+2013-01-10 Helmut Eller <heller at common-lisp.net>
+
+ * slime-autodoc.el (slime-autodoc): Remove :gnu-emacs-only.
+ Suggested by Raymond Toy.
+ (slime-autodoc): Fix long lines.
+
2013-01-04 Stas Boukarev <stassats at gmail.com>
* slime-fancy-inspector.el (slime-edit-inspector-part): New
--- /project/slime/cvsroot/slime/contrib/slime-autodoc.el 2011/10/05 14:17:59 1.48
+++ /project/slime/cvsroot/slime/contrib/slime-autodoc.el 2013/01/10 11:45:48 1.49
@@ -1,7 +1,6 @@
(define-slime-contrib slime-autodoc
"Show fancy arglist in echo area."
- (:gnu-emacs-only t)
(:license "GPL")
(:authors "Luke Gorrie <luke at bluetail.com>"
"Lawrence Mitchell <wence at gmx.li>"
@@ -9,7 +8,7 @@
"Tobias C. Rittweiler <tcr at freebits.de>")
(:slime-dependencies slime-parse)
(:swank-dependencies swank-arglists)
- (:on-load
+ (:on-load
(dolist (h '(slime-mode-hook slime-repl-mode-hook sldb-mode-hook))
(add-hook h 'slime-autodoc-maybe-enable)))
(:on-unload
@@ -22,7 +21,7 @@
(when slime-use-autodoc-mode
(slime-autodoc-mode 1)
(setq slime-echo-arglist-function
- (lambda ()
+ (lambda ()
(if slime-autodoc-mode
(eldoc-message (slime-autodoc))
(slime-show-arglist))))))
@@ -141,7 +140,8 @@
(multiple-value-bind (cache-key retrieve-form)
(slime-make-autodoc-rpc-form)
(let* (cached
- (multilinep (or (slime-autodoc-multiline-cached (car cache-key))
+ (multilinep (or (slime-autodoc-multiline-cached
+ (car cache-key))
multilinep)))
(slime-autodoc-cache-multiline (car cache-key) cache-multiline)
(cond
@@ -182,7 +182,7 @@
(defun slime-autodoc-manually ()
"Like slime-autodoc, but when called twice,
-or after slime-autodoc was already automatically called,
+or after slime-autodoc was already automatically called,
display multiline arglist"
(interactive)
(eldoc-message (slime-autodoc (or slime-autodoc-use-multiline-p
@@ -204,7 +204,7 @@
(message (format "Slime autodoc mode %s."
(if slime-autodoc-mode "enabled" "disabled")))))
-(defadvice eldoc-display-message-no-interference-p
+(defadvice eldoc-display-message-no-interference-p
(after slime-autodoc-message-ok-p)
(when slime-autodoc-mode
(setq ad-return-value
@@ -233,8 +233,8 @@
(slime-canonicalize-whitespace autodoc))))
(defun slime-check-autodoc-at-point (arglist)
- (slime-test-expect (format "Autodoc in `%s' (at %d) is as expected"
- (buffer-string) (point))
+ (slime-test-expect (format "Autodoc in `%s' (at %d) is as expected"
+ (buffer-string) (point))
arglist
(slime-autodoc-to-string)
'equal))
@@ -247,10 +247,12 @@
("(swank::emacs-connected*HERE*" "(emacs-connected)")
("(swank::emacs-connected *HERE*" "(emacs-connected)")
("(swank::create-socket*HERE*" "(create-socket host port)")
- ("(swank::create-socket *HERE*" "(create-socket ===> host <=== port)")
- ("(swank::create-socket foo *HERE*" "(create-socket host ===> port <===)")
+ ("(swank::create-socket *HERE*" "(create-socket ===> host <=== port)")
+ ("(swank::create-socket foo *HERE*"
+ "(create-socket host ===> port <===)")
- ;; Test that autodoc differentiates between exported and unexported symbols.
+ ;; Test that autodoc differentiates between exported and
+ ;; unexported symbols.
("(swank:create-socket*HERE*" :not-available)
;; Test if cursor is on non-existing required parameter
@@ -262,27 +264,35 @@
t)
;; Test variable content display
- ("(progn swank::default-server-port*HERE*" "DEFAULT-SERVER-PORT => 4005")
+ ("(progn swank::default-server-port*HERE*"
+ "DEFAULT-SERVER-PORT => 4005")
- ;; Test that "variable content display" is not triggered for trivial constants.
- ("(swank::create-socket t*HERE*" "(create-socket ===> host <=== port)")
- ("(swank::create-socket :foo*HERE*" "(create-socket ===> host <=== port)")
+ ;; Test that "variable content display" is not triggered for
+ ;; trivial constants.
+ ("(swank::create-socket t*HERE*" "(create-socket ===> host <=== port)")
+ ("(swank::create-socket :foo*HERE*"
+ "(create-socket ===> host <=== port)")
;; Test with syntactic sugar
("#'(lambda () (swank::create-socket*HERE*" "(create-socket host port)")
("`(lambda () ,(swank::create-socket*HERE*" "(create-socket host port)")
- ("(remove-if #'(lambda () (swank::create-socket*HERE*" "(create-socket host port)")
- ("`(remove-if #'(lambda () ,@(swank::create-socket*HERE*" "(create-socket host port)")
+ ("(remove-if #'(lambda () (swank::create-socket*HERE*"
+ "(create-socket host port)")
+ ("`(remove-if #'(lambda () ,@(swank::create-socket*HERE*"
+ "(create-socket host port)")
;; Test &optional
- ("(swank::symbol-status foo *HERE*"
- "(symbol-status symbol &optional ===> (package (symbol-package symbol)) <===)")
+ ("(swank::symbol-status foo *HERE*"
+ "(symbol-status symbol &optional\
+ ===> (package (symbol-package symbol)) <===)")
;; Test context-sensitive autodoc (DEFMETHOD)
("(defmethod swank::arglist-dispatch (*HERE*"
- "(defmethod arglist-dispatch (===> operator <=== arguments) &body body)")
+ "(defmethod arglist-dispatch\
+ (===> operator <=== arguments) &body body)")
("(defmethod swank::arglist-dispatch :before (*HERE*"
- "(defmethod arglist-dispatch :before (===> operator <=== arguments) &body body)")
+ "(defmethod arglist-dispatch :before\
+ (===> operator <=== arguments) &body body)")
;; Test context-sensitive autodoc (APPLY)
("(apply 'swank::eval-for-emacs*HERE*"
@@ -290,26 +300,32 @@
("(apply #'swank::eval-for-emacs*HERE*"
"(apply #'eval-for-emacs &optional form buffer-package id &rest args)")
("(apply 'swank::eval-for-emacs foo *HERE*"
- "(apply 'eval-for-emacs &optional form ===> buffer-package <=== id &rest args)")
+ "(apply 'eval-for-emacs &optional form\
+ ===> buffer-package <=== id &rest args)")
("(apply #'swank::eval-for-emacs foo *HERE*"
- "(apply #'eval-for-emacs &optional form ===> buffer-package <=== id &rest args)")
+ "(apply #'eval-for-emacs &optional form\
+ ===> buffer-package <=== id &rest args)")
;; Test context-sensitive autodoc (ERROR, CERROR)
("(error 'simple-condition*HERE*"
- "(error 'simple-condition &rest arguments &key format-arguments format-control)")
+ "(error 'simple-condition &rest arguments\
+ &key format-arguments format-control)")
("(cerror \"Foo\" 'simple-condition*HERE*"
- "(cerror \"Foo\" 'simple-condition &rest arguments &key format-arguments format-control)")
-
+ "(cerror \"Foo\" 'simple-condition\
+ &rest arguments &key format-arguments format-control)")
+
;; Test &KEY and nested arglists
("(swank::with-retry-restart (:msg *HERE*"
"(with-retry-restart (&key ===> (msg \"Retry.\") <===) &body body)")
("(swank::with-retry-restart (:msg *HERE*(foo"
"(with-retry-restart (&key ===> (msg \"Retry.\") <===) &body body)" t)
("(swank::start-server \"/tmp/foo\" :coding-system *HERE*"
- "(start-server port-file &key (style swank:*communication-style*) (dont-close swank:*dont-close*) ===> (coding-system swank::*coding-system*) <===)")
-
+ "(start-server port-file &key (style swank:*communication-style*)\
+ (dont-close swank:*dont-close*)\
+ ===> (coding-system swank::*coding-system*) <===)")
+
;; Test declarations and type specifiers
- ("(declare (string *HERE*"
+ ("(declare (string *HERE*"
"(declare (string &rest ===> variables <===))")
("(declare ((string *HERE*"
"(declare ((string &optional ===> size <===) &rest variables))")
@@ -320,8 +336,8 @@
("(flet ((foo (x y) (+ x y))) (foo *HERE*" "(foo ===> x <=== y)")
("(macrolet ((foo (x y) `(+ ,x ,y))) (foo *HERE*" "(foo ===> x <=== y)")
("(labels ((foo (x y) (+ x y))) (foo *HERE*" "(foo ===> x <=== y)")
- ("(labels ((foo (x y) (+ x y))
- (bar (y) (foo *HERE*"
+ ("(labels ((foo (x y) (+ x y))
+ (bar (y) (foo *HERE*"
"(foo ===> x <=== y)"))
(slime-check-top-level)
(with-temp-buffer
More information about the slime-cvs
mailing list