Mercurial > emacs

comparison lisp/emulation/edt.el @ 12406:8ae1d01fe37b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(edt-emulation-on): Check window-system for x, specifically.
author Richard M. Stallman <rms@gnu.org>
date Tue, 27 Jun 1995 22:59:00 +0000
parents fba74d054979
children 1e09e8fd3384
comparison
equal deleted inserted replaced
12405:abcf4791a9b0 12406:8ae1d01fe37b
1497 (if (setq hyphend (string-match "[-_][^-_]+$" term)) 1497 (if (setq hyphend (string-match "[-_][^-_]+$" term))
1498 (setq term (substring term 0 hyphend)) 1498 (setq term (substring term 0 hyphend))
1499 (setq term nil))) 1499 (setq term nil)))
1500 ;; Override terminal-specific file if running X Windows. X Windows support 1500 ;; Override terminal-specific file if running X Windows. X Windows support
1501 ;; is handled differently in edt-load-xkeys 1501 ;; is handled differently in edt-load-xkeys
1502 (if window-system 1502 (if (eq window-system 'x)
1503 (edt-load-xkeys nil) 1503 (edt-load-xkeys nil)
1504 (if (null term) 1504 (if (null term)
1505 (error "Unable to load EDT terminal specific file for %s" edt-term))) 1505 (error "Unable to load EDT terminal specific file for %s" edt-term)))
1506 (setq edt-term term)) 1506 (setq edt-term term))
1507 (setq edt-orig-transient-mark-mode transient-mark-mode) 1507 (setq edt-orig-transient-mark-mode transient-mark-mode)