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

[Michael Sperber <sperber@deinprogramm.de>]

[-- Attachment #1: Type: text/plain, Size: 176 bytes --]


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

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-XEmacs-Default-org-self-insert-cluster-for-undo-also.patch --]
[-- Type: text/x-patch, Size: 1105 bytes --]

From c3496d038b46d0fb633753fa67b8f2f7e326999e Mon Sep 17 00:00:00 2001
From: Mike Sperber <sperber@deinprogramm.de>
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  <mike@xemacs.org>

	* 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