Ver Fonte

org.el: Don't throw an error when editing takes place at the first point of the buffer.

* org.el (org-self-insert-command): Don't throw an error when
editing takes place at the first point of the buffer.

Thanks to Carsten Dominik for pointing this error.
Bastien Guerry há 14 anos atrás
pai
commit
b3e1e7320f
1 ficheiros alterados com 2 adições e 1 exclusões
  1. 2 1
      lisp/org.el

+ 2 - 1
lisp/org.el

@@ -17396,7 +17396,8 @@ overwritten, and the table is not marked as requiring realignment."
   (let ((invisible-at-point
 	 (car (get-char-property-and-overlay (point) 'invisible)))
 	(invisible-before-point
-	 (car (get-char-property-and-overlay (1- (point)) 'invisible))))
+	 (or (bobp) (car (get-char-property-and-overlay 
+			  (1- (point)) 'invisible)))))
     (when (or (eq invisible-at-point 'outline)
 	    (eq invisible-at-point 'org-hide-block)
 	    (eq invisible-before-point 'outline)