summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-doc.el9
-rw-r--r--elisp/geiser-log.el3
2 files changed, 8 insertions, 4 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el
index 7810957..a982997 100644
--- a/elisp/geiser-doc.el
+++ b/elisp/geiser-doc.el
@@ -382,6 +382,11 @@ With prefix argument, ask for symbol (with completion)."
"Symbol: " (geiser--symbol-at-point)))))
(when symbol (geiser-doc-symbol symbol))))
+(defun geiser-doc-manual-for-symbol (symbol)
+ (geiser-doc--external-help geiser-impl--implementation
+ symbol
+ (geiser-eval--get-module)))
+
(defun geiser-doc-look-up-manual (&optional arg)
"Look up manual for symbol at point.
With prefix argument, ask for the lookup symbol (with completion)."
@@ -390,9 +395,7 @@ With prefix argument, ask for the lookup symbol (with completion)."
(error "No manual available"))
(let ((symbol (or (and (not arg) (geiser--symbol-at-point))
(geiser-completion--read-symbol "Symbol: "))))
- (geiser-doc--external-help geiser-impl--implementation
- symbol
- (geiser-eval--get-module))))
+ (geiser-doc-manual-for-symbol symbol)))
(defconst geiser-doc--sections '(("Procedures:" "procs")
("Syntax:" "syntax")
diff --git a/elisp/geiser-log.el b/elisp/geiser-log.el
index 91ed639..7b4193e 100644
--- a/elisp/geiser-log.el
+++ b/elisp/geiser-log.el
@@ -1,6 +1,6 @@
;; geiser-log.el -- logging utilities
-;; Copyright (C) 2009, 2010, 2012 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2012, 2019 Jose Antonio Ortega Ruiz
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
@@ -14,6 +14,7 @@
;; Some utilities for maintaining a simple log buffer, mainly for
;; debugging purposes.
+(require 'geiser-custom)
(require 'geiser-popup)
(require 'geiser-base)