| 1 |
commit: 2052ab77d3856593ae6c41d305377058d22ed0d2 |
| 2 |
Author: Ulrich Müller <ulm <AT> gentoo <DOT> org> |
| 3 |
AuthorDate: Sun May 1 17:15:38 2022 +0000 |
| 4 |
Commit: Ulrich Müller <ulm <AT> gentoo <DOT> org> |
| 5 |
CommitDate: Sun May 1 17:15:38 2022 +0000 |
| 6 |
URL: https://gitweb.gentoo.org/proj/eselect.git/commit/?id=2052ab77 |
| 7 |
|
| 8 |
Drop XEmacs compatibility code in eselect-mode |
| 9 |
|
| 10 |
* misc/eselect-mode.el (eselect-mode-before-save): |
| 11 |
Call delete-trailing-whitespace which exists in XEmacs 21.5. |
| 12 |
|
| 13 |
Signed-off-by: Ulrich Müller <ulm <AT> gentoo.org> |
| 14 |
|
| 15 |
ChangeLog | 2 ++ |
| 16 |
misc/eselect-mode.el | 6 +----- |
| 17 |
2 files changed, 3 insertions(+), 5 deletions(-) |
| 18 |
|
| 19 |
diff --git a/ChangeLog b/ChangeLog |
| 20 |
index 83b0289..4ef1610 100644 |
| 21 |
--- a/ChangeLog |
| 22 |
+++ b/ChangeLog |
| 23 |
@@ -2,6 +2,8 @@ |
| 24 |
|
| 25 |
* misc/eselect-mode.el (eselect-mode): For GNU Emacs, use |
| 26 |
write-contents-functions instead of obsolete write-contents-hooks. |
| 27 |
+ (eselect-mode-before-save): Call delete-trailing-whitespace which |
| 28 |
+ exists in XEmacs 21.5. |
| 29 |
|
| 30 |
2022-01-08 Ulrich Müller <ulm@g.o> |
| 31 |
|
| 32 |
|
| 33 |
diff --git a/misc/eselect-mode.el b/misc/eselect-mode.el |
| 34 |
index 50e88d6..3bdac81 100644 |
| 35 |
--- a/misc/eselect-mode.el |
| 36 |
+++ b/misc/eselect-mode.el |
| 37 |
@@ -96,11 +96,7 @@ |
| 38 |
;;; Mode definitions. |
| 39 |
|
| 40 |
(defun eselect-mode-before-save () |
| 41 |
- ;;(delete-trailing-whitespace) ; doesn't exist in XEmacs |
| 42 |
- (save-excursion |
| 43 |
- (goto-char (point-min)) |
| 44 |
- (while (re-search-forward "[ \t]+$" nil t) |
| 45 |
- (delete-region (match-beginning 0) (point)))) |
| 46 |
+ (delete-trailing-whitespace) |
| 47 |
;; return nil, otherwise the file is presumed to be written |
| 48 |
nil) |
Archives