home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / text / emacsdif.lha / emacs-18.58 / lisp / term / intuition-win.elc < prev   
Encoding:
Text File  |  1992-02-01  |  368 b   |  8 lines
  1.  
  2. (load "s:.emacs-menu" t)
  3.  
  4. (setq command-switch-alist (append (quote (("-fn" . amiga-handle-set-font))) command-switch-alist))
  5.  
  6. (defun amiga-handle-set-font (switch) (byte-code "└┴┬Åç" [err (byte-code "    @├    A@!@    AAëê─
  7. \"*ç" [wfont command-line-args-left height read-from-string amiga-set-font] 4) ((error (byte-code "└┴!ç" [message "Failed to load font"] 2)))] 3))
  8.