[slime-cvs] CVS slime/contrib
CVS User trittweiler
trittweiler at common-lisp.net
Fri Feb 27 17:37:15 UTC 2009
Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv31404/contrib
Modified Files:
ChangeLog slime-autodoc.el slime-c-p-c.el
slime-enclosing-context.el slime-package-fu.el slime-parse.el
slime-presentations.el slime-xref-browser.el
Log Message:
* slime.el: Rename `slime-symbol-name-at-point' to
`slime-symbol-at-point'.
* slime-autodoc.el, slime-c-p-c.el, slime-enclosing-context.el
* slime-package-fu.el, slime-parse.el, slime-presentations.el
* slime-xref-browser: Rename `slime-symbol-name-at-point' to
`slime-symbol-at-point'
--- /project/slime/cvsroot/slime/contrib/ChangeLog 2009/02/27 16:26:24 1.179
+++ /project/slime/cvsroot/slime/contrib/ChangeLog 2009/02/27 17:37:14 1.180
@@ -1,5 +1,12 @@
2009-02-27 Tobias C. Rittweiler <tcr at freebits.de>
+ * slime-autodoc.el, slime-c-p-c.el, slime-enclosing-context.el
+ * slime-package-fu.el, slime-parse.el, slime-presentations.el
+ * slime-xref-browser: Rename `slime-symbol-name-at-point' to
+ `slime-symbol-at-point'
+
+2009-02-27 Tobias C. Rittweiler <tcr at freebits.de>
+
* slime-parse.el (slime-make-extended-operator-parser/look-ahead):
If there's no closing paren (no paredit!) we cannot determine the
end of the list. Check for this.
--- /project/slime/cvsroot/slime/contrib/slime-autodoc.el 2009/02/01 23:57:35 1.12
+++ /project/slime/cvsroot/slime/contrib/slime-autodoc.el 2009/02/27 17:37:14 1.13
@@ -60,7 +60,7 @@
(defun slime-autodoc-global-at-point ()
"Return the global variable name at point, if any."
- (when-let (name (slime-symbol-name-at-point))
+ (when-let (name (slime-symbol-at-point))
(if (slime-global-variable-name-p name) name)))
(defcustom slime-global-variable-name-regexp "^\\(.*:\\)?\\([*+]\\).+\\2$"
--- /project/slime/cvsroot/slime/contrib/slime-c-p-c.el 2008/02/13 11:27:55 1.9
+++ /project/slime/cvsroot/slime/contrib/slime-c-p-c.el 2009/02/27 17:37:14 1.10
@@ -83,7 +83,7 @@
(defun slime-complete-symbol*-fancy-bit ()
"Do fancy tricks after completing a symbol.
\(Insert a space or close-paren based on arglist information.)"
- (let ((arglist (slime-get-arglist (slime-symbol-name-at-point))))
+ (let ((arglist (slime-get-arglist (slime-symbol-at-point))))
(when arglist
(let ((args
;; Don't intern these symbols
--- /project/slime/cvsroot/slime/contrib/slime-enclosing-context.el 2009/02/26 18:35:43 1.4
+++ /project/slime/cvsroot/slime/contrib/slime-enclosing-context.el 2009/02/27 17:37:14 1.5
@@ -54,7 +54,7 @@
(ignore-errors
(loop
(down-list)
- (push (slime-symbol-name-at-point) binding-names)
+ (push (slime-symbol-at-point) binding-names)
(push (save-excursion (backward-up-list) (point))
binding-start-points)
(up-list)))))
@@ -107,8 +107,8 @@
;; latter is used for local autodoc. It does not seem too
;; important for local M-. to work on such names. \(The reason
;; that it does not work anymore, is that
- ;; `slime-symbol-name-at-point' now does TRT and does not
- ;; return a leading comma anymore.\)
+ ;; `slime-symbol-at-point' now does TRT and does not return a
+ ;; leading comma anymore.\)
("bar" nil nil)
((",nil" "()")))
("(flet ((foo ()))
--- /project/slime/cvsroot/slime/contrib/slime-package-fu.el 2009/02/21 19:05:22 1.4
+++ /project/slime/cvsroot/slime/contrib/slime-package-fu.el 2009/02/27 17:37:14 1.5
@@ -99,7 +99,7 @@
(while (ignore-errors (slime-goto-next-export-clause) t)
(let ((clause-end (save-excursion (forward-sexp) (point))))
(when (and (search-forward symbol-name clause-end t)
- (equal (slime-symbol-name-at-point) symbol-name))
+ (equal (slime-symbol-at-point) symbol-name))
(return (point))))))))
@@ -170,7 +170,7 @@
symbol in the Lisp image if possible."
(interactive)
(let ((package (slime-current-package))
- (symbol (slime-symbol-name-at-point)))
+ (symbol (slime-symbol-at-point)))
(unless symbol (error "No symbol at point."))
(cond (current-prefix-arg
(if (slime-frob-defpackage-form package :unexport symbol)
--- /project/slime/cvsroot/slime/contrib/slime-parse.el 2009/02/27 16:26:24 1.17
+++ /project/slime/cvsroot/slime/contrib/slime-parse.el 2009/02/27 17:37:14 1.18
@@ -35,10 +35,10 @@
(interactive "p") (or n (setq n 1))
(flet ((sexp-at-point (first-choice)
(let ((string (if (eq first-choice :symbol-first)
- (or (slime-symbol-name-at-point)
+ (or (slime-symbol-at-point)
(thing-at-point 'sexp))
(or (thing-at-point 'sexp)
- (slime-symbol-name-at-point)))))
+ (slime-symbol-at-point)))))
(if string (substring-no-properties string) nil))))
(save-excursion
(when skip-blanks-p ; e.g. `( foo bat)' where point is after ?\(.
@@ -295,7 +295,7 @@
(when (member (char-syntax (char-after)) '(?\( ?'))
(incf level)
(forward-char 1)
- (let ((name (slime-symbol-name-at-point)))
+ (let ((name (slime-symbol-at-point)))
(cond
(name
(save-restriction
--- /project/slime/cvsroot/slime/contrib/slime-presentations.el 2009/01/05 21:57:54 1.21
+++ /project/slime/cvsroot/slime/contrib/slime-presentations.el 2009/02/27 17:37:14 1.22
@@ -400,7 +400,7 @@
(slime-M-.-presentation presentation start end (current-buffer))))
(defun slime-edit-presentation (name &optional where)
- (if (or current-prefix-arg (not (equal (slime-symbol-name-at-point) name)))
+ (if (or current-prefix-arg (not (equal (slime-symbol-at-point) name)))
nil ; NAME came from user explicitly, so decline.
(multiple-value-bind (presentation start end whole-p)
(slime-presentation-around-or-before-point (point))
--- /project/slime/cvsroot/slime/contrib/slime-xref-browser.el 2008/02/13 11:27:08 1.2
+++ /project/slime/cvsroot/slime/contrib/slime-xref-browser.el 2009/02/27 17:37:14 1.3
@@ -91,7 +91,7 @@
"Show the xref graph of a function in a tree widget."
(interactive
(list (slime-read-from-minibuffer "Name: "
- (slime-symbol-name-at-point))
+ (slime-symbol-at-point))
(read (completing-read "Type: " (slime-bogus-completion-alist
'(":callers" ":callees" ":calls"))
nil t ":"))))
More information about the slime-cvs
mailing list