changeset: 5487:dc37764a105b tag: tip user: Didier Verna <didier(a)lrde.epita.fr&gt; date: Sat Apr 30 17:29:47 2011 +0200 files: lisp/ChangeLog lisp/dumped-lisp.el lisp/special-mode.el description: Import special-mode from GNU Emacs. -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2011-04-30 Didier Verna <didier(a)xemacs.org&gt; * special-mode.el: New file. * special-mode.el (special-mode-map): New variable. * special-mode.el (special-mode): New function. * dumped-lisp.el (preloaded-file-list): Add special-mode. diff -r 58e320bde005 -r dc37764a105b lisp/ChangeLog --- a/lisp/ChangeLog Sat Apr 30 13:30:47 2011 +0900 +++ b/lisp/ChangeLog Sat Apr 30 17:29:47 2011 +0200 ＠＠ -1,3 +1,10 ＠＠ +2011-04-30 Didier Verna <didier(a)xemacs.org&gt; + + * special-mode.el: New file. + * special-mode.el (special-mode-map): New variable. + * special-mode.el (special-mode): New function. + * dumped-lisp.el (preloaded-file-list): Add special-mode. + 2011-04-30 Stephen J. Turnbull <stephen(a)xemacs.org&gt; * faces.el (face-property-matching-instance): diff -r 58e320bde005 -r dc37764a105b lisp/dumped-lisp.el --- a/lisp/dumped-lisp.el Sat Apr 30 13:30:47 2011 +0900 +++ b/lisp/dumped-lisp.el Sat Apr 30 17:29:47 2011 +0200 ＠＠ -118,6 +118,7 ＠＠ "easy-mmode" ; Added for 21.5. Used by help. "help" "easymenu" ; Added for 20.3. + "special-mode" "lisp-mode" "text-mode" "fill" diff -r 58e320bde005 -r dc37764a105b lisp/special-mode.el --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/special-mode.el Sat Apr 30 17:29:47 2011 +0200 ＠＠ -0,0 +1,50 ＠＠ +;;; special-mode.el --- Special major mode to view specially formatted data + +;; Copyright (C) 2011 Didier Verna <didier(a)xemacs.org&gt; + +;; Maintainer: Didier Verna <didier(a)xemacs.org&gt; +;; Keywords: dumped + +;; This file is part of XEmacs. + +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by the +;; Free Software Foundation, either version 3 of the License, or (at your +;; option) any later version. + +;; XEmacs is distributed in the hope that it will be useful, but WITHOUT +;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +;; for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>;. + +;;; Commentary: + +;; This file is dumped with XEmacs. + + +;;; Code: + +;; This code is imported from GNU Emacs 23.3.1 -- dvl + +(defvar special-mode-map + (let ((map (make-sparse-keymap))) + (suppress-keymap map) + (define-key map "q" 'quit-window) + (define-key map " " 'scroll-up) + (define-key map "\C-?" 'scroll-down) + (define-key map "?" 'describe-mode) + (define-key map ">" 'end-of-buffer) + (define-key map "<" 'beginning-of-buffer) + (define-key map "g" 'revert-buffer) + map)) + +(put 'special-mode 'mode-class 'special) +(define-derived-mode special-mode nil "Special" + "Parent major mode from which special major modes should inherit." + (setq buffer-read-only t)) + + +;;; special-mode.el ends here _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches

For us, right now, it doesn't need to. I chose to dump it because in GNU Emacs, this code is part of simple.el,

Besides, it is so short that it doesn't hurt, I think.

Stephen J. Turnbull wrote:

> Is there any reason *not* to put it there, then? Yes: