;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:45:20 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/lucid.el ;;; emacs version 19.28.90.26. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/lucid.el' was compiled for Emacs 19")) (defalias 'add-timeout #[(secs function object &optional resignal) " \n \f$" [run-at-time secs resignal function object] 5]) (defalias 'disable-timeout #[(timeout) " !" [cancel-timer timeout] 2]) (defalias 'copy-tree #[(tree) ":@!A!B!6!GSY3\f \f H!I S\f*" [tree copy-tree vectorp copy-sequence new i 0] 6]) (defalias (quote current-time-seconds) (quote current-time)) (defalias 'keymap-parent #[(keymap) "A @= A )" [keymap tail] 3]) (defalias 'set-keymap-parent #[(keymap new-parent) " A A@= A ! \n)" [keymap tail new-parent] 3]) (defalias 'remprop #[(symbol prop) " !\n@ = \nAA\"\n3\n8 =*\nA\n\nAA)" [symbol-plist symbol plist prop setplist 2 4 nil] 5]) #@520 Call FUNCTION for every binding in KEYMAP. This includes bindings inherited from a parent keymap. FUNCTION receives two arguments each time it is called: the character (more generally, the event type) that is bound, and the binding it has. Note that passing the event type directly to `define-key' does not work in Emacs 19. We do not emulate that particular feature of Lucid Emacs. If your code does that, modify it to make a vector containing the event type that you get. That will work in both versions of Emacs. (defalias 'map-keymap #[(function keymap &optional sort-first) "( \"\n\"&\n@@\n@A\"\nA) :s @:@ @@ @A\"l @!l @GS @\n Yk \n H\" S R* A)" [sort-first nil list map-keymap #[(a b) " B\nB" [a b list] 2] keymap sort #[(a b) "@ @  W‡ ‡ " [a b t] 2] function vectorp vector i 0] 5 (#$ . 1237)]) #@165 Read a number from the minibuffer. Keep reentering the minibuffer until we get suitable input. If optional argument INTEGERS-ONLY is non-nil, insist on an integer. (defalias 'read-number #[(prompt &optional integers-only) " \n‚ D! ˏ\f !+@ 8Ђ9\"!)) +" [nil integers-only integerp numberp predicate number success read-string prompt input-string (byte-code " !" [read input-string number] 2) ((error)) t cursor-in-echo-area message "Please type %s" "an integer" "a number" sit-for 1] 3 (#$ . 2134) nil]) (defalias 'real-path-name #[(name &optional default) "\n \"!" [file-truename expand-file-name name default] 4]) (defalias 'read-mouse-position #[(frame) " @\n=\f A)" [mouse-position pos frame] 3]) #@171 Switch to the previous buffer. With a numeric arg N, switch to the Nth most recent buffer. With an arg of 0, buries the current buffer at the bottom of the buffer stack. (defalias 'switch-to-other-buffer #[(arg) "=\np!Xp!! \"\"8!" [arg 0 bury-buffer switch-to-buffer 1 other-buffer apply nconc mapcar #[(buf) "\n!!U? \nC" [string-to-char buffer-name buf 32] 3] buffer-list] 7 (#$ . 2901) "p"]) (byte-code "\"\"\"" [defalias find-face internal-find-face get-face internal-get-face try-face-font internal-try-face-font] 3) (defalias 'make-extent #[(beg end &optional buffer) " \n #" [make-overlay beg end buffer] 4]) (defalias 'set-extent-property #[(extent prop value) "=@\n#\f\"#\f!\f!\f!\f!$U\nU\f\"U\f!\f!\f!\f!$U\f\"U\f!\f!\n\f!%\f\n#" [prop duplicable value overlay-get extent add-text-properties overlay-start overlay-end overlay-properties overlay-buffer remove-text-properties put-text-property overlay-put] 7]) (defalias 'set-extent-face #[(extent face) " \n#" [set-extent-property extent face] 4]) (defalias 'delete-extent #[(extent) " # !" [set-extent-property extent duplicable nil delete-overlay] 4]) (byte-code "\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"@\"AB\"CD!" [defalias current-screen-configuration current-frame-configuration delete-screen delete-frame find-file-new-screen find-file-other-frame find-file-read-only-new-screen find-file-read-only-other-frame find-tag-new-screen find-tag-other-frame iconify-screen iconify-frame mail-new-screen mail-other-frame make-screen-invisible make-frame-invisible make-screen-visible make-frame-visible modify-screen-parameters modify-frame-parameters next-screen next-frame redraw-screen redraw-frame screen-height frame-height screen-list frame-list screen-parameters frame-parameters screen-pixel-height frame-pixel-height screen-pixel-width frame-pixel-width screen-root-window frame-root-window screen-selected-window frame-selected-window lower-screen lower-frame raise-screen raise-frame screen-visible-p frame-visible-p screen-width frame-width screenp framep select-screen select-frame selected-screen selected-frame set-screen-position set-frame-position set-screen-size set-frame-size switch-to-buffer-new-screen switch-to-buffer-other-frame visible-screen-list visible-frame-list window-screen window-frame x-create-screen x-create-frame x-new-screen make-frame provide lucid] 3)