4.3BSD/usr/contrib/emacs/lisp/subr.elc
(defun read-quoted-char (&optional prompt) "\
Like read-char, except that if the first character read is an octal
digit, we read up to two more octal digits and return the character
represented by the octal number consisting of those digits" (byte-code "สสลหW
ฬ!
อฮ\"r ,
- ล*
?8 ล~ ฯ
X
A
ะXe ั า\"
ฯZ\\T
b อำิ
#!~ สVt
ี~
~
ี ึื \"+" [count code char inhibit-quit help-form nil prompt quit-flag unread-command-char t 0 3 zerop message "%s-" 48 55 * 8 format "%s %c" 259 logand 255] 9))
(defun error (&rest format-args) "\
Signal an error, making error message by passing all args to format." (byte-code "
ยรฤล \"C\" " [t format-args signal error apply format] 6))
(defun undefined nil (interactive) (byte-code "ภม " [nil ding] 2))
(put (quote undefined) (quote suppress-keymap) t)
(defun suppress-keymap (map &optional nodigits) "\
Make MAP override all buffer-modifying commands to be undefined.
Works by knowing which commands are normally buffer-modifying.
Normally also makes digits set numeric arg,
but optional second arg NODIGITS non-nil prevents this." (byte-code "ฤลW
ฦIT )
: ว ศษIส หX
9 ฬI T& )" [i map nodigits loop 32 127 undefined nil 45 negative-argument 48 57 digit-argument] 4))
(defun copy-alist (alist) "\
Return a copy of ALIST.
This is a new alist which represents the same mapping
from objects to objects, but does not share the alist structure with ALIST.
The objects mapped (cars and cdrs of elements of the alist)
are shared, however." (byte-code "ย!
) @: ร @@ @AB\" ฤ A )" [alist tail copy-sequence setcar nil] 6))
(defun copy-keymap (keymap) "\
Return a copy of KEYMAP" (byte-code "ม!?
ยรมD\" ฤ! ล!# ฦ!" [keymap keymapp signal wrong-type-argument vectorp copy-sequence copy-alist] 6))
(fset (quote beep) (quote ding))
(fset (quote ignore) (quote (lambda (&rest ignore) nil)))
(fset (quote make-syntax-table) (quote copy-syntax-table))
(defun run-hooks (&rest hooklist) "\
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 is called
with no arguments to run the hook." (byte-code "
@ย !
J
ร J!)A " [hooklist sym boundp funcall] 5))