mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-08 20:58:58 +00:00
Code Issues Releases Activity

* lisp/emulation/viper-ex.el (ex-cmd-read-exit): Silence compiler.

Browse Source
This commit is contained in:
Glenn Morris 2018-03-01 17:37:10 -05:00
parent da18508029
commit e58f9a45d6
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/emulation/viper-ex.el
View File

@ -548,9 +548,13 @@ reversed."
(setq viper-ex-work-buf (get-buffer-create viper-ex-work-buf-name))
(set-buffer viper-ex-work-buf)
(goto-char (point-max)))
(cond ((looking-back quit-regex1) (exit-minibuffer))
((looking-back stay-regex) (insert " "))
((looking-back quit-regex2) (exit-minibuffer))
(cond ((looking-back quit-regex1 (line-beginning-position))
(exit-minibuffer))
;; Almost certainly point-min should be line-beginning-position,
;; but probably the two are identical anyway, and who really cares?
((looking-back stay-regex (point-min)) (insert " "))
((looking-back quit-regex2 (line-beginning-position))
(exit-minibuffer))
(t (insert " ")))))
(declare-function viper-tmp-insert-at-eob "viper-cmd" (msg))