Mercurial > emacs

changeset 15956:0cefc98d243d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(server-visit-files): New argument NOWAIT. Don't record on server-buffer-clienjts if NOWAIT. (server-process-filter): Pass NOWAIT arg based on data from server. Don't record in server-clients if NOWAIT.
author Richard M. Stallman <rms@gnu.org>
date Wed, 28 Aug 1996 23:26:13 +0000
parents 32d772cba2c1
children 7efe73695144
files lisp/server.el
diffstat 1 files changed, 24 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/server.el	Wed Aug 28 22:44:18 1996 +0000
+++ b/lisp/server.el	Wed Aug 28 23:26:13 1996 +0000
@@ -185,7 +185,7 @@
   ;; process each line individually.
   (while (string-match "\n" string)
     (let ((request (substring string 0 (match-beginning 0)))
-	  client
+	  client nowait
 	  (files nil)
 	  (lineno 1))
       ;; Remove this line from STRING.
@@ -197,23 +197,27 @@
 	      (setq request (substring request (match-end 0)))
 	      (setq client (list (substring request 0 (string-match " " request))))
 	      (setq request (substring request (match-end 0)))
+	      (setq foofoo request)
 	      (while (string-match "[^ ]+ " request)
 		(let ((arg
 		       (substring request (match-beginning 0) (1- (match-end 0)))))
 		  (setq request (substring request (match-end 0)))
-		  (if (string-match "\\`\\+[0-9]+\\'" arg)
-		      ;; ARG is a line number option.
-		      (setq lineno (read (substring arg 1)))
-		    ;; ARG is a file name.
-		    ;; Collapse multiple slashes to single slashes.
-		    (setq arg (command-line-normalize-file-name arg))
-		    (setq files
-			  (cons (list arg lineno)
-				files))
-		    (setq lineno 1))))
-	      (server-visit-files files client)
+		  (if (string-match "\\`-nowait" arg)
+		      (setq nowait t)
+		    (if (string-match "\\`\\+[0-9]+\\'" arg)
+			;; ARG is a line number option.
+			(setq lineno (read (substring arg 1)))
+		      ;; ARG is a file name.
+		      ;; Collapse multiple slashes to single slashes.
+		      (setq arg (command-line-normalize-file-name arg))
+		      (setq files
+			    (cons (list arg lineno)
+				  files))
+		      (setq lineno 1)))))
+	      (server-visit-files files client nowait)
 	      ;; CLIENT is now a list (CLIENTNUM BUFFERS...)
-	      (setq server-clients (cons client server-clients))
+	      (or nowait
+		  (setq server-clients (cons client server-clients)))
 	      (server-switch-buffer (nth 1 client))
 	      (run-hooks 'server-switch-hook)
 	      (message (substitute-command-keys
@@ -221,9 +225,11 @@
   ;; Save for later any partial line that remains.
   (setq server-previous-string string))
 
-(defun server-visit-files (files client)
+(defun server-visit-files (files client &optional nowait)
   "Finds FILES and returns the list CLIENT with the buffers nconc'd.
-FILES is an alist whose elements are (FILENAME LINENUMBER)."
+FILES is an alist whose elements are (FILENAME LINENUMBER).
+NOWAIT non-nil means this client is not waiting for the results,
+so don't mark these buffers specially, just visit them normally."
   ;; Bind last-nonmenu-event to force use of keyboard, not mouse, for queries.
   (let (client-record (last-nonmenu-event t) (obuf (current-buffer)))
     ;; Restore the current buffer afterward, but not using save-excursion,
@@ -249,7 +255,9 @@
 	      (set-buffer (find-file-noselect filen))
 	      (run-hooks 'server-visit-hook)))
 	  (goto-line (nth 1 (car files)))
-	  (setq server-buffer-clients (cons (car client) server-buffer-clients))
+	  (if (not nowait)
+	      (setq server-buffer-clients
+		    (cons (car client) server-buffer-clients)))
 	  (setq client-record (cons (current-buffer) client-record))
 	  (setq files (cdr files)))
       (set-buffer obuf))