diff options
| -rw-r--r-- | elisp/geiser-doc.el | 9 | ||||
| -rw-r--r-- | elisp/geiser-log.el | 3 |
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) |