Mercurial > emacs

--- a/lisp/ChangeLog	Thu Dec 03 20:03:55 2009 +0000
+++ b/lisp/ChangeLog	Fri Dec 04 04:39:21 2009 +0000
@@ -1,3 +1,16 @@
+2009-12-04  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	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  <dann@ics.uci.edu>

 	Limit the number of log entries displayed by default.
@@ -11,14 +24,13 @@

 2009-12-03  Alan Mackenzie  <acm@muc.de>

-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
+	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):  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)
--- a/lisp/term.el	Thu Dec 03 20:03:55 2009 +0000
+++ b/lisp/term.el	Fri Dec 04 04:39:21 2009 +0000
@@ -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))
@@ -1375,7 +1362,7 @@
 You can use this to cheaply run a series of processes in the same term
 buffer.  The hook `term-exec-hook' is run after each exec."
   (with-current-buffer buffer
-    (let ((proc (get-buffer-process buffer)))	; Blast any old process.
+    (let ((proc (get-buffer-process buffer))) ; Blast any old process.
       (when proc (delete-process proc)))
     ;; Crank up a new process
     (let ((proc (term-exec-1 name buffer command switches)))
@@ -1387,20 +1374,19 @@
       (set-process-filter proc 'term-emulate-terminal)
       (set-process-sentinel proc 'term-sentinel)
       ;; Feed it the startfile.
-      (cond (startfile
-	     ;;This is guaranteed to wait long enough
-	     ;;but has bad results if the term does not prompt at all
-	     ;;	     (while (= size (buffer-size))
-	     ;;	       (sleep-for 1))
-	     ;;I hope 1 second is enough!
-	     (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)))
+      (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))
+        ;;	       (sleep-for 1))
+        ;;I hope 1 second is enough!
+        (sleep-for 1)
+        (goto-char (point-max))
+        (insert-file-contents 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)