summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-08-07 03:05:07 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-08-07 03:05:07 +0200
commit979fa6ea369cb0086593f9e3a4d46e003785a425 (patch)
tree3843957e79354da83ea304086402ecf6f98edfba /elisp
parent188031e2c7c2971cb31f319d51b7cd465380f3a4 (diff)
downloadgeiser-chez-979fa6ea369cb0086593f9e3a4d46e003785a425.tar.gz
geiser-chez-979fa6ea369cb0086593f9e3a4d46e003785a425.tar.bz2
geiser-font-lock-autodoc-procedure-name -> geiser-font-lock-autodoc-identifier
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-autodoc.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el
index e45e93c..f56a2ae 100644
--- a/elisp/geiser-autodoc.el
+++ b/elisp/geiser-autodoc.el
@@ -28,7 +28,7 @@
(geiser-custom--defface autodoc-current-arg
'bold geiser-autodoc "highlighting current argument in autodoc messages")
-(geiser-custom--defface autodoc-procedure-name
+(geiser-custom--defface autodoc-identifier
'font-lock-function-name-face
geiser-autodoc "highlighting procedure name in autodoc messages")
@@ -122,17 +122,17 @@ when `geiser-autodoc-display-module-p' is on."
(insert "]"))
(when opts (insert "]"))))
-(defsubst geiser-autodoc--proc-name (proc module)
+(defsubst geiser-autodoc--id-name (proc module)
(let ((str (if module
(format geiser-autodoc-identifier-format module proc)
(format "%s" proc))))
- (propertize str 'face 'geiser-font-lock-autodoc-procedure-name)))
+ (propertize str 'face 'geiser-font-lock-autodoc-identifier)))
(defun geiser-autodoc--str* (full-signature)
(geiser-autodoc--str (list (car full-signature)) full-signature))
(defsubst geiser-autodoc--value-str (proc module value)
- (let ((name (geiser-autodoc--proc-name proc module)))
+ (let ((name (geiser-autodoc--id-name proc module)))
(if value (format "%s => %s" name value) name)))
(defun geiser-autodoc--str (desc signature)
@@ -144,7 +144,7 @@ when `geiser-autodoc-display-module-p' is on."
(save-current-buffer
(set-buffer (geiser-syntax--font-lock-buffer))
(erase-buffer)
- (insert (format "(%s" (geiser-autodoc--proc-name proc module)))
+ (insert (format "(%s" (geiser-autodoc--id-name proc module)))
(let ((pos (or (cadr desc) 0))
(prev (caddr desc)))
(dolist (a args)