emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] PATCH[1/3]: Activate `org-self-insert-cluster-for-undo' in XEmacs


From: Michael Sperber
Subject: [O] PATCH[1/3]: Activate `org-self-insert-cluster-for-undo' in XEmacs
Date: Thu, 30 Aug 2012 09:54:00 +0200
User-agent: Gnus/5.110011 (No Gnus v0.11) XEmacs/21.5-b31 (darwin)

I've attached a patch (1 out of 3) that's minimally needed to make
the current org-mode work on XEmacs.

-- 
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla
>From c3496d038b46d0fb633753fa67b8f2f7e326999e Mon Sep 17 00:00:00 2001
From: Mike Sperber <address@hidden>
Date: Sat, 25 Aug 2012 17:35:35 +0200
Subject: [PATCH 1/3] XEmacs: Default `org-self-insert-cluster-for-undo' also on 
XEmacs.

2012-08-25  Michael Sperber  <address@hidden>

        * org.el (org-self-insert-cluster-for-undo): Default
        `org-self-insert-cluster-for-undo' also on XEmacs.
---
 lisp/org.el |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 96b5584..98bebba 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -1281,7 +1281,8 @@ See also the variable `org-table-auto-blank-field'."
          (const :tag "on" t)
          (const :tag "on, optimized" optimized)))
 
-(defcustom org-self-insert-cluster-for-undo (version<= emacs-version "24.1")
+(defcustom org-self-insert-cluster-for-undo (or (featurep 'xemacs)
+                                               (version<= emacs-version 
"24.1"))
   "Non-nil means cluster self-insert commands for undo when possible.
 If this is set, then, like in the Emacs command loop, 20 consecutive
 characters will be undone together.
-- 
1.7.0.5


reply via email to

[Prev in Thread] Current Thread [Next in Thread]