[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/term.el,v
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/term.el,v |
Date: |
Wed, 05 Mar 2008 04:09:27 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 08/03/05 04:09:26
Index: term.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/term.el,v
retrieving revision 1.96
retrieving revision 1.97
diff -u -b -r1.96 -r1.97
--- term.el 1 Feb 2008 16:01:10 -0000 1.96
+++ term.el 5 Mar 2008 04:09:24 -0000 1.97
@@ -621,7 +621,53 @@
:type 'hook
:group 'term)
-(defvar term-mode-map nil)
+(defvar term-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map "\ep" 'term-previous-input)
+ (define-key map "\en" 'term-next-input)
+ (define-key map "\er" 'term-previous-matching-input)
+ (define-key map "\es" 'term-next-matching-input)
+ (unless (featurep 'xemacs)
+ (define-key map [?\A-\M-r]
+ 'term-previous-matching-input-from-input)
+ (define-key map [?\A-\M-s] 'term-next-matching-input-from-input))
+ (define-key map "\e\C-l" 'term-show-output)
+ (define-key map "\C-m" 'term-send-input)
+ (define-key map "\C-d" 'term-delchar-or-maybe-eof)
+ (define-key map "\C-c\C-a" 'term-bol)
+ (define-key map "\C-c\C-u" 'term-kill-input)
+ (define-key map "\C-c\C-w" 'backward-kill-word)
+ (define-key map "\C-c\C-c" 'term-interrupt-subjob)
+ (define-key map "\C-c\C-z" 'term-stop-subjob)
+ (define-key map "\C-c\C-\\" 'term-quit-subjob)
+ (define-key map "\C-c\C-m" 'term-copy-old-input)
+ (define-key map "\C-c\C-o" 'term-kill-output)
+ (define-key map "\C-c\C-r" 'term-show-output)
+ (define-key map "\C-c\C-e" 'term-show-maximum-output)
+ (define-key map "\C-c\C-l" 'term-dynamic-list-input-ring)
+ (define-key map "\C-c\C-n" 'term-next-prompt)
+ (define-key map "\C-c\C-p" 'term-previous-prompt)
+ (define-key map "\C-c\C-d" 'term-send-eof)
+ (define-key map "\C-c\C-k" 'term-char-mode)
+ (define-key map "\C-c\C-j" 'term-line-mode)
+ (define-key map "\C-c\C-q" 'term-pager-toggle)
+
+ ;; ;; completion:
+ ;; (define-key map [menu-bar completion]
+ ;; (cons "Complete" (make-sparse-keymap "Complete")))
+ ;; (define-key map [menu-bar completion complete-expand]
+ ;; '("Expand File Name" . term-replace-by-expanded-filename))
+ ;; (define-key map [menu-bar completion complete-listing]
+ ;; '("File Completion Listing" .
term-dynamic-list-filename-completions))
+ ;; (define-key map [menu-bar completion complete-file]
+ ;; '("Complete File Name" . term-dynamic-complete-filename))
+ ;; (define-key map [menu-bar completion complete]
+ ;; '("Complete Before Point" . term-dynamic-complete))
+ ;; ;; Put them in the menu bar:
+ ;; (setq menu-bar-final-items (append '(terminal completion inout signals)
+ ;; menu-bar-final-items))
+ map))
+
(defvar term-raw-map nil
"Keyboard map for sending characters directly to the inferior process.")
(defvar term-escape-char nil
@@ -725,53 +771,6 @@
[ "Enable paging" term-pager-toggle (not term-pager-count)]
[ "Disable paging" term-pager-toggle term-pager-count])))
-(unless term-mode-map
- (setq term-mode-map (make-sparse-keymap))
- (define-key term-mode-map "\ep" 'term-previous-input)
- (define-key term-mode-map "\en" 'term-next-input)
- (define-key term-mode-map "\er" 'term-previous-matching-input)
- (define-key term-mode-map "\es" 'term-next-matching-input)
- (unless (featurep 'xemacs)
- (define-key term-mode-map [?\A-\M-r]
- 'term-previous-matching-input-from-input)
- (define-key term-mode-map [?\A-\M-s] 'term-next-matching-input-from-input))
- (define-key term-mode-map "\e\C-l" 'term-show-output)
- (define-key term-mode-map "\C-m" 'term-send-input)
- (define-key term-mode-map "\C-d" 'term-delchar-or-maybe-eof)
- (define-key term-mode-map "\C-c\C-a" 'term-bol)
- (define-key term-mode-map "\C-c\C-u" 'term-kill-input)
- (define-key term-mode-map "\C-c\C-w" 'backward-kill-word)
- (define-key term-mode-map "\C-c\C-c" 'term-interrupt-subjob)
- (define-key term-mode-map "\C-c\C-z" 'term-stop-subjob)
- (define-key term-mode-map "\C-c\C-\\" 'term-quit-subjob)
- (define-key term-mode-map "\C-c\C-m" 'term-copy-old-input)
- (define-key term-mode-map "\C-c\C-o" 'term-kill-output)
- (define-key term-mode-map "\C-c\C-r" 'term-show-output)
- (define-key term-mode-map "\C-c\C-e" 'term-show-maximum-output)
- (define-key term-mode-map "\C-c\C-l" 'term-dynamic-list-input-ring)
- (define-key term-mode-map "\C-c\C-n" 'term-next-prompt)
- (define-key term-mode-map "\C-c\C-p" 'term-previous-prompt)
- (define-key term-mode-map "\C-c\C-d" 'term-send-eof)
- (define-key term-mode-map "\C-c\C-k" 'term-char-mode)
- (define-key term-mode-map "\C-c\C-j" 'term-line-mode)
- (define-key term-mode-map "\C-c\C-q" 'term-pager-toggle)
-
-; ;; completion:
-; (define-key term-mode-map [menu-bar completion]
-; (cons "Complete" (make-sparse-keymap "Complete")))
-; (define-key term-mode-map [menu-bar completion complete-expand]
-; '("Expand File Name" . term-replace-by-expanded-filename))
-; (define-key term-mode-map [menu-bar completion complete-listing]
-; '("File Completion Listing" . term-dynamic-list-filename-completions))
-; (define-key term-mode-map [menu-bar completion complete-file]
-; '("Complete File Name" . term-dynamic-complete-filename))
-; (define-key term-mode-map [menu-bar completion complete]
-; '("Complete Before Point" . term-dynamic-complete))
-; ;; Put them in the menu bar:
-; (setq menu-bar-final-items (append '(terminal completion inout signals)
-; menu-bar-final-items))
- )
-
;; Menu bars:
(unless (featurep 'xemacs)
;; terminal:
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/term.el,v,
Dan Nicolaescu <=