Mercurial > emacs

changeset 83343:ccccb663aed3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cosmetic changes in server.el. * lisp/server.el: Use `device' instead of `display' or `display-id' in variable and client parameter names. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-383
author Karoly Lorentey <lorentey@elte.hu>
date Mon, 11 Jul 2005 00:12:27 +0000
parents 9216636c02fc
children 266b015edc83
files lisp/server.el src/term.c
diffstat 2 files changed, 21 insertions(+), 21 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/server.el	Mon Jul 11 00:05:55 2005 +0000
+++ b/lisp/server.el	Mon Jul 11 00:12:27 2005 +0000
@@ -250,7 +250,7 @@
 	   (setenv (car ,pair) (cdr ,pair)))))))
 
 (defun server-delete-client (client &optional noframe)
-  "Delete CLIENT, including its buffers, displays and frames.
+  "Delete CLIENT, including its buffers, devices and frames.
 If NOFRAME is non-nil, let the frames live.  (To be used from
 `delete-frame-functions'."
   ;; Force a new lookup of client (prevents infinite recursion).
@@ -274,9 +274,9 @@
 	      (kill-buffer (current-buffer))))))
 
       ;; Delete the client's tty.
-      (let ((display-id (server-client-get client 'display)))
-	(when (eq (display-live-p display-id) t)
-	  (delete-display display-id)))
+      (let ((device (server-client-get client 'device)))
+	(when (eq (display-live-p device) t)
+	  (delete-display device)))
 
       ;; Delete the client's frames.
       (unless noframe
@@ -317,7 +317,7 @@
     (when (and (frame-live-p frame)
 	       proc
 	       (or (window-system frame)
-		   ;; A terminal display must not yet be deleted if
+		   ;; A terminal device must not yet be deleted if
 		   ;; there are other frames on it.
 		   (< 0 (let ((frame-num 0))
 			  (mapc (lambda (f)
@@ -329,10 +329,10 @@
       (server-log (format "server-handle-delete-frame, frame %s" frame) proc)
       (server-delete-client proc 'noframe)))) ; Let delete-frame delete the frame later.
 
-(defun server-handle-suspend-tty (display)
+(defun server-handle-suspend-tty (device)
   "Notify the emacsclient process to suspend itself when its tty device is suspended."
-  (dolist (proc (server-clients-with 'display display))
-    (server-log (format "server-handle-suspend-tty, display %s" display) proc)
+  (dolist (proc (server-clients-with 'device device))
+    (server-log (format "server-handle-suspend-tty, device %s" device) proc)
     (condition-case err
 	(server-send-string proc "-suspend \n")
       (file-error (condition-case nil (server-delete-client proc) (error nil))))))
@@ -606,7 +606,7 @@
 		      (progn
 			(setq frame (make-frame-on-display
 				     (or display
-					 (frame-parameter nil 'display)
+					 (frame-parameter nil 'device)
 					 (getenv "DISPLAY")
 					 (error "Please specify display"))
 				     (list (cons 'client proc))))
@@ -616,7 +616,7 @@
 			(modify-frame-parameters frame (list (cons 'client proc)))
 			(select-frame frame)
 			(server-client-set client 'frame frame)
-			(server-client-set client 'display (frame-display frame))
+			(server-client-set client 'device (frame-display frame))
 			(setq dontkill t))
 		    ;; This emacs does not support X.
 		    (server-log "Window system unsupported" proc)
@@ -625,19 +625,19 @@
 
 		 ;; -resume:  Resume a suspended tty frame.
 		 ((equal "-resume" arg)
-		  (let ((display-id (server-client-get client 'display)))
+		  (let ((device (server-client-get client 'device)))
 		    (setq dontkill t)
-		    (when (eq (display-live-p display-id) t)
-		      (resume-tty display-id))))
+		    (when (eq (display-live-p device) t)
+		      (resume-tty device))))
 
 		 ;; -suspend:  Suspend the client's frame.  (In case we
 		 ;; get out of sync, and a C-z sends a SIGTSTP to
 		 ;; emacsclient.)
 		 ((equal "-suspend" arg)
-		  (let ((display-id (server-client-get client 'display)))
+		  (let ((device (server-client-get client 'device)))
 		    (setq dontkill t)
-		    (when (eq (display-live-p display-id) t)
-		      (suspend-tty display-id))))
+		    (when (eq (display-live-p device) t)
+		      (suspend-tty device))))
 
 		 ;; -ignore COMMENT:  Noop; useful for debugging emacsclient.
 		 ;; (The given comment appears in the server log.)
@@ -664,7 +664,7 @@
 		    (select-frame frame)
 		    (server-client-set client 'frame frame)
 		    (server-client-set client 'tty (display-name frame))
-		    (server-client-set client 'display (frame-display frame))
+		    (server-client-set client 'device (frame-display frame))
 
 		    ;; Reply with our pid.
 		    (server-send-string proc (concat "-emacs-pid " (number-to-string (emacs-pid)) "\n"))
@@ -1018,8 +1018,8 @@
 	       (get-window-with-predicate
 		(lambda (w)
 		  (and (not (window-dedicated-p w))
-		       (equal (frame-parameter (window-frame w) 'display)
-			      (frame-parameter (selected-frame) 'display))))
+		       (equal (frame-parameter (window-frame w) 'device)
+			      (frame-parameter (selected-frame) 'device))))
 		'nomini 'visible (selected-window))))
 	    (condition-case nil
 		(switch-to-buffer next-buffer)
--- a/src/term.c	Mon Jul 11 00:05:55 2005 +0000
+++ b/src/term.c	Mon Jul 11 00:12:27 2005 +0000
@@ -3337,8 +3337,8 @@
 `resume-tty' does nothing if it is called on a device that is not
 suspended.
 
-TTY may be a display id, a frame, or nil for the display device of the
-currently selected frame. */)
+TTY may be a display device id, a frame, or nil for the display device
+of the currently selected frame. */)
   (tty)
      Lisp_Object tty;
 {