home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / editor / me_cd.arc / EMACS.MUT < prev    next >
Lisp/Scheme  |  1988-09-07  |  395b  |  23 lines
  1.   ;; emacs.mut
  2.   ;; A few routines I don't put in init.mut that make ME more EMACS like.
  3.   ;; C Durland
  4.  
  5. (defun set-fill-column
  6. {
  7.   (int col)
  8.  
  9.   (col (if (arg-flag) (arg-prefix) (current-column)))
  10.   (if (< col 10)
  11.     (msg "Fill column too small.")
  12.     (msg "Fill column set to " (word-wrap col))
  13.   )
  14. })
  15.  
  16.  
  17. (defun
  18.   MAIN
  19.   {
  20.     (bind-to-key "set-fill-column" "C-Xf")
  21.   }
  22. )
  23.