commit/XEmacs: kehoea: #'delete-trailing-whitespace needs to work when the region is inactive, too

1 new commit in XEmacs: https://bitbucket.org/xemacs/xemacs/changeset/0eb4e96fd261/ changeset: 0eb4e96fd261 user: kehoea date: 2012-09-08 17:33:48 summary: #'delete-trailing-whitespace needs to work when the region is inactive, too lisp/ChangeLog addition: Update its interactive spec to work correctly in XEmacs. affected #: 2 files diff -r 98f762d06c5fb95ba6a6d1883e1cf65f7aca8f13 -r 0eb4e96fd261faa9079b4b6fef400815d660883a lisp/ChangeLog --- a/lisp/ChangeLog +++ b/lisp/ChangeLog ＠＠ -5,6 +5,7 ＠＠ * simple.el (delete-trailing-whitespace): New. Import this function and an associated variable from GNU, thank you GNU. + Update its interactive spec to work correctly in XEmacs. 2012-09-07 Aidan Kehoe <kehoea(a)parhasard.net&gt; diff -r 98f762d06c5fb95ba6a6d1883e1cf65f7aca8f13 -r 0eb4e96fd261faa9079b4b6fef400815d660883a lisp/simple.el --- a/lisp/simple.el +++ b/lisp/simple.el ＠＠ -391,8 +391,13 ＠＠ interactively with the mark inactive, or called from Lisp with END nil), it also deletes all trailing lines at the end of the buffer if the variable `delete-trailing-lines' is non-nil." - ;; XEmacs; "*r" instead of re-implementing it. - (interactive "*r") + (interactive (progn + (barf-if-buffer-read-only) + (if (if zmacs-regions + zmacs-region-active-p + (eq (marker-buffer (mark-marker t)) (current-buffer))) + (list (region-beginning) (region-end)) + (list nil nil)))) (save-match-data (save-excursion (let ((end-marker (copy-marker (or end (point-max)))) Repository URL: https://bitbucket.org/xemacs/xemacs/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches