Просмотр исходного кода

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.
Mike Sperber 13 лет назад
Родитель
Сommit
501db42c8c
1 измененных файлов с 2 добавлено и 1 удалено
  1. 2 1
      lisp/org.el

+ 2 - 1
lisp/org.el

@@ -1281,7 +1281,8 @@ See also the variable `org-table-auto-blank-field'."
 	  (const :tag "on" t)
 	  (const :tag "on" t)
 	  (const :tag "on, optimized" optimized)))
 	  (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.
   "Non-nil means cluster self-insert commands for undo when possible.
 If this is set, then, like in the Emacs command loop, 20 consecutive
 If this is set, then, like in the Emacs command loop, 20 consecutive
 characters will be undone together.
 characters will be undone together.