diff options
author | Julien Danjou <julien@danjou.info> | 2011-04-09 14:46:45 +0200 |
---|---|---|
committer | Julien Danjou <julien@danjou.info> | 2011-04-09 14:46:45 +0200 |
commit | 5c5468dc60277f4e97359cd9cc29c772e6dcf649 (patch) | |
tree | 38e09c2fe7d1a068f872996993e910eb41ebfa4b | |
parent | f6c8fb0be1ece8884e81da71311d2d317d60aaa9 (diff) | |
download | org-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.el | 6 |
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))))) |