diff options
| author | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:34 +0200 |
|---|---|---|
| committer | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:34 +0200 |
| commit | 77ddd382df838e38504b822e729250b2a6dd9b63 (patch) | |
| tree | 797a630f5c1131dcbe01d3105f75b38fb03f92a2 /lisp/org-compat.el | |
| parent | efc77ab6f5e8883fc38d8c6f75b6db54a0965c15 (diff) | |
Imported Upstream version 8.2.6
Diffstat (limited to 'lisp/org-compat.el')
| -rw-r--r-- | lisp/org-compat.el | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 1553e4f..70c41d5 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -343,10 +343,25 @@ 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 ignore-invisible) - (let ((buffer-invisibility-spec ignore-invisible)) +(defun org-move-to-column (column &optional force buffer) + "Move to column COLUMN. +Pass COLUMN and FORCE to `move-to-column'. +Pass BUFFER to the XEmacs version of `move-to-column'." + (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)) + (org-xemacs-without-invisibility + (move-to-column column force buffer)) (move-to-column column force)))) (defun org-get-x-clipboard-compat (value) |