summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-10 01:08:04 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-10 01:08:04 +0100
commit522f145191e37d18fb7173e2aab5f3dc9fa6148f (patch)
treed8fe34bad6f612e19a83b1d83fe4e626061a89d7 /elisp
parent1e74164f7fd9f208cc5db0987855110a1669f9bc (diff)
downloadgeiser-522f145191e37d18fb7173e2aab5f3dc9fa6148f.tar.gz
geiser-522f145191e37d18fb7173e2aab5f3dc9fa6148f.tar.bz2
Optionally show procedure modules in autodoc.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-autodoc.el15
1 files changed, 14 insertions, 1 deletions
diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el
index 4c6c44c..2d286ff 100644
--- a/elisp/geiser-autodoc.el
+++ b/elisp/geiser-autodoc.el
@@ -50,6 +50,17 @@
:type 'number
:group 'geiser-autodoc)
+(defcustom geiser-autodoc-display-module-p t
+ "Whether to display procedure module in autodoc strings."
+ :type 'boolean
+ :group 'geiser-autodoc)
+
+(defcustom geiser-autodoc-procedure-name-format "%s:%s"
+ "Format for displaying module and procedure name, in that order,
+when `geiser-autodoc-display-module-p' is on."
+ :type 'string
+ :group 'geiser-autodoc)
+
;;; Procedure arguments:
@@ -75,7 +86,9 @@
(save-current-buffer
(set-buffer (geiser-syntax--font-lock-buffer))
(erase-buffer)
- (let ((current 0))
+ (let* ((current 0)
+ (module (and geiser-autodoc-display-module-p (cdr (assoc 'module args))))
+ (fun (if module (format geiser-autodoc-procedure-name-format module fun) fun)))
(insert "(")
(geiser-autodoc--insert fun current pos)
(dolist (arg (cdr (assoc 'required args)))