[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] Only use `visual-line-mode if it's bound`[WAS: Current patches for X
From: |
Michael Sperber |
Subject: |
[O] Only use `visual-line-mode if it's bound`[WAS: Current patches for XEmacs] |
Date: |
Sat, 07 Apr 2012 21:00:35 +0200 |
User-agent: |
Gnus/5.110011 (No Gnus v0.11) XEmacs/21.5-b31 (darwin) |
Bastien <address@hidden> writes:
> Can you send each patch in a separate email using
> `git format-patch'?
Attached. The second one will follow shortly.
--
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla
>From 18a83ce61fb420e85987e77f8506c01023a22c16 Mon Sep 17 00:00:00 2001
From: Mike Sperber <address@hidden>
Date: Wed, 4 Apr 2012 09:48:05 +0200
Subject: [PATCH] Only use `visual-line-mode' if it's bound.
* org.el (org-kill-line): Access `visual-line-mode' only if it's
bound.
---
lisp/org.el | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el
index b83700f..8d9d793 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -20793,7 +20793,7 @@ depending on context."
(not (y-or-n-p "Kill hidden subtree along with headline? ")))
(error "C-k aborted - would kill hidden subtree")))
(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:address@hidden:]+:\\)\\)[ \t]*$"))
(kill-region (point) (match-beginning 1))
(org-set-tags nil t))
--
1.7.0.5