branch: externals/auctex
commit 7030681599ac4f7c0bdf225d3ad708fcedec68c1
Author: Ikumi Keita <[email protected]>
Commit: Ikumi Keita <[email protected]>
* 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)))
