[Emacs-diffs] master e58f9a4: * lisp/emulation/viper-ex.el (ex-cmd-read-exit): Silence compiler.

[Glenn Morris]

branch: master
commit e58f9a45d6a31be4ca379e10a866766e0993f49e
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    * lisp/emulation/viper-ex.el (ex-cmd-read-exit): Silence compiler.
---
 lisp/emulation/viper-ex.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el
index 347e66f..d95a828 100644
--- a/lisp/emulation/viper-ex.el
+++ b/lisp/emulation/viper-ex.el
@@ -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))