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 | 8ec4b1b63c9e4976988988b0f534bcec77583c79 (patch) | |
| tree | e4926e44c3c6a3aff8c7532abae5e6c16433c3f8 /elisp/geiser-edit.el | |
| parent | c59998e52dec584d17542059c93692cfbd731bbe (diff) | |
| download | geiser-8ec4b1b63c9e4976988988b0f534bcec77583c79.tar.gz geiser-8ec4b1b63c9e4976988988b0f534bcec77583c79.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) |