;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Fri May 6 16:34:05 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/lucid.el ;;; emacs version 19.22.93.1. ;;; 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")) (byte-code "ﾀﾁﾂ\"安ﾃﾄ\"安ﾅﾆ\"安ﾇﾈ\"安ﾉﾊ\"安ﾋﾌ\"安ﾍﾎ\"" [defalias add-timeout #[(secs function object &optional resignal) "ﾀ \n \f$" [run-at-time secs resignal function object] 5] disable-timeout #[(timeout) "ﾀ !" [cancel-timer timeout] 2] copy-tree #[(tree) ":ﾁ@!ﾁA!Bﾂ!6ﾃ!GSﾆY3\f ﾁ\f H!I S\f*" [tree copy-tree vectorp copy-sequence new i 0] 6] current-time-seconds current-time keymap-parent #[(keymap) "A @ﾀ= A )" [keymap tail] 3] set-keymap-parent #[(keymap new-parent) "A A A@ﾀ= A \" \n｡)" [keymap tail new-parent] 3] remprop #[(symbol prop) "ﾀ !\n@ =ﾄ \nAA\"\n3ﾅ\n8 =*\nAﾆ\n孱\nAAﾇ)" [symbol-plist symbol plist prop setplist 2 4 nil] 5]] 3) (defalias 'map-keymap #[(function keymap &optional sort-first) "(ﾁﾃﾄ \"鞍\nﾇ\"&\n@@\n@A\"\nAﾁ) :s @:ァ @@ @A\"Ｍﾉ @!ネ @GS @\n ﾌYヌ \n H\" S ３* 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 "\ 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."]) (byte-code "ﾀﾁﾂ\"安ﾃﾄ\"" [defalias real-path-name #[(name &optional default) "ﾀﾁ\n \"!" [file-truename expand-file-name name default] 4] read-mouse-position #[(frame) "ﾀ @\n=\f A)" [mouse-position pos frame] 3]] 3) (defalias 'switch-to-other-buffer #[(arg) "ﾁ=ソnﾂp!暗ﾄXﾅp!\"Tﾆﾇﾈﾉﾊ \"\"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 "\ 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." "p"]) (byte-code "ﾀﾁﾂ\"安ﾃﾄ\"安ﾅﾆ\"安ﾇﾈ\"安ﾉﾊ\"安ﾋﾌ\"安ﾍﾎ\"安ﾏﾐ\"安ﾑﾒ\"安ﾓﾔ\"安ﾕﾖ\"安ﾗﾘ\"安ﾙﾚ\"安ﾛﾜ\"安ﾝﾞ\"安ﾟ濬"安矮\"安聿\"安褂\"安鉅\"安鳰\"安\"安\"安\"安\"安\"安\"安\"安\"安\"安\"安　\"安、。\"安，．\"安・：\"安；？\"！゛!" [defalias find-face internal-find-face get-face internal-get-face try-face-font internal-try-face-font 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)