From: Glenn Morris <rgm@gnu.org>
Date: Thu, 1 Mar 2018 22:37:10 +0000 (-0500)
Subject: * lisp/emulation/viper-ex.el (ex-cmd-read-exit): Silence compiler.
X-Git-Tag: emacs-27.0.90~5582
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e58f9a45d6a31be4ca379e10a866766e0993f49e;p=emacs.git

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

diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el
index 347e66f8ff1..d95a828614e 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))