aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/termdev.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/termdev.el')
-rw-r--r--lisp/termdev.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/termdev.el b/lisp/termdev.el
index 5e12740e11c..c73fe017046 100644
--- a/lisp/termdev.el
+++ b/lisp/termdev.el
@@ -34,17 +34,17 @@ TERMINAL may be the name of an X display
34device (HOST.SERVER.SCREEN) or a tty device file." 34device (HOST.SERVER.SCREEN) or a tty device file."
35 (cond 35 (cond
36 ((integerp terminal) 36 ((integerp terminal)
37 (if (display-live-p terminal) 37 (if (terminal-live-p terminal)
38 terminal 38 terminal
39 (signal 'wrong-type-argument (list 'display-live-p terminal)))) 39 (signal 'wrong-type-argument (list 'terminal-live-p terminal))))
40 ((or (null terminal) (framep terminal)) 40 ((or (null terminal) (framep terminal))
41 (frame-display terminal)) 41 (frame-terminal terminal))
42 ((stringp terminal) 42 ((stringp terminal)
43 (let ((f (car (filtered-frame-list (lambda (frame) 43 (let ((f (car (filtered-frame-list (lambda (frame)
44 (or (equal (frame-parameter frame 'display) terminal) 44 (or (equal (frame-parameter frame 'display) terminal)
45 (equal (frame-parameter frame 'tty) terminal))))))) 45 (equal (frame-parameter frame 'tty) terminal)))))))
46 (or f (error "Display %s does not exist" terminal)) 46 (or f (error "Display %s does not exist" terminal))
47 (frame-display f))) 47 (frame-terminal f)))
48 (t 48 (t
49 (error "Invalid argument %s in `terminal-id'" terminal)))) 49 (error "Invalid argument %s in `terminal-id'" terminal))))
50 50