tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Merge branch 'maint'

Browse source
This commit is contained in:
Bastien Guerry 2014-03-25 12:04:19 +01:00
parent 6289868d28 0e344ae04a
commit 4cf2b55cb0
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/org-compat.el
View file

@ -347,18 +347,18 @@ Works on both Emacs and XEmacs."
"Move to column COLUMN.
Pass COLUMN and FORCE to `move-to-column'.
Pass BUFFER to the XEmacs version of `move-to-column'."
(let ((buffer-invisibility-spec
(if (or
;; Ignore all visibility spec in agenda
(not (derived-mode-p 'org-mode))
;; Ignore bracket links elsewere
(and (save-excursion
(forward-line 0)
(looking-at (concat "^.*" org-bracket-link-regexp)))
(member '(org-link)
buffer-invisibility-spec)))
t
buffer-invisibility-spec)))
(let* ((with-bracket-link
(save-excursion
(forward-line 0)
(looking-at (concat "^.*" org-bracket-link-regexp))))
(buffer-invisibility-spec
(cond
((or (not (derived-mode-p 'org-mode))
(and with-bracket-link (org-invisible-p2)))
(remove '(org-link) buffer-invisibility-spec))
(with-bracket-link
(remove t buffer-invisibility-spec))
(t buffer-invisibility-spec))))
(if (featurep 'xemacs)
(org-xemacs-without-invisibility
(move-to-column column force buffer))