dillon@uhccux.uhcc.hawaii.edu (Ian Dillon) (09/21/88)
Does emacs have a startup file which it will look for to setup predefined functions? Also, is it possible to switch from 80 to 132 columns while in emacs. I use a vt100 clone, and it would be nice to have emacs automatically switch the number of columns available as soon as you edit a file. Thanks in advance! _-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_ | Ian Dillon | | Department of Chemistry UUCP: dillon@uhccux.UUCP | | 2545 The Mall INTERNET: dillon@uhccux.UHCC.HAWAII.EDU | | University of Hawaii BITNET: dillon@uhccux.bitnet | | Honolulu, Hawaii, 96822 | | Phone: (808) 948-7680 | -_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
ditto@cbmvax.UUCP (Michael "Ford" Ditto) (09/21/88)
In article <2402@uhccux.uhcc.hawaii.edu> dillon@uhccux.uhcc.hawaii.edu (Ian Dillon) writes: > is it possible to switch from >80 to 132 columns while in emacs. I use a vt100 clone, and it >would be nice to have emacs automatically switch the number of >columns available as soon as you edit a file. You don't say which Emacs, so my example will be for Gnu Emacs. If you want to automatically switch to 132 columns whenever you run Emacs, I suggest making a script that outputs the escape sequence, sets $TERM, runs emacs, and restores the screen size. If you want to manually change the screen width while in Emacs, just do M-x eval-expression (probably ESC-ESC) and type (set-screen-width 132). If you are trying to have Emacs switch to 132 columns only when you visit certain files, you could try appending to those files something like this: Local Variables: eval: (progn (send-string-to-terminal "\033w") (set-screen-width 132)) End: (I just made up the "\033w"; replace it with the appropriate escape sequence.) It might be necessary to enclose the above lines in a comment of some sort if the file is meant to be read by a program. I like the first suggestion better (making a script for starting a 132-column Emacs) because it keeps the terminal dependency out of your files. It also would probably work for any program or version of Emacs. -- -=] Ford [=- . . (In Real Life: Mike Ditto) . : , ford@kenobi.cts.com This space under construction, ...!ucsd!elgar!ford pardon our dust. ditto@cbmvax.commodore.com
jr@PIZZA.BBN.COM (John Robinson) (09/21/88)
> If you want to automatically switch to 132 columns whenever you run Emacs, > I suggest making a script that outputs the escape sequence, sets $TERM, > runs emacs, and restores the screen size. It is sufficient to set $TERM to, say, vt100-w, run emacs, then fix $TERM and run tset (or whatever) to reset the terminal. But the original poster did say "while in emacs". /jr jr@bbn.com or bbn!jr
pjr@cgdra.ucar.edu (Phil Rasch) (09/22/88)
I missed the original posting. Hope I am not repeating somebody elses solution. Here is the stuff I use to toggle 132 mode on a vt100. I am completely ignorant of lisp, so I did it by guess and example. There is sure to be a better way. Stick this stuff in your .emacs file, and bind to your favorite key, currently PF2. Hit it once to switch to 132 col mode, and a second time to get back to 80 col mode. ---------------------------------------------------------------------- (define-key function-keymap "2" 'toggle-132-mode) (setq toggle-132-mode nil) (set-screen-width 80) (defun toggle-132-mode (arg) "Toggle 132/80 column mode for vt100s. So far does not check to make sure the user is on a vt100." (interactive "P") (setq toggle-132-mode (if (null arg) (not toggle-132-mode) (> (prefix-numeric-value arg) 0))) (if (eq toggle-132-mode t) (send-string-to-terminal "\e[?3h") (send-string-to-terminal "\e[?3l")) (if (eq toggle-132-mode t) (set-screen-width 132) (set-screen-width 80)) ) --------------------------------------------------------------------- Philip Rasch (pjr.ucar.edu) National Center for Atmospheric Research