diff options
Diffstat (limited to 'lisp/termdev.el')
| -rw-r--r-- | lisp/termdev.el | 8 |
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 | |||
| 34 | device (HOST.SERVER.SCREEN) or a tty device file." | 34 | device (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 | ||