diff options
Diffstat (limited to 'lisp/minibuffer.el')
| -rw-r--r-- | lisp/minibuffer.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index d44d8968221..456193d52e1 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -2067,14 +2067,14 @@ variables.") (funcall aff-fun completions))) (with-current-buffer standard-output - (set (make-local-variable 'completion-base-position) + (setq-local completion-base-position (list (+ start base-size) ;; FIXME: We should pay attention to completion ;; boundaries here, but currently ;; completion-all-completions does not give us the ;; necessary information. end)) - (set (make-local-variable 'completion-list-insert-choice-function) + (setq-local completion-list-insert-choice-function (let ((ctable minibuffer-completion-table) (cpred minibuffer-completion-predicate) (cprops completion-extra-properties)) @@ -2866,7 +2866,7 @@ See `read-file-name' for the meaning of the arguments." ;; On the first request on `M-n' fill ;; `minibuffer-default' with a list of defaults ;; relevant for file-name reading. - (set (make-local-variable 'minibuffer-default-add-function) + (setq-local minibuffer-default-add-function (lambda () (with-current-buffer (window-buffer (minibuffer-selected-window)) |