diff options
author | Richard M. Stallman <[email protected]> | 1994-05-26 23:15:32 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1994-05-26 23:15:32 +0000 |
commit | 63240af11720e7c6d9fd75f026a198d0090e39a2 (patch) | |
tree | e8fcb50c125491b890495deab1ba7591c8a76683 /lisp | |
parent | d43277ab9e8d441f4bb701b06db9e33c49008b6f (diff) |
(choose-completion-string): Clear mouse-face property.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 5f58d18e74..13c44666a3 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2482,6 +2482,8 @@ it were the arg to `interactive' (which see) to interactively read the value." (set-buffer buffer) (choose-completion-delete-max-match choice) (insert choice) + (remove-text-properties (- (point) (length choice)) (point) + '(mouse-face nil)) ;; Update point in the window that BUFFER is showing in. (let ((window (get-buffer-window buffer t))) (set-window-point window (point))) |