From: Glenn Morris <rgm@gnu.org>
Date: Wed, 10 Jun 2015 03:34:50 +0000 (-0700)
Subject: ; * lisp/simple: Revert presumably unintentional deletion of special-mode.
X-Git-Tag: emacs-25.0.90~1813
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=683e995e53aac51eb2fea4eeaf630a51bdc714f5;p=emacs.git

; * lisp/simple: Revert presumably unintentional deletion of special-mode.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 9dfb3f25181..1eb0643ef6f 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -353,6 +353,27 @@ Other major modes are defined by comparison with this one."
   (kill-all-local-variables)
   (run-mode-hooks))
 
+;; Special major modes to view specially formatted data rather than files.
+
+(defvar special-mode-map
+  (let ((map (make-sparse-keymap)))
+    (suppress-keymap map)
+    (define-key map "q" 'quit-window)
+    (define-key map " " 'scroll-up-command)
+    (define-key map [?\S-\ ] 'scroll-down-command)
+    (define-key map "\C-?" 'scroll-down-command)
+    (define-key map "?" 'describe-mode)
+    (define-key map "h" '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))
+
 ;; Making and deleting lines.
 
 (defvar self-insert-uses-region-functions nil