Mercurial > emacs

comparison lisp/term/vt100.el @ 24390:fa1aec732bee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vt100-wide-mode): Use defvar, not defconst.
author Karl Heuer <kwzh@gnu.org>
date Tue, 23 Feb 1999 22:22:50 +0000
parents 23cc3f54e536
children 5ade352e8d1c
comparison
equal deleted inserted replaced
24389:8de7eb6fef39 24390:fa1aec732bee
37 37
38 ;; Set up function-key-map entries that termcap and terminfo don't know. 38 ;; Set up function-key-map entries that termcap and terminfo don't know.
39 (load "term/lk201" nil t) 39 (load "term/lk201" nil t)
40 40
41 ;;; Controlling the screen width. 41 ;;; Controlling the screen width.
42 (defconst vt100-wide-mode (= (frame-width) 132) 42 (defvar vt100-wide-mode (= (frame-width) 132)
43 "t if vt100 is in 132-column mode.") 43 "t if vt100 is in 132-column mode.")
44 44
45 (defun vt100-wide-mode (&optional arg) 45 (defun vt100-wide-mode (&optional arg)
46 "Toggle 132/80 column mode for vt100s. 46 "Toggle 132/80 column mode for vt100s.
47 With positive argument, switch to 132-column mode. 47 With positive argument, switch to 132-column mode.