;;; compiled by mycroft@hal on Tue Sep 22 05:19:12 1992 ;;; from file /src/emacs-19.0/lisp/sun-keys.el ;;; emacs version 19.0.426. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (fset 'sun-function-keys-dispatch (make-byte-code (quote (arg)) "!\n \" A!\n\"*" [read t key-stroke assq sun-function-keys-command-list command arg error "Unbound function key %s"] 4 "\ Dispatcher for function keys." "p")) (byte-code "!" [boundp sun-function-keys-command-list ((F1 . sun-function-keys-describe-bindings) (R8 . previous-line) (R10 . backward-char) (R12 . forward-char) (R14 . next-line))] 2) (fset 'sun-function-keys-bind-key (make-byte-code (quote (arg1 arg2)) " B\nB" [arg1 arg2 sun-function-keys-command-list] 2 "\ Bind a specified key." "xFunction Key Cap Label:\nCCommand To Use:")) (fset 'sun-function-keys-describe-bindings (make-byte-code (quote (arg)) " !\"!" ["*Help*" sun-function-keys-write-bindings sort copy-sequence sun-function-keys-command-list (lambda (x y) (string-lessp (car x) (car y)))] 5 "\ Describe the function key bindings we're running" nil)) (byte-code "$M\"!" [sun-function-keys-write-bindings make-byte-code (list) "@@@A#!A!" [list t princ format "%s: %s\n" sun-function-keys-write-bindings] 5 global-set-key "*" sun-function-keys-dispatch make-variable-buffer-local sun-function-keys-command-list] 6)