summaryrefslogtreecommitdiff
path: root/elisp/geiser-completion.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-13 04:40:31 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-13 04:42:31 +0100
commit46270166e05946c6597f21f4e0083528ae53e4a5 (patch)
treea2b0eaa6c6e4a98cfcd80d7f2b6914a0b09a2893 /elisp/geiser-completion.el
parent4db12d622e103220c0a84f65eaa5f9c0369c40fd (diff)
downloadgeiser-46270166e05946c6597f21f4e0083528ae53e4a5.tar.gz
geiser-46270166e05946c6597f21f4e0083528ae53e4a5.tar.bz2
completion-base-position <- completion-base-size
The latter is obsolete since 23.2.
Diffstat (limited to 'elisp/geiser-completion.el')
-rw-r--r--elisp/geiser-completion.el5
1 files changed, 1 insertions, 4 deletions
diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index f88fae6..b33c976 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -93,7 +93,7 @@ terminates a current completion."
(display-completion-list completions base)
(let ((offset (- (point) 1 (length base))))
(with-current-buffer standard-output
- (setq completion-base-size offset)
+ (setq completion-base-position (list offset nil))
(set-syntax-table scheme-mode-syntax-table))))
(when savedp
(setq geiser-completion--completions-window
@@ -283,8 +283,5 @@ and will try completing symbol at point otherwise."
:group 'geiser-mode
:keymap `((,(kbd "TAB") . geiser-completion--maybe-complete)))
-
-
(provide 'geiser-completion)
-;;; geiser-completion.el ends here