home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / functions / vip-default.el < prev    next >
Encoding:
Text File  |  1991-06-03  |  1.3 KB  |  41 lines
  1. ; Path: dg-rtp!rock.concert.net!mcnc!gatech!ncar!elroy.jpl.nasa.gov!swrinde!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!tut.cis.ohio-state.edu!unreplyable!garbage
  2. ; From: djm@ENG.UMD.EDU (David J. MacKenzie)
  3. ; Newsgroups: gnu.emacs.sources
  4. ; Subject: running emacs as vip
  5. ; Date: 30 May 91 12:38:36 GMT
  6. ; Organization: Source only  Discussion and requests in gnu.emacs.help.
  7. ; 
  8. ; I decided to see what would be necessary to make emacs run as a vi
  9. ; emulator from the command line, so I could type
  10. ; bash$ vip file1 file2.c file3
  11. ; Here's what I came up with.
  12. ; 
  13. ; In .bashrc:
  14. ; alias vip='emacs -f vip-default'
  15. ; 
  16. ; In .emacs:
  17. ;;; Use text mode by default instead of fundamental mode.
  18. (setq default-major-mode 'text-mode)
  19.  
  20. (defvar vip-mode-default nil
  21.   "*If non-nil, text mode buffers start up in vip-mode.")
  22. (defun vip-default (&optional arg)
  23.   "Toggle making vip-mode a default minor mode for text-mode.
  24. With arg, turn it on iff arg is positive."
  25.   (interactive "P")  (setq vip-mode-default
  26.     (if arg
  27.         (> (prefix-numeric-value arg) 0)
  28.       (not vip-mode-default))))
  29.  
  30. ;;; Set auto-fill minor mode in all text modes.
  31. (setq text-mode-hook
  32.       '(lambda ()
  33.      (auto-fill-mode 1)
  34.      (if vip-mode-default (vip-mode))))
  35. (setq c-mode-hook
  36.       '(lambda ()
  37.      (if vip-mode-default (vip-mode))))
  38. (setq lisp-mode-hook
  39.       '(lambda ()
  40.      (if vip-mode-default (vip-mode))))
  41.