diff options
author | Bastien Guerry <bzg@altern.org> | 2011-10-30 09:58:37 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-10-30 09:58:37 +0100 |
commit | b3e1e7320f3379dfefdfb5e845ba224a950ef271 (patch) | |
tree | 56e1e1a3bbed78de4892cf83e165546b6b52cf32 | |
parent | d3370f160899c542dad69f492fde7fcffe61a29e (diff) | |
download | org-mode-b3e1e7320f3379dfefdfb5e845ba224a950ef271.tar.gz |
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.
-rw-r--r-- | lisp/org.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index 8676c80..03fa76b 100644 --- a/lisp/org.el +++ b/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) |