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:
parent
220613e089
commit
d5e827929c
21 changed files with 38 additions and 0 deletions
|
|
@ -54,4 +54,6 @@
|
|||
(define-key local-function-key-map [ALT] [27])
|
||||
))
|
||||
|
||||
(provide 'term/AT386)
|
||||
|
||||
;;; AT386.el ends here
|
||||
|
|
|
|||
|
|
@ -5,4 +5,6 @@
|
|||
(keyboard-translate ?\177 ?\^h)
|
||||
(keyboard-translate ?\^h ?\177))
|
||||
|
||||
(provide 'term/bobcat)
|
||||
|
||||
;;; bobcat.el ends here
|
||||
|
|
|
|||
|
|
@ -6,4 +6,6 @@
|
|||
"Terminal initialization function for cygwin."
|
||||
(tty-no-underline))
|
||||
|
||||
(provide 'term/cygwin)
|
||||
|
||||
;;; cygwin.el ends here
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -66,4 +66,6 @@
|
|||
(define-key news-fkey-prefix "x" [kp-8])
|
||||
))
|
||||
|
||||
(provide 'term/news)
|
||||
|
||||
;;; news.el ends here
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -158,4 +158,6 @@
|
|||
(eval (car hooks))
|
||||
(setq hooks (cdr hooks))))))
|
||||
|
||||
(provide 'term/sun)
|
||||
|
||||
;;; sun.el ends here
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -93,4 +93,6 @@
|
|||
(tty-set-up-initial-frame-faces)
|
||||
(run-hooks 'terminal-init-w32-hook))
|
||||
|
||||
(provide 'term/w32console)
|
||||
|
||||
;;; w32console.el ends here
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue