summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJulien Danjou <julien@danjou.info>2011-04-09 14:46:45 +0200
committerJulien Danjou <julien@danjou.info>2011-04-09 14:46:45 +0200
commit5c5468dc60277f4e97359cd9cc29c772e6dcf649 (patch)
tree38e09c2fe7d1a068f872996993e910eb41ebfa4b
parentf6c8fb0be1ece8884e81da71311d2d317d60aaa9 (diff)
downloadorg-mode-5c5468dc60277f4e97359cd9cc29c772e6dcf649.tar.gz
org-table: use point-min instead of 1
* lisp/org-table.el (org-table-cleanup-narrow-column-properties): Use point-min rather than 1 when moving in the buffer. Signed-off-by: Julien Danjou <julien@danjou.info>
-rw-r--r--lisp/org-table.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-table.el b/lisp/org-table.el
index 3573032..58aa835 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -3702,14 +3702,14 @@ Use COMMAND to do the motion, repeat if necessary to end up in a data line."
(defun org-table-cleanup-narrow-column-properties ()
"Remove all properties related to narrow-column invisibility."
- (let ((s 1))
+ (let ((s (point-min)))
(while (setq s (text-property-any s (point-max)
'display org-narrow-column-arrow))
(remove-text-properties s (1+ s) '(display t)))
- (setq s 1)
+ (setq s (point-min))
(while (setq s (text-property-any s (point-max) 'org-cwidth 1))
(remove-text-properties s (1+ s) '(org-cwidth t)))
- (setq s 1)
+ (setq s (point-min))
(while (setq s (text-property-any s (point-max) 'invisible 'org-cwidth))
(remove-text-properties s (1+ s) '(invisible t)))))