PATCH[2/3]: Make call to `fill-paragraph' work on XEmacs.

PATCH[2/3]: Make call to `fill-paragraph' work on XEmacs.

[Michael Sperber]

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


Attached is patch #2 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

PATCH[2/3]: Make call to `fill-paragraph' work on XEmacs. [THIS IS THE PATCH]

[Michael Sperber]

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


Sorry, I included the wrong patch.

-- 
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0002-XEmacs-Make-call-to-fill-paragraph-work-on-XEmacs.patch --]
[-- Type: text/x-patch, Size: 1001 bytes --]

From 0c684c748c7548f5b70cc6231ef68818d15df49d Mon Sep 17 00:00:00 2001
From: Mike Sperber <sperber@deinprogramm.de>
Date: Sat, 25 Aug 2012 17:36:18 +0200
Subject: [PATCH 2/3] XEmacs: Make call to `fill-paragraph' work on XEmacs.

2012-08-25  Michael Sperber  <mike@xemacs.org>
	(org-fill-paragraph): Pass optional argument to
	`fill-paragraph', which is mandatory for XEmacs.
---
 lisp/org.el |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 98bebba..4d6acd8 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -21057,7 +21057,7 @@ a footnote definition, try to fill the first paragraph within."
 	    (paragraph-start (cadadr (assoc 'paragraph-start org-fb-vars)))
 	    (paragraph-separate
 	     (cadadr (assoc 'paragraph-separate org-fb-vars))))
-	(fill-paragraph))
+	(fill-paragraph nil))
     (save-excursion
       ;; Move to end of line in order to get the first paragraph within
       ;; a plain list or a footnote definition.
-- 
1.7.0.5

Re: PATCH[2/3]: Make call to `fill-paragraph' work on XEmacs.

[Bastien]

Michael Sperber <sperber@deinprogramm.de> writes:

> Attached is patch #2 needed to make the current org-mode work on
> XEmacs.

This is the same patch than patch #1.

Can you resend it?

Thanks,

-- 
 Bastien

Re: PATCH[2/3]: Make call to `fill-paragraph' work on XEmacs. [THIS IS THE PATCH]

[Bastien]

Michael Sperber <sperber@deinprogramm.de> writes:

> Sorry, I included the wrong patch.

Applied, thanks!

-- 
 Bastien