summaryrefslogtreecommitdiff
path: root/elisp/geiser-edit.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-08-23 02:59:09 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-08-23 02:59:09 +0200
commit11e52e18251f6c2c5a9c7c37bbd4a1787e84b282 (patch)
treeed13358da3c97dd90849327ee4b531c5a176390e /elisp/geiser-edit.el
parentc5b6f124e8197c4e20278fb3f24086ee56f0e529 (diff)
downloadgeiser-guile-11e52e18251f6c2c5a9c7c37bbd4a1787e84b282.tar.gz
geiser-guile-11e52e18251f6c2c5a9c7c37bbd4a1787e84b282.tar.bz2
Fixes for all byte-compilation warnings.
Diffstat (limited to 'elisp/geiser-edit.el')
-rw-r--r--elisp/geiser-edit.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el
index 723e898..ad2c11e 100644
--- a/elisp/geiser-edit.el
+++ b/elisp/geiser-edit.el
@@ -106,8 +106,9 @@ or following links in error buffers.")
(format "\\_<%s\\_>" (regexp-quote (format "%s" thing))))
(defun geiser-edit--goto-line (symbol line)
+ (goto-char (point-min))
(if (numberp line)
- (goto-line line)
+ (forward-line (max 0 (1- line)))
(goto-char (point-min))
(when (or (re-search-forward (geiser-edit--def-re symbol) nil t)
(re-search-forward (geiser-edit--def-re* symbol) nil t)
@@ -152,6 +153,8 @@ or following links in error buffers.")
;;; Commands:
+(defvar geiser-edit--symbol-history nil)
+
(defun geiser-edit-symbol ()
"Asks for a symbol to edit, with completion."
(interactive)