Aaron S. Hawley <aaronh at garden.org>

(texinfo-insert-quote): Handle corner case where point is at the
beginning of the buffer.  (Bug#1239)

diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index 5f6724fea0ed0fa65ae97e88cba783b1789c3754..ba61ab54008ec03d7657801869c4641b74834a29 100644 (file)
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -682,7 +682,9 @@ With prefix argument or inside @code or @example, inserts a plain \"."
     (if (or arg
            (= (preceding-char) ?\\)
            (save-excursion
-             (backward-char (length texinfo-open-quote))
+              (if (> (point) (length texinfo-open-quote))
+                  (backward-char (length texinfo-open-quote))
+                (goto-char (point-min)))
              (when (or (looking-at texinfo-open-quote)
                        (looking-at texinfo-close-quote))
                (delete-char (length texinfo-open-quote))
@@ -694,7 +696,8 @@ With prefix argument or inside @code or @example, inserts a plain \"."
                    (setq in-env t)))))
        (self-insert-command (prefix-numeric-value arg))
       (insert
-       (if (memq (char-syntax (preceding-char)) '(?\( ?> ?\s))
+       (if (or (bobp)
+               (memq (char-syntax (preceding-char)) '(?\( ?> ?\s)))
           texinfo-open-quote
         texinfo-close-quote)))))