From 5c5468dc60277f4e97359cd9cc29c772e6dcf649 Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Sat, 9 Apr 2011 14:46:45 +0200 Subject: [PATCH] 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 --- lisp/org-table.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-table.el b/lisp/org-table.el index 3573032d9..58aa83583 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))))) -- 2.11.4.GIT