[AUCTeX-diffs] [elpa] externals/auctex 7030681 29/67: * tex-buf.el (TeX-special-mode): Use `define-derived-mode'.

[Tassilo Horn]

branch: externals/auctex
commit 7030681599ac4f7c0bdf225d3ad708fcedec68c1
Author: Ikumi Keita <address@hidden>
Commit: Ikumi Keita <address@hidden>

    * tex-buf.el (TeX-special-mode): Use `define-derived-mode'.
---
 tex-buf.el | 30 +-----------------------------
 1 file changed, 1 insertion(+), 29 deletions(-)

diff --git a/tex-buf.el b/tex-buf.el
index 61921c8..3a6203b 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -3836,35 +3836,7 @@ warnings and bad boxes"
 
 ;;; Output mode
 
-(defalias 'TeX-special-mode
-  (if (fboundp 'special-mode)
-      (progn
-        (defvaralias 'TeX-special-mode-map 'special-mode-map)
-        #'special-mode)
-    (defvar TeX-special-mode-map
-      (let ((map (make-sparse-keymap)))
-        (suppress-keymap map)
-        (define-key map "q" (if (fboundp 'quit-window)
-                                'quit-window
-                              'bury-buffer))
-        (define-key map " " (if (fboundp 'scroll-up-command)
-                                'scroll-up-command
-                              'scroll-up))
-        (define-key map [backspace] (if (fboundp 'scroll-down-command)
-                                        'scroll-down-command
-                                      'scroll-down))
-        (define-key map "\C-?" (if (fboundp 'scroll-down-command)
-                                   'scroll-down-command
-                                 'scroll-down))
-        (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)
-      "Keymap for `TeX-special-mode-map'.")
-    (lambda ()
-      "Placeholder mode for Emacsen which don't have `special-mode'.")))
+(define-derived-mode TeX-special-mode special-mode "TeX")
 
 (defvar TeX-output-mode-map
   (let ((map (make-sparse-keymap)))