diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-08-23 02:59:09 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-08-23 02:59:09 +0200 |
| commit | 11e52e18251f6c2c5a9c7c37bbd4a1787e84b282 (patch) | |
| tree | ed13358da3c97dd90849327ee4b531c5a176390e /elisp/geiser-edit.el | |
| parent | c5b6f124e8197c4e20278fb3f24086ee56f0e529 (diff) | |
| download | geiser-chez-11e52e18251f6c2c5a9c7c37bbd4a1787e84b282.tar.gz geiser-chez-11e52e18251f6c2c5a9c7c37bbd4a1787e84b282.tar.bz2 | |
Fixes for all byte-compilation warnings.
Diffstat (limited to 'elisp/geiser-edit.el')
| -rw-r--r-- | elisp/geiser-edit.el | 5 |
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) |