home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / misc / e1858src.lha / emacs-18.58 / lisp / term / intuition-win.el! < prev    next >
Encoding:
Text File  |  1992-05-24  |  456 b   |  12 lines
  1. (load "s:.emacs-menu" t t)
  2. (setq command-switch-alist (append '(("-fn" . amiga-handle-set-font))
  3.                    command-switch-alist))
  4.  
  5. (defun amiga-handle-set-font (switch)
  6.   (condition-case err
  7.       (let ((wfont (car command-line-args-left))
  8.         (height (car (read-from-string (car (cdr command-line-args-left))))))
  9.     (setq command-line-args-left (cdr (cdr command-line-args-left)))
  10.     (amiga-set-font wfont height))
  11.     (error (message "Failed to load font"))))
  12.