Commits

Anonymous committed 0a3aed6

Patch by Ilya N. Golubev <gin@mo.msk.ru> in <09663f7dd3fb06-gin@mo.msk.ru>.

  • Participants
  • Parent commits 052bdba

Comments (0)

Files changed (3)

+2003-10-03  Ilya N. Golubev  <gin@mo.msk.ru>
+
+	* background.el (background-search-job-space): Fix byte-compiler
+	warning.
+	(background): Fix (usually not happening) direct
+	`background-get-job-name-simple' call.
+
+	* rlogin.el (rlogin-parse-words): Fix (supposed) match-data
+	restoring.
+
 2003-10-03  Ilya N. Golubev  <gin@mo.msk.ru>
 
 	* rlogin.el (rlogin): Remove unneeded duplication of process

File background.el

 
 
 (defun background-search-job-space (form)
-  (let ((job-number 1)
-        job-name)
-    (while (get-process (setq job-name  (format form job-number)))
+  (let ((job-number 1))
+    (while (get-process (format form job-number))
       (setq job-number (1+ job-number)))
     job-number))
   
   (let* ((dir default-directory)
          (job-name (if (functionp background-get-job-name)
                        (apply background-get-job-name (list command dir))
-                     (background-get-job-name-simple (list command dir)))))
+                     (background-get-job-name-simple command dir))))
     (or buffer-name
 	(setq buffer-name (format "*%s*" job-name)))
     (if background-select (pop-to-buffer buffer-name)
       (setq list (cons (substring line (match-beginning 0) (match-end 0))
                        list))
       (setq posn (match-end 0)))
-    (set-match-data (match-data))
+    (set-match-data match-data)
     (nreverse list)))
 
 (defun rlogin-carriage-filter (string)