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.elc < prev    next >
Encoding:
Text File  |  1992-05-24  |  1.5 KB  |  17 lines
  1.  
  2. (load "s:.emacs-menu" t t)
  3.  
  4. (setq command-switch-alist (append (quote (("-fn" . amiga-handle-set-font) ("-fg" . amiga-handle-set-foreground) ("-bg" . amiga-handle-set-background) ("-geometry" . amiga-handle-set-geometry) ("-screen" . amiga-handle-set-screen))) 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.  
  9. (defun amiga-handle-set-foreground (switch) (byte-code "└┴┬Åç" [err (byte-code "┬    @!@    Aëê├!)ç" [pen command-line-args-left read-from-string amiga-set-foreground-color] 3) ((error (byte-code "└┴!ç" [message "Failed to set foreground colour"] 2)))] 3))
  10.  
  11. (defun amiga-handle-set-background (switch) (byte-code "└┴┬Åç" [err (byte-code "┬    @!@    Aëê├!)ç" [pen command-line-args-left read-from-string amiga-set-background-color] 3) ((error (byte-code "└┴!ç" [message "Failed to set background colour"] 2)))] 3))
  12.  
  13. (defun amiga-handle-set-screen (switch) (byte-code "└┴┬Åç" [err (byte-code "    @    Aëê├┬┬┬┬%)ç" [name command-line-args-left nil amiga-set-geometry] 6) ((error (byte-code "└┴!ç" [message "Couldn't open on public screen"] 2)))] 3))
  14.  
  15. (defun amiga-handle-set-geometry (switch) (byte-code "└┴┬Åç" [err (byte-code "╞    @!@╞    A@!@╞    AA@!@╞    AAA@!@    AAAAëê╟
  16. ┼%,ç" [x command-line-args-left y w h nil read-from-string amiga-set-geometry] 10) ((error (byte-code "└┴!ç" [message "Couldn't set window size"] 2)))] 3))
  17.