diff options
author | Bastien Guerry <bzg@altern.org> | 2013-11-06 10:02:18 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-11-06 10:02:18 +0100 |
commit | 990339ea23a9b220d8eb97f246d94b35fc38c431 (patch) | |
tree | df47c2d1c5d56ecc377ddc5ad36bb9deec81b7eb | |
parent | 28ccbed5231c131648c33c10611ea16754df0a12 (diff) | |
parent | 2911965bfef9072a3031d48dfe2ea50bcb3ff9df (diff) | |
download | org-mode-990339ea23a9b220d8eb97f246d94b35fc38c431.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/org-agenda.el | 2 | ||||
-rw-r--r-- | 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 f9aac48..b818073 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -9145,7 +9145,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 c4d15d8..b714f13 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)))) |