Provide 'term/name in lisp/term files.

* lisp/term/AT386.el, lisp/term/bobcat.el, lisp/term/cygwin.el:
* lisp/term/internal.el, lisp/term/iris-ansi.el, lisp/term/linux.el:
* lisp/term/lk201.el, lisp/term/news.el, lisp/term/ns-win.el:
* lisp/term/pc-win.el, lisp/term/rxvt.el, lisp/term/screen.el:
* lisp/term/sun.el, lisp/term/tty-colors.el, lisp/term/tvi970.el:
* lisp/term/vt100.el, lisp/term/vt200.el, lisp/term/w32-win.el:
* lisp/term/w32console.el, lisp/term/wyse50.el, lisp/term/x-win.el:
For consistency, provide 'term/name in all files that don't already.
This commit is contained in:
Glenn Morris 2016-02-15 21:59:40 -08:00
parent 220613e089
commit d5e827929c
21 changed files with 38 additions and 0 deletions

View file

@ -54,4 +54,6 @@
(define-key local-function-key-map [ALT] [27])
))
(provide 'term/AT386)
;;; AT386.el ends here

View file

@ -5,4 +5,6 @@
(keyboard-translate ?\177 ?\^h)
(keyboard-translate ?\^h ?\177))
(provide 'term/bobcat)
;;; bobcat.el ends here

View file

@ -6,4 +6,6 @@
"Terminal initialization function for cygwin."
(tty-no-underline))
(provide 'term/cygwin)
;;; cygwin.el ends here

View file

@ -604,4 +604,6 @@ list. You can (and should) also run it if and when the value of
(run-hooks 'dos-codepage-setup-hook)
))
(provide 'term/internal)
;;; internal.el ends here

View file

@ -327,4 +327,6 @@
(set-keymap-parent m (keymap-parent input-decode-map))
(set-keymap-parent input-decode-map m)))
(provide 'term/iris-ansi)
;;; iris-ansi.el ends here

View file

@ -19,4 +19,6 @@
;; The arg only matters in that it is not t or nil.
(set-input-meta-mode 'iso-latin-1))
(provide 'term/linux)
;;; linux.el ends here

View file

@ -80,4 +80,6 @@
(set-keymap-parent m (keymap-parent input-decode-map))
(set-keymap-parent input-decode-map m)))
(provide 'term/lk201)
;;; lk201.el ends here

View file

@ -66,4 +66,6 @@
(define-key news-fkey-prefix "x" [kp-8])
))
(provide 'term/news)
;;; news.el ends here

View file

@ -936,5 +936,6 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
(ns-get-selection selection-symbol target-type))
(provide 'ns-win)
(provide 'term/ns-win)
;;; ns-win.el ends here

View file

@ -388,5 +388,6 @@ Errors out because it is not supposed to be called, ever."
;; ---------------------------------------------------------------------------
(provide 'pc-win)
(provide 'term/pc-win)
;;; pc-win.el ends here

View file

@ -195,4 +195,6 @@
(* (apply '+ (car (cddr (nth 15 rxvt-standard-colors)))) 0.6))
(set-terminal-parameter nil 'background-mode 'dark)))))
(provide 'term/rxvt)
;;; rxvt.el ends here

View file

@ -20,4 +20,6 @@ it runs, which can change when the screen session is moved to another tty."
(let ((xterm-extra-capabilities xterm-screen-extra-capabilities))
(tty-run-terminal-initialization (selected-frame) "xterm")))
(provide 'term/screen)
;; screen.el ends here

View file

@ -158,4 +158,6 @@
(eval (car hooks))
(setq hooks (cdr hooks))))))
(provide 'term/sun)
;;; sun.el ends here

View file

@ -1035,4 +1035,6 @@ A color is considered gray if the 3 components of its RGB value are equal."
(setq colors (cdr colors)))
count))
(provide 'term/tty-colors)
;;; tty-colors.el ends here

View file

@ -115,4 +115,6 @@ which the keypad's keys act as ordinary digits."
(send-string-to-terminal
(if (terminal-parameter nil 'tvi970-keypad-numeric) "\e=" "\e>")))
(provide 'term/tvi970)
;;; tvi970.el ends here

View file

@ -48,4 +48,6 @@ switch to 132-column mode if ARG is omitted or nil."
(send-string-to-terminal (if vt100-wide-mode "\e[?3h" "\e[?3l"))
(set-frame-width terminal-frame (if vt100-wide-mode 132 80)))
(provide 'term/vt100)
;;; vt100.el ends here

View file

@ -7,4 +7,6 @@
(define-key input-decode-map "\e[23~" [f11]) ;Probably redundant.
(define-key local-function-key-map [f11] [?\e]))
(provide 'term/vt200)
;;; vt200.el ends here

View file

@ -463,5 +463,6 @@ That includes all Windows systems except for 9X/Me."
(getenv "SystemRoot"))
(provide 'w32-win)
(provide 'term/w32-win)
;;; w32-win.el ends here

View file

@ -93,4 +93,6 @@
(tty-set-up-initial-frame-faces)
(run-hooks 'terminal-init-w32-hook))
(provide 'term/w32console)
;;; w32console.el ends here

View file

@ -155,4 +155,6 @@ M-r M-x move-to-window-line, Funct up-arrow or down-arrow are similar"
;; (nth 1 key-definition)))
(fset 'enable-arrow-keys nil))
(provide 'term/wyse50)
;;; wyse50.el ends here

View file

@ -1487,5 +1487,6 @@ This uses `icon-map-list' to map icon file names to stock icon names."
(global-set-key [XF86WakeUp] 'ignore)
(provide 'x-win)
(provide 'term/x-win)
;;; x-win.el ends here