ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Only use `visual-line-mode' if it's bound. 

* org.el (org-kill-line): Access `visual-line-mode' only if it's
bound.

TINYCHANGE
This commit is contained in:
Mike Sperber 2012-04-04 09:48:05 +02:00 committed by Bastien Guerry
parent 00f59ff30b
commit 872a6f75c9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org.el
View File

@ -20801,7 +20801,7 @@ depending on context."
(not (y-or-n-p "Kill hidden subtree along with headline? "))) (not (y-or-n-p "Kill hidden subtree along with headline? ")))
(error "C-k aborted - would kill hidden subtree"))) (error "C-k aborted - would kill hidden subtree")))
(call-interactively (call-interactively
(if visual-line-mode 'kill-visual-line 'kill-line))) (if (and (boundp 'visual-line-mode) visual-line-mode) 'kill-visual-line 'kill-line)))
((looking-at (org-re ".*?\\S-\\([ \t]+\\(:[[:alnum:]_@#%:]+:\\)\\)[ \t]*$")) ((looking-at (org-re ".*?\\S-\\([ \t]+\\(:[[:alnum:]_@#%:]+:\\)\\)[ \t]*$"))
(kill-region (point) (match-beginning 1)) (kill-region (point) (match-beginning 1))
(org-set-tags nil t)) (org-set-tags nil t))