From 2911965bfef9072a3031d48dfe2ea50bcb3ff9df Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Wed, 6 Nov 2013 09:59:46 +0100 Subject: [PATCH] org-agenda: Fix bug when showing the new time * org-agenda.el (org-agenda-show-new-time): Ignore invisible text when inserting the new time as a text property. * org-compat.el (org-move-to-column): New argument `ignore-invisible' to turn on `buffer-invisibility-spec'. Thanks to Marcin Borkowski and Karl Voit for reporting this. --- lisp/org-agenda.el | 2 +- lisp/org-compat.el | 6 ++---- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 16f1b4d78..fedbbe72e 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -9149,7 +9149,7 @@ Called with a universal prefix arg, show the priority instead of setting it." (goto-char (point-max)) (while (not (bobp)) (when (equal marker (org-get-at-bol 'org-marker)) - (org-move-to-column (- (window-width) (length stamp)) t) + (org-move-to-column (- (window-width) (length stamp)) t nil t) (org-agenda-fix-tags-filter-overlays-at (point)) (if (featurep 'xemacs) ;; Use `duplicable' property to trigger undo recording diff --git a/lisp/org-compat.el b/lisp/org-compat.el index c4d15d8e6..b714f13a6 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -335,10 +335,8 @@ Works on both Emacs and XEmacs." (org-xemacs-without-invisibility (indent-line-to column)) (indent-line-to column))) -(defun org-move-to-column (column &optional force buffer) - ;; set buffer-invisibility-spec to nil so that move-to-column - ;; does the right thing despite the presence of invisible text. - (let ((buffer-invisibility-spec nil)) +(defun org-move-to-column (column &optional force buffer ignore-invisible) + (let ((buffer-invisibility-spec ignore-invisible)) (if (featurep 'xemacs) (org-xemacs-without-invisibility (move-to-column column force buffer)) (move-to-column column force))))