%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/emacs-lisp/ |
Current File : //usr/local/share/emacs/27.2/lisp/emacs-lisp/lisp.elc |
;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\301!\210\300\313\302\303\314DD\315\306\316\310\311&\207" [custom-declare-variable defun-prompt-regexp funcall function #[0 "\300\207" [nil] 1] "If non-nil, a regexp to ignore before a defun.\nThis is only necessary if the opening paren or brace is not in column 0.\nSee function `beginning-of-defun'." :type (choice (const nil) regexp) :group lisp make-variable-buffer-local parens-require-spaces #[0 "\300\207" [t] 1] "If non-nil, add whitespace as needed when inserting parentheses.\nThis affects `insert-parentheses' and `insert-pair'." boolean] 8) #@127 If non-nil, `forward-sexp' delegates to this function. Should take the same arguments and behave similarly to `forward-sexp'. (defvar forward-sexp-function nil (#$ . 1027)) #@488 Move forward across one balanced expression (sexp). With ARG, do it that many times. Negative arg -N means move backward across N balanced expressions. This command assumes point is not in a string or comment. Calls `forward-sexp-function' to do the work, if that is non-nil. If unable to move over a sexp, signal `scan-error' with three arguments: a message, the start of the obstacle (usually a parenthesis or list marker of some kind), and end of the obstacle. (fn &optional ARG) (defalias 'forward-sexp #[256 "\211\204 \301\262\203 !\207\302`\"\206 \303!b\210\211\304W\205# \305 \207" [forward-sexp-function 1 scan-sexps buffer-end 0 backward-prefix-chars] 4 (#$ . 1207) "^p"]) #@268 Move backward across one balanced expression (sexp). With ARG, do it that many times. Negative arg -N means move forward across N balanced expressions. This command assumes point is not in a string or comment. Uses `forward-sexp' to do the work. (fn &optional ARG) (defalias 'backward-sexp #[256 "\211\204 \300\262\301[!\207" [1 forward-sexp] 3 (#$ . 1909) "^p"]) #@368 Set mark ARG sexps from point. The place mark goes is the same place \[forward-sexp] would move to with the same argument. Interactively, if this command is repeated or (in Transient Mark mode) if the mark is active, it marks the next ARG sexps after the ones already marked. This command assumes point is not in a string or comment. (fn &optional ARG ALLOW-EXTEND) (defalias 'mark-sexp #[512 "\211\203>