diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2013-08-31 15:44:34 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2013-08-31 15:44:34 +0200 |
commit | 7f9d0688d47140bcac7bea627474802adfce31ee (patch) | |
tree | a649c38d37169b6e1d7a5dfaf7af7487b0406adc | |
parent | 76dc3eb0af3ed715ddfbabc11a1443234f0542bd (diff) | |
download | org-mode-7f9d0688d47140bcac7bea627474802adfce31ee.tar.gz |
Fix cursor movement to a specific column
* lisp/org-compat.el (org-move-to-column): Turn off invisibility stuff
for moving the cursor to a column.
Pathc by Nick Dokos
-rw-r--r-- | lisp/org-compat.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/org-compat.el b/lisp/org-compat.el index d10aeea..c4d15d8 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -336,9 +336,12 @@ Works on both Emacs and XEmacs." (indent-line-to column))) (defun org-move-to-column (column &optional force buffer) - (if (featurep 'xemacs) - (org-xemacs-without-invisibility (move-to-column column force buffer)) - (move-to-column column force))) + ;; 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)) + (if (featurep 'xemacs) + (org-xemacs-without-invisibility (move-to-column column force buffer)) + (move-to-column column force)))) (defun org-get-x-clipboard-compat (value) "Get the clipboard value on XEmacs or Emacs 21." |