[Emacs-diffs] emacs/lisp ChangeLog term.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/12/04 04:39:26

Modified files:
        lisp           : ChangeLog term.el 

Log message:
        Minor cleanup.
        * term.el (term-send-raw, term-send-raw-meta): Use read-key-sequence's
        key decoding rather than do it manually via last-input-event + 
ascii-character.
        (term-exec): Use delete-and-extract-region.
        (term-handle-ansi-terminal-messages): Remove unused var `end'.
        (term-process-pager): Remove unused var `i'.
        (term-dynamic-simple-complete): Make obsolete.
        (serial-update-config-menu): Remove unused vars `y' and `str'.
        (term-update-mode-line): Remove unused var `temp'.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16816&r2=1.16817
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/term.el?cvsroot=emacs&r1=1.124&r2=1.125

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16816
retrieving revision 1.16817
diff -u -b -r1.16816 -r1.16817
--- ChangeLog   3 Dec 2009 19:12:52 -0000       1.16816
+++ ChangeLog   4 Dec 2009 04:39:21 -0000       1.16817
@@ -1,3 +1,16 @@
+2009-12-04  Stefan Monnier  <address@hidden>
+
+       Minor cleanup.
+       * term.el (term-send-raw, term-send-raw-meta): Use read-key-sequence's
+       key decoding rather than do it manually via last-input-event +
+       ascii-character.
+       (term-exec): Use delete-and-extract-region.
+       (term-handle-ansi-terminal-messages): Remove unused var `end'.
+       (term-process-pager): Remove unused var `i'.
+       (term-dynamic-simple-complete): Make obsolete.
+       (serial-update-config-menu): Remove unused vars `y' and `str'.
+       (term-update-mode-line): Remove unused var `temp'.
+
 2009-12-03  Dan Nicolaescu  <address@hidden>
 
        Limit the number of log entries displayed by default.
@@ -11,14 +24,13 @@
 
 2009-12-03  Alan Mackenzie  <address@hidden>
 
-Enhance `c-parse-state' to run efficiently in "brace desserts".
+       Enhance `c-parse-state' to run efficiently in "brace desserts".
 
-       * progmodes/cc-mode.el (c-basic-common-init): Call
-       c-state-cache-init.
-       (c-neutralize-syntax-in-and-mark-CPP):  Renamed from
+       * progmodes/cc-mode.el (c-basic-common-init):
+       Call c-state-cache-init.
+       (c-neutralize-syntax-in-and-mark-CPP):  Rename from
        c-extend-and-neutralize-syntax-in-CPP.  Mark each CPP construct by
-       placing `category' properties value 'c-cpp-delimiter at its
-       boundaries.
+       placing `category' properties value 'c-cpp-delimiter at its boundaries.
 
        * progmodes/cc-langs.el (c-before-font-lock-function):
        c-extend-and-neutralize-syntax-in-CPP has been renamed
@@ -50,14 +62,13 @@
        (c-remove-stale-state-cache-backwards, c-state-cache-init)
        (c-invalidate-state-cache-1, c-parse-state-1)
        (c-invalidate-state-cache): New defuns/defmacros/defsubsts.
-       (c-parse-state): Enhanced and refactored.
-       (c-debug-parse-state): Amended to deal with all the new variables.
+       (c-parse-state): Enhance and refactor.
+       (c-debug-parse-state): Amend to deal with all the new variables.
 
        * progmodes/cc-defs.el (c-<-as-paren-syntax, c-mark-<-as-paren)
        (c->-as-paren-syntax, c-mark->-as-paren, c-unmark-<->-as-paren):
-       modify to use category text properties rather than syntax-table
-       ones.
-       (c-suppress-<->-as-parens, c-restore-<->-as-parens): new defsubsts
+       modify to use category text properties rather than syntax-table ones.
+       (c-suppress-<->-as-parens, c-restore-<->-as-parens): New defsubsts
        to switch off/on the syntactic paren property of C++ template
        delimiters using the category property.
        (c-with-<->-as-parens-suppressed): Macro to invoke code with
@@ -65,7 +76,7 @@
        (c-cpp-delimiter, c-set-cpp-delimiters, c-clear-cpp-delimiters):
        New constant/macros which apply category properties to the start
        and end of preprocessor constructs.
-       (c-comment-out-cpps, c-uncomment-out-cpps): defsubsts which
+       (c-comment-out-cpps, c-uncomment-out-cpps): Defsubsts which
        "comment out" the syntactic value of characters in preprocessor
        constructs.
        (c-with-cpps-commented-out)

Index: term.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/term.el,v
retrieving revision 1.124
retrieving revision 1.125
diff -u -b -r1.124 -r1.125
--- term.el     13 Nov 2009 22:19:55 -0000      1.124
+++ term.el     4 Dec 2009 04:39:25 -0000       1.125
@@ -1203,25 +1203,13 @@
   "Send the last character typed through the terminal-emulator
 without any interpretation."
   (interactive)
-  ;; Convert `return' to C-m, etc.
-  (when (and (symbolp last-input-event)
-            (get last-input-event 'ascii-character))
-    (setq last-input-event (get last-input-event 'ascii-character)))
-  (term-send-raw-string (make-string 1 last-input-event)))
+  (let ((keys (this-command-keys)))
+    (term-send-raw-string (string (aref keys (1- (length keys)))))))
 
 (defun term-send-raw-meta ()
   (interactive)
-  (let ((char last-input-event))
-    (when (symbolp last-input-event)
-      ;; Convert `return' to C-m, etc.
-      (let ((tmp (get char 'event-symbol-elements)))
-       (when tmp
-         (setq char (car tmp)))
-       (when (symbolp char)
-         (setq tmp (get char 'ascii-character))
-         (when tmp
-           (setq char tmp)))))
-    (setq char (event-basic-type char))
+  (let* ((keys (this-command-keys))
+         (char (aref keys (1- (length keys)))))
     (term-send-raw-string (if (and (numberp char)
                                   (> char 127)
                                   (< char 256))
@@ -1303,7 +1291,6 @@
         (term-page (when (term-pager-enabled) " page"))
         (serial-item-speed)
         (serial-item-config)
-        (temp)
         (proc (get-buffer-process (current-buffer))))
     (when (and (term-check-proc (current-buffer))
                (equal (process-type nil) 'serial))
@@ -1387,7 +1374,7 @@
       (set-process-filter proc 'term-emulate-terminal)
       (set-process-sentinel proc 'term-sentinel)
       ;; Feed it the startfile.
-      (cond (startfile
+      (when startfile
             ;;This is guaranteed to wait long enough
             ;;but has bad results if the term does not prompt at all
             ;;      (while (= size (buffer-size))
@@ -1396,11 +1383,10 @@
             (sleep-for 1)
             (goto-char (point-max))
             (insert-file-contents startfile)
-            (setq startfile (buffer-substring (point) (point-max)))
-            (delete-region (point) (point-max))
-            (term-send-string proc startfile)))
+       (term-send-string
+        proc (delete-and-extract-region (point) (point-max)))))
     (run-hooks 'term-exec-hook)
-    buffer)))
+    buffer))
 
 (defun term-sentinel (proc msg)
   "Sentinel for term buffers.
@@ -2668,7 +2654,6 @@
   (while (string-match "\eAnSiT.+\n" message)
     ;; Extract the command code and the argument.
     (let* ((start (match-beginning 0))
-          (end (match-end 0))
           (command-code (aref message (+ start 6)))
           (argument
            (save-match-data
@@ -3482,7 +3467,8 @@
 (defun term-process-pager ()
   (when (not term-pager-break-map)
     (let* ((map (make-keymap))
-          (i 0) tmp)
+           ;; (i 0)
+           tmp)
       ;; (while (< i 128)
       ;;   (define-key map (make-string 1 i) 'term-send-raw)
       ;;   (setq i (1+ i)))
@@ -3920,7 +3906,6 @@
 ;; term-dynamic-list-filename-completions List completions in help buffer.
 ;; term-replace-by-expanded-filename   Expand and complete filename at point;
 ;;                                     replace with expanded/completed name.
-;; term-dynamic-simple-complete                Complete stub given candidates.
 
 ;; These are not installed in the term-mode keymap.  But they are
 ;; available for people who want them.  Shell-mode installs them:
@@ -4129,6 +4114,7 @@
                   (t
                    (message "Partially completed")
                    'partial)))))))
+(make-obsolete 'term-dynamic-simple-complete 'completion-in-region "23.2")
 
 
 (defun term-dynamic-list-filename-completions ()
@@ -4434,9 +4420,7 @@
 (defun serial-update-config-menu ()
   (setq serial-mode-line-config-menu (make-sparse-keymap "Configuration"))
   (let ((config (process-contact
-                 (get-buffer-process (current-buffer)) t))
-        (y)
-        (str))
+                 (get-buffer-process (current-buffer)) t)))
     (dolist (y '((:flowcontrol hw   "Hardware flowcontrol (RTS/CTS)")
                  (:flowcontrol sw   "Software flowcontrol (XON/XOFF)")
                  (:flowcontrol nil  "No flowcontrol")
@@ -4537,7 +4521,7 @@
 ;; For modes that use term-mode, term-dynamic-complete-functions is the
 ;; hook to add completion functions to.  Functions on this list should return
 ;; non-nil if completion occurs (i.e., further completion should not occur).
-;; You could use term-dynamic-simple-complete to do the bulk of the
+;; You could use completion-in-region to do the bulk of the
 ;; completion job.
 
 (provide 'term)