;ELC ;;; compiled by jwz@thalidomide on Sat May 21 05:23:14 1994 ;;; from file /th/jwz/emacs19/lisp/prim/subr.el ;;; emacs version 19.10 Lucid (beta24). ;;; bytecomp version 2.24; 26-Apr-94. ;;; 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 "This file was compiled for Emacs 19.")) (defvar kill-buffer-hook nil "\ Function or functions to be called when a buffer is killed. The value of this variable may be buffer-local. The buffer about to be killed is current when this hook is run.") (defvar kill-emacs-hook nil "\ Function or functions to be called when `kill-emacs' is called, just before emacs is actually killed.") (fset 'generate-new-buffer #[(name) "\n!!" [get-buffer-create generate-new-buffer-name name] 3 "\ Create and return a buffer with a name based on NAME. Choose the buffer's name using `generate-new-buffer-name'."]) (fset 'one-window-p #[(&optional nomini) " \n = ! \n\")=" [selected-window base-window nomini minibuffer-window next-window] 4 "\ Returns non-nil if there is only one window. Optional arg NOMINI non-nil means don't count the minibuffer even if it is active."]) (fset 'walk-windows #[(proc &optional minibuf all-screens) "  # >? B !h*" [nil walk-windows-history selected-window walk-windows-current next-window minibuf all-screens proc] 5 "\ Cycle through all visible windows, calling PROC for each one. PROC is called with a window as argument. Optional second arg MINIBUF t means count the minibuffer window even if not active. If MINIBUF is neither t nor nil it means not to count the minibuffer even if it is active. Optional third arg ALL-SCREENS t means include all windows in all screens; otherwise cycle within the selected screen."]) (byte-code "\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"!\"\"\"!\"\"\"\"\"\"K\"K\"\"\"@A\"B\"" [define-function make-syntax-table copy-syntax-table dot point dot-marker point-marker dot-min point-min dot-max point-max window-dot window-point set-window-dot set-window-point read-input read-string send-string process-send-string send-region process-send-region show-buffer set-window-buffer buffer-flush-undo buffer-disable-undo eval-current-buffer eval-buffer byte-code-function-p compiled-function-p truename file-truename not null string= string-equal string< string-lessp fboundp mod % move-marker set-marker eql eq numberp integerp rplaca setcar rplacd setcdr beep ding indent-to-column indent-to backward-delete-char delete-backward-char search-forward-regexp re-search-forward search-backward-regexp re-search-backward int-to-string number-to-string string-to-int string-to-number remove-directory delete-directory defalias] 3) (defun baud-rate nil "\ Obsolete function returning the value of the `baud-rate' variable." baud-rate) (fset 'insert-string #[(&rest args) "@ !c cA)f" [args arg number-to-string] 3 "\ Mocklisp-compatibility insert function. Do not use this. Like the function `insert' except that any argument that is a number is converted into a string by expressing it in decimal. (Yuck!!)"]) (fset 'run-hooks #[(&rest hooklist) "@ ! J J< @= \" ))AULJ" [hooklist sym boundp value lambda mapcar funcall nil] 4 "\ Takes hook names and runs each one in turn. Major mode functions use this. Each argument should be a symbol, a hook variable. These symbols are processed in the order specified. If a hook symbol has a non-nil value, that value may be a function or a list of functions to be called to run the hook. If the value is a function, it is called with no arguments. If it is a list, the elements are called, in order, with no arguments."]) (byte-code "" [run-hooks] 1) (fset 'run-hook-with-args #[(hook &rest args) " ! J J<\n@=\n\"\n\")" [boundp hook value lambda mapcar #[(foo) " \n\"" [apply foo args] 3] apply args] 4 "\ Runs hook with the specified arguments. HOOK should be a symbol, a hook variable. If HOOK has a non-nil value, that value may be a function or a list of functions to be called to run the hook. If the value is a function, it is called with the given arguments and its return value is returned. If it is a list, the elements are called, in order, with the given arguments, and a list of the each function's return value is returned."]) (fset 'add-hook #[(hook function &optional append) " ! L J< @= C ?  C\" BL)" [boundp hook nil old lambda function append] 5 "\ Add to the value of HOOK the function FUNCTION. FUNCTION is not added if already present. FUNCTION is added (if necessary) at the beginning of the hook list unless the optional argument APPEND is non-nil, in which case FUNCTION is added at the end. HOOK should be a symbol, and FUNCTION may be any valid function. If HOOK is void, it is first set to nil. If HOOK's value is a single function, it is changed to a list of functions."]) (fset 'remove-hook #[(hook function) " ! J= : !\"L)" [nil val boundp hook function delq copy-sequence] 5 "\ Remove a function from a hook, if it is present. First argument HOOK (a symbol) is the name of a hook, second argument FUNCTION is the function to remove (compared with `eq')."]) (byte-code "\"\"\"\"\"" [make-obsolete extent-data extent-property set-extent-data set-extent-property set-extent-attribute extent-attributes extent-glyph "use extent-begin-glyph or extent-end-glyph instead"] 3) (fset 'extent-data #[(extent) " \"" [extent-property extent data] 3 "\ Obsolete. Returns the `data' property of the given extent."]) (fset 'set-extent-data #[(extent data) " \n#" [set-extent-property extent data] 4 "\ Obsolete. Sets the `data' property of the given extent."]) (fset 'set-extent-attribute #[(extent attr &optional clearp) "= #= #= #= # #" [attr write-protected set-extent-property extent read-only t unhighlight highlight nil writable visible invisible] 4 "\ Obsolete; use set-extent-property instead."]) (fset 'extent-glyph #[(extent) " ! !" [extent-begin-glyph extent extent-end-glyph] 2 "\ Obsolete. Use extent-begin-glyph or extent-end-glyph instead."]) (defun ignore (&rest ignore) "\ Do nothing. Accept any number of arguments, but ignore them." nil) (fset 'error #[(&rest args) " \"C\"u" [signal error apply format args] 5 "\ Signal an error, making error message by passing all args to `format'."]) (fset 'user-original-login-name #[nil "!! " [getenv "LOGNAME" "USER" user-login-name] 2 "\ Return user's login name from original login. This tries to remain unaffected by `su', by looking in environment variables."]) (fset 'save-match-data '(macro . #[(&rest body) " BEE" [let ((_match_data_ (match-data))) unwind-protect progn body (store-match-data _match_data_)] 5 "\ Execute the BODY forms, restoring the global value of the match data."])) (fset 'invocation-directory #[nil " !" [file-name-directory execution-path] 2 "\ Returns the directory name in which the Emacs executable was located."]) (byte-code "!M‡" [fboundp define-abbrev-table nil abbrev-table-name-list #[(name defs) " B\nB" [name defs abbrev-table-name-list] 2]] 2)