InfoMagic Source Code 1993 July/THE_SOURCE_CODE_CD_ROM.iso/msdos/winemacs/lisp/prim/simple.elc

Text File | 1993-06-08 | 35.5 KB | 457 lines

;;; compiled by @win386 on Thu Apr 29 20:46:11 1993
;;; from file c:/src/winemacs/lisp/prim/simple.el
;;; emacs version 19.4 (Win-Emacs 1.00.04 beta).
;;; bytecomp version 2.09; 16-jan-93.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.

(if (and (boundp 'emacs-version)
     (or (and (boundp 'epoch::version) epoch::version)
         (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs19."))

(fset 'open-line #[(arg) "n¡éo?ë½â┴uê\n├V½æè─cê½âcê)\nSë¬k¡é╞u)ç" [flag -1 arg 0 10 fill-prefix 1] 3 "\
Insert a newline and leave point before it.  If there is a fill
prefix, inserts the fill prefix after the newline that it inserts.
With arg, inserts that many newlines." "*p"])
(fset 'split-line #[nil "└┴wêi`─cê┼╞\"ê\nb*ç" ["     " nil pos col 10 indent-to 0] 3 "\
Split current line, moving portion beyond point vertically down." "*"])
(fset 'quoted-insert #[(arg) "└ \n├V¡ë    cê\nSë¬s)ç" [read-quoted-char char arg 0] 3 "\
Read next input character and insert it.
Useful for inserting control characters.
You may also type up to 3 octal digits, to insert a character with that code" "*p"])
(fset 'delete-indentation #[(&optional arg) "└yê    ½â┬yêh├=¡ç``S|ê─ ç" [0 arg 1 10 fixup-whitespace] 2 "\
Join this line to previous and fix up whitespace at join.
With argument, join this line to following line." "*P"])
(fset 'fixup-whitespace #[nil "è└ ê┴┬!«êè├uê┴─!)?¡é┼c)ç" [delete-horizontal-space looking-at "^\\|\\s)" -1 "$\\|\\s(\\|\\s'" 32] 2 "\
Fixup white space between objects around point.
Leave one space or none, according to the context." "*"])
(fset 'delete-horizontal-space #[nil "└┴xê`└┴wê`|ç" ["     " nil] 3 "\
Delete all spaces and tabs around point." "*"])
(fset 'just-one-space #[nil "└┴xêg┬U½à├uê¬â┬cê`└┴wê`|ç" ["     " nil 32 1] 3 "\
Delete all spaces and tabs around point, leaving one space." "*"])
(fset 'delete-blank-lines #[nil "└ëè├yê─┼!ë¡É─╞!?¡èo«ç╟yê─┼!?)\n½Ü├yê    ½â╚yê`╔╩└╦#½å╚yê`¬üe|ê\n¡ü    ?¡ÿè└ê╚yê`╠╩└╦#½å├yê`¬üd|)*ç" [nil singleblank thisblank 0 looking-at "[     ]*$" "[     ]*\n[     ]*$" -1 1 re-search-backward "[^     \n]" t re-search-forward] 6 "\
On blank line, delete all surrounding blank lines, leaving just one.
On isolated blank line, delete that one.
On nonblank line, delete all blank lines that follow it." "*"])
(fset 'back-to-indentation #[nil "└yê┴┬wç" [0 "     " nil] 2 "\
Move point to the first non-whitespace character on this line." nil])
(fset 'newline-and-indent #[nil "`└┴xê`|ê┬cê├ ç" ["     " nil 10 indent-according-to-mode] 3 "\
Insert a newline, then indent according to major mode.
Indentation is done using the current indent-line-function.
In programming language modes, this is the same as TAB.
In some text modes, where TAB inserts a tab, this indents to the
specified left-margin column." "*"])
(fset 'reindent-then-newline-and-indent #[nil "è`└┴xê`|ê┬ ê)├cê┬ ç" ["     " nil indent-according-to-mode 10] 3 "\
Reindent current line, insert newline, then indent the new line.
Indentation of both lines is done according to the current major mode,
which means that the current value of indent-line-function is called.
In programming language modes, this is the same as TAB.
In some text modes, where TAB inserts a tab, this indents to the
specified left-margin column." "*"])
(byte-code "└┴Mê┬├Mç" [kill-forward-chars #[(arg) "<½â@┴=½é┬├``\\\"ç" [arg - -1 kill-region] 4] kill-backward-chars #[(arg) "<½â@┴=½é┬├``Z\"ç" [arg - -1 kill-region] 4]] 2)
(fset 'backward-delete-char-untabify #[(arg &optional killp) "è    ┬V½ño¼íh├U½ôi┼uêiZ╞╟\"ê╚╔!ê)┼uê    Së¬X*╩\"ê¡èl?¡åè╞╟\")ç" [arg count 0 9 col -1 insert-char 32 delete-char 1 delete-backward-char killp overwrite-mode] 4 "\
Delete characters backward, changing tabs into spaces.
Delete ARG chars, and kill (save in kill ring) if KILLP is non-nil.
Interactively, ARG is the prefix arg (default 1)
and KILLP is t if prefix arg is was specified." "*p\nP"])
(fset 'zap-to-char #[(arg char) "└`┴┬!─ë$ê`\"ç" [kill-region search-forward char-to-string char nil arg] 7 "\
Kill up to and including ARG'th occurrence of CHAR.
Goes backward if ARG is negative; error if CHAR not found." "*p\ncZap to char: "])
(fset 'beginning-of-buffer #[(&optional arg) "└ ê    ½£┬ ├V½è─    !┬ ┼Ñ_¬ì┬ ─    !_┼\\┼Ѭüebê╞    ¡é╚yç" [push-mark arg buffer-size 10000 prefix-numeric-value 10 t zmacs-region-stays 1] 3 "\
Move point to the beginning of the buffer; leave mark at previous position.
With arg N, put point N/10 of the way from the true beginning.
Don't use this in Lisp programs!
(goto-char (point-min)) is faster and avoids clobbering the mark." "P"])
(byte-code "└┴!¼é┬┬ç" [boundp dont-redisplay-when-moving-within-window nil] 2)
(fset 'end-of-buffer #[(&optional arg) "└ ê┴├d!?½₧╞ T╞ ╟V½è╚!╞ ╔Ñ_¬ê╞ ╚!_╔ÑZ¬üdbê½ä╩y¬å¡â╦╠!)ç" [push-mark t zmacs-region-stays pos-visible-in-window-p scroll-to-end arg buffer-size 10000 prefix-numeric-value 10 1 recenter -3] 4 "\
Move point to the end of the buffer; leave mark at previous position.
With arg N, put point N/10 of the way from the true end.
Don't use this in Lisp programs!
(goto-char (point-max)) is faster and avoids clobbering the mark." "P"])
(fset 'mark-beginning-of-buffer #[(&optional arg) "└    ½£┬ ├V½è─    !┬ ┼Ñ_¬ì┬ ─    !_┼\\┼Ѭüe!ê╞ ç" [push-mark arg buffer-size 10000 prefix-numeric-value 10 zmacs-activate-region] 4 "\
Push a mark at the beginning of the buffer; leave point where it is.
With arg N, push mark N/10 of the way from the true beginning." "P"])
(fset 'mark-bob 'mark-beginning-of-buffer)
(fset 'mark-end-of-buffer #[(&optional arg) "└    ½₧┬ T┬ ├V½è─    !┬ ┼Ñ_¬ê┬ ─    !_┼ÑZ¬üd!ê╞ ç" [push-mark arg buffer-size 10000 prefix-numeric-value 10 zmacs-activate-region] 5 "\
Push a mark at the end of the buffer; leave point where it is.
With arg N, push mark N/10 of the way from the true end." "P"])
(fset 'mark-eob 'mark-end-of-buffer)
(fset 'mark-whole-buffer #[nil "└`!ê└d!êebê┴ ç" [push-mark zmacs-activate-region] 2 "\
Put point at beginning and mark at end of buffer." nil])
(fset 'eval-current-buffer #[(&optional printflag) "└p    \"ç" [eval-buffer printflag] 3 "\
Evaluate the current buffer as Lisp code.
Programs can pass argument PRINTFLAG which controls printing of output:
nil means discard it; anything else is stream for print." nil])
(byte-code "└┴Mê┬├Mç" [count-words-buffer #[(b) "è«üpëqê┬├─ed\"\"*ç" [b buf message "Buffer has %d words" count-words-region] 6 nil "b"] count-words-region #[(debut fin) "è└\nbê`W½ë─v½w    T¬r┼╞    \"ê    *ç" [0 cnt debut fin 1 message "Region has %d words"] 3 nil "r"]] 2)
(fset 'count-lines-region #[(start end) "└┴┬\"\"┼ç" [message "Region has %d lines" count-lines start end t zmacs-region-stays] 5 "\
Print number of lines in the region." "r"])
(fset 'count-lines-buffer #[(b) "è«üpëqê┬├─ed\"\"*┼ç" [b buf message "Buffer has %d lines" count-lines t zmacs-region-stays] 6 nil "b"])
(fset 'what-line #[nil "î~êè└yê┴┬├─`\"T\"*┼ç" [0 message "Line %d" count-lines 1 t zmacs-region-stays] 5 "\
Print the current line number (in the buffer) of point." nil])
(fset 'count-lines #[(start end) "èî    }êebê\n├=½ó─╞╟╚├╔$½å╔\\¬r╞╟╚├╩$½å╩\\¬r)¬å╦ ╦ yZ*ç" [start end selective-display t 0 done re-search-forward "[\n]" nil 40 1 buffer-size] 5 "\
Return number of lines between START and END.
This is usually the number of newlines between them,
but will be one more if START is not equal to END
and the greater of them is not at the start of a line."])
(fset 'what-cursor-position #[nil "ged`─ ë╞V½Ä╟ÑS\\╚Ñ╔]Ѭî╩ÑS╚_\\╔]Ñ╠ ═U½â╬¬à╧╨╠ \"i\nU½⌐    ╔U½å\nTU¼É╙╘    \n&¬╜╙╒&¬»    ╔U½å\nTU¼ö╙╓╫!    \n&\n¬É╙╪╫!&.┘ç" [char beg end pos buffer-size total 50000 200 100 1 2 percent window-hscroll 0 "" format " Hscroll=%d" hscroll col message "point=%d of %d(%d%%) <%d - %d>  column %d %s" "point=%d of %d(%d%%)  column %d %s" "Char: %s (0%o)  point=%d of %d(%d%%) <%d - %d>  column %d %s" single-key-description "Char: %s (0%o)  point=%d of %d(%d%%)  column %d %s" t zmacs-region-stays] 12 "\
Print info on cursor position (on screen and within buffer)." nil])
(fset 'fundamental-mode #[nil "└ ç" [kill-all-local-variables] 1 "\
Major mode not specialized for anything in particular.
Other major modes are defined by comparison with this one." nil])
(put 'eval-expression 'disabled t)
(fset 'eval-expression #[(expression) "└    !\nB├\n@─\"ç" [eval expression values prin1 t] 3 "\
Evaluate EXPRESSION and print value in minibuffer.
Value is also consed on to front of the variable `values'." (byte-code "└┴┬─┼%Cç" [read-from-minibuffer "Eval: " nil read-expression-map t minibuffer-sexp-history] 6)])
(fset 'edit-and-eval-command #[(prompt command) "└    ┬!┼╞%ë@ܼåB╚!)ç" [read-from-minibuffer prompt prin1-to-string command read-expression-map t minibuffer-sexp-history command-history eval] 7 "\
Prompting with PROMPT, let user edit COMMAND and eval result.
COMMAND is a Lisp expression.  Let user edit that expression in
the minibuffer, then read and evaluate the result."])
(fset 'repeat-complex-command #[(arg) "S    8┬├ë½Ñ╚╔├╩╦Å┬┴B%    @;½â    A    @ܼä    B═!¬é╬ ,ç" [arg command-history t nil newcmd minibuffer-history-sexp-flag minibuffer-history-position elt read-from-minibuffer "Redo: " (byte-code "└┬!)ç" [t print-readably prin1-to-string elt] 2) ((error (prin1-to-string elt))) read-expression-map eval ding] 8 "\
Edit and re-evaluate last complex command, or ARGth from last.
A complex command is one which used the minibuffer.
The command is placed in the minibuffer as a Lisp form for editing.
The result is executed, repeating the command as changed.
If the command has been changed or is not the most recent previous command
it is added to the front of the command history.
You can use the minibuffer history commands \\<minibuffer-local-map>\\[next-history-element] and \\[previous-history-element]
to get different commands to edit and resubmit." "p"])
(fset 'goto-line #[(arg) "î~ê└bê    ┬=½è├─┼╞S$¬äSy)ç" [1 selective-display t re-search-forward "[\n]" nil end arg] 5 "\
Goto line ARG, counting from line 1 at beginning of buffer." "NGoto line: "])
(fset 'advertised-undo 'undo)
(fset 'undo #[(&optional arg) "└ ┬├!ê┼=¼ç╞ ê╟╚!ê┼    ╟\n«ü╚!ê    ¡ç└ ?¡é╦ )ç" [buffer-modified-p modified message "Undo!" last-command undo undo-start undo-more 1 this-command arg delete-auto-save-file-if-necessary] 2 "\
Undo some previous changes.
Repeat this command to undo more changes.
A numeric argument serves as a repeat count." "*p"])
(fset 'undo-start #[nil "┴=½ä┬├!êëç" [buffer-undo-list t error "No undo information in this buffer" pending-undo-list] 2 "\
Move undo-pointer to front of undo records.
The next call to undo-more will undo the most recently made change."])
(fset 'undo-more #[(count) "¼ä┴┬!ê├\"ëç" [pending-undo-list error "No further undo information" primitive-undo count] 3 "\
Undo back N undo-boundaries beyond what was already undone recently.
Call undo-start to get ready to undo recent changes,
then call undo-more one or more times to undo them."])
(byte-code "└┴!¼é┬└├!¼é┬└ç" [boundp last-shell-command "" last-shell-command-on-region] 2)
(fset 'shell-command #[(command &optional flag) "½₧┴ ê┬ ê├┼╞┼╚>½â╔¬ü╩&ê╠╞!ç═ ╧Ä╨╤\"½Ä╥╙!ê╙╘ëöO!¬ç╒``┼$*ç" [flag barf-if-buffer-read-only push-mark call-process shell-file-name nil t system-type (ms-dos win386) "/c" "-c" command exchange-point-and-mark match-data data ((store-match-data data)) string-match "[     ]*&[     ]*$" require background 0 shell-command-on-region] 7 "\
Execute string COMMAND in inferior shell; display output, if any.
If COMMAND ends in ampersand, execute it asynchronously.

Optional second arg non-nil (prefix arg, if interactive)
means insert output in current buffer after point (leave mark after it).
This cannot be done asynchronously." (byte-code "└┴\n\"Dç" [read-shell-command "Shell command: " last-shell-command current-prefix-arg] 3)])
(fset 'shell-command-on-region #[(start end command &optional flag interactive) "½╗    ¡ä`┬ W    ½â─ ê┼╔ë╩╠>½â═¬ü╬&ê╨╤!½ä╥╤!ê    ¡å¡â╙╔!)ç╘╤!èqê╓ ê)p=½å╫╫┼╩╩╬&êèqê╪ ┘U½â┘¬ä┌ed\")ë┘U½ë▄▌!ê╥╤!¬í╫U½ö▄▐èqêebê`╩ê`{)\"¬ç▀α!╫\"*ç" [flag interactive mark swap push-mark call-process-region start end shell-file-name t nil system-type (ms-dos win386) "/c" "-c" command get-buffer "*Shell Command Output*" kill-buffer exchange-point-and-mark get-buffer-create buffer erase-buffer 1 buffer-size 0 count-lines lines message "(Shell command completed with no output)" "%s" set-window-start display-buffer] 10 "\
Execute string COMMAND in inferior shell with region as input.
Normally display output (if any) in temp buffer `*Shell Command Output*';
Prefix arg means replace the region with it.
Noninteractive args are START, END, COMMAND, FLAG.
Noninteractively FLAG means insert output in place of text from START to END,
and put point at the end, but don't alter the mark.

If the output is one line, it is displayed in the echo area,
but it is nonetheless available in buffer `*Shell Command Output*'
even though that buffer is not automatically displayed.  If there is no output
or output is inserted in the current buffer then `*Shell Command Output*' is
deleted." (byte-code "`└ ^`└ ]┴┬\"┼!»ç" [mark read-shell-command "Shell command on region: " last-shell-command-on-region current-prefix-arg prefix-numeric-value] 6)])
(fset 'universal-argument #[nil "└\n─ ╞!Ü½å    └_¬s╟    ╚#+ç" [4 c-u last-command-event start-char allocate-event event next-command-event prefix-arg-internal nil] 4 "\
Begin a numeric argument for the following command.
Digits or minus sign following this command make up the numeric argument.
If no digits or minus sign follow, this command by itself provides 4 as argument.
Used more than once, this command multiplies the argument by 4 each time." nil])
(fset 'prefix-arg-internal #[(event c-u value) "└┬├╞!½à╚!    º½ì    ╩W½ç╦    [        ╠=½à╦├    ═=½Ö[├╧!ê╞!½j╚!ë¬cº½▓╨Y½¡╤X½¿    º½ä    ¬ü╩╥_╨Z\\    ├╧!ê╞!½R╚!ë¬K½àC¬æ    º½å    _¬å╦U¡ü╠ë*ç" [t zmacs-region-stays 1 nil char sign key-press-event-p event event-key value 0 -1 - 45 c-u next-command-event 48 57 10 prefix-arg unread-command-event] 4])
(fset 'digit-argument #[(arg) "└    ┬#ç" [prefix-arg-internal last-command-event nil arg] 4 "\
Part of the numeric argument for the next command." "P"])
(fset 'negative-argument #[(arg) "└┴┬├ \"─#ç" [prefix-arg-internal character-to-event 45 allocate-event nil arg] 4 "\
Begin a negative numeric argument for the next command." "P"])
(fset 'forward-to-indentation #[(arg) "yê┴┬wç" [arg "     " nil] 2 "\
Move forward ARG lines and position at first nonblank character." "p"])
(fset 'backward-to-indentation #[(arg) "[yê┴┬wç" [arg "     " nil] 2 "\
Move backward ARG lines and position at first nonblank character." "p"])
(fset 'kill-line #[(&optional arg) "└`    ½ç┬    !yê¬òm½à├─┼\"ê╞╟!½à╚yê¬â┼ê`\"ç" [kill-region arg prefix-numeric-value signal end-of-buffer nil looking-at "[     ]*$" 1] 5 "\
Kill the rest of the current line; if no nonblanks there, kill thru newline.
With prefix argument, kill that many lines from point.
Negative arguments kill lines backward.

When calling from a program, nil means \"no arg\",
a number counts as a prefix arg." "*P"])
(defvar kill-ring nil "\
List of killed text sequences.")
(defconst kill-ring-max 30 "\
*Maximum length of kill ring before oldest elements are thrown away.")
(defvar kill-ring-yank-pointer nil "\
The tail of the kill ring whose car is the last thing yanked.")
(fset 'kill-append #[(string before-p) "    ½å\n@P¬ä@\nPáç" [kill-ring before-p string] 3])
(fset 'kill-region #[(beg end &optional verbose) "½â    ¼è┬½â─¬ü┼!ê½ï╟╚    ]    ^Z\"ê╔    \"ê    |ç" [beg end error zmacs-regions "The region is not active now" "The mark is not set now" verbose message "Killing %d characters" copy-region-as-kill] 5 "\
Kill between point and mark.
The text is deleted but saved in the kill ring.
The command \\[yank] can retrieve it from there.
(If you want to kill and then yank immediately, use \\[kill-ring-save].)

This is the primitive for programs to kill text (as opposed to deleting it).
Supply two arguments, character numbers indicating the stretch of text
 to be killed.
Any command that calls this function is a \"kill command\".
If the previous command was also a kill command,
the text killed this time appends to the text killed last time
to make one entry in the kill ring." "*r\np"])
(defvar kill-hooks nil "\
If non-nil, this should be a function or functions of one argument which
are called with the string most recently added to the kill ring.  You can use
this to, for example, make the most recent kill become the X Clipboard
selection.")
(fset 'copy-region-as-kill #[(beg end) "┴=½ï┬{W\"ê¬ò{BëGV½êS¢╟íê    ë\n:½ç\nó╦=½à\nC\n\n½Å\n@@!ê\nAë\n¼q)┴╟ç" [last-command kill-region kill-append beg end kill-ring kill-ring-max nil kill-ring-yank-pointer kill-hooks rest lambda this-command] 5 "\
Save the region as if killed, but don't kill it." "r"])
(fset 'kill-ring-save #[(beg end) "└    \n\"êè`\nU½â    ¬ü\nbê├`!¡â─┼!)ç" [copy-region-as-kill beg end pos-visible-in-window-p sit-for 0] 3 "\
Save the region as if killed, but don't kill it." "r"])
(fset 'append-next-kill #[nil "t½ê└┬├!ê¬é└┼ëç" [kill-region this-command message "If the next command is a kill, it will append" last-command t zmacs-region-stays] 2 "\
Cause following command, if kill, to append to previous kill." nil])
(fset 'rotate-yank-pointer #[(arg) "Gë┬U½à├─!¬Ä    GZ\\    ª¢ë)ç" [kill-ring length 0 error "Kill ring is empty" arg kill-ring-yank-pointer] 4 "\
Rotate the yanking point in the kill ring." "p"])
(fset 'yank-pop #[(arg) "┴=¼ä┬├!ê┴`┼╞!W`┼╞!|ê╚    !ê╩`!ê@cê¡â╠╞!)ç" [last-command yank error "Previous command was not a yank" this-command mark t before rotate-yank-pointer arg set-mark kill-ring-yank-pointer exchange-point-and-mark] 3 "\
Replace just-yanked stretch of killed-text with a different stretch.
This command is allowed only immediately after a  yank  or a  yank-pop.
At such a time, the region contains a stretch of reinserted
previously-killed text.  yank-pop  deletes that text and inserts in its
place a different stretch of killed text.

With no argument, the previous kill is inserted.
With argument n, the n'th previous kill is inserted.
If n is negative, this is a more recent kill.

The sequence of kills wraps around, so that after the oldest one
comes the newest one." "*p"])
(fset 'yank #[(&optional arg) "└    <½â┬¬è    ├=½â─¬é    S!ê┼`!ê@cê    :¡â╟╚!ç" [rotate-yank-pointer arg 0 - -1 push-mark kill-ring-yank-pointer exchange-point-and-mark t] 3 "\
Reinsert the last stretch of killed text.
More precisely, reinsert the stretch of killed text most recently
killed OR yanked.
With just C-U as argument, same but put point in front (and mark at end).
With argument n, reinsert the nth most recently killed stretch of killed
text.
See also the command \\[yank-pop]." "*P"])
(fset 'insert-buffer #[(buffer) "└    !¼ä┬    !├ëëèè    qêed)╟    #ê`)╚!+ç" [bufferp buffer get-buffer nil newmark end start insert-buffer-substring push-mark] 4 "\
Insert after point the contents of BUFFER.
Puts mark after the inserted text.
BUFFER may be a buffer or a buffer name." (byte-code "└┴┬ ├#Cç" [read-buffer "Insert buffer: " other-buffer t] 4)])
(fset 'append-to-buffer #[(buffer start end) "pè┴\n!qê├#*ç" [oldbuf get-buffer-create buffer insert-buffer-substring start end] 4 "\
Append to specified buffer the text of the region.
It is inserted into that buffer before its point.

When calling from a program, give three arguments:
a buffer or the name of one, and two character numbers
specifying the portion of the current buffer to be copied." "BAppend to buffer: \nr"])
(fset 'prepend-to-buffer #[(buffer start end) "pè┴\n!qêè├#+ç" [oldbuf get-buffer-create buffer insert-buffer-substring start end] 4 "\
Prepend to specified buffer the text of the region.
It is inserted into that buffer after its point.

When calling from a program, give three arguments:
a buffer or the name of one, and two character numbers
specifying the portion of the current buffer to be copied." "BPrepend to buffer: \nr"])
(fset 'copy-to-buffer #[(buffer start end) "pè┴\n!qê├ êè─#+ç" [oldbuf get-buffer-create buffer erase-buffer insert-buffer-substring start end] 4 "\
Copy to specified buffer the text of the region.
It is inserted into that buffer, replacing existing text there.

When calling from a program, give three arguments:
a buffer or the name of one, and two character numbers
specifying the portion of the current buffer to be copied." "BCopy to buffer: \nr"])
(fset 'mark #[(&optional inactive-p) "└    !ë¡â├\n!)ç" [mark-marker inactive-p m marker-position] 3 "\
Return this buffer's mark value as integer, or nil if no mark.

If `zmacs-regions' is true, then this returns nil unless the region is
currently in the active (hilighted) state.  With an argument of t, this
returns the mark (if there is one) regardless of the active-region state.
You should *generally* not use the mark unless the region is active, if
the user has expressed a preference for the active-region model.

If you are using this in an editing command, you are most likely making
a mistake; see the documentation of `set-mark'."])
(fset 'set-mark #[(pos) "└┴!\npôç" [mark-marker t pos] 3 "\
Set this buffer's mark to POS.  Don't use this function!
That is to say, don't use this function unless you want
the user to see that the mark has moved, and you want the previous
mark position to be lost.

Normally, when a new mark is set, the old one should go on the stack.
This is why most applications should use push-mark, not set-mark.

Novice emacs-lisp programmers often try to use the mark for the wrong
purposes.  The mark saves a location for the user's convenience.
Most editing commands should not alter the mark.
To remember a location for internal use in the Lisp program,
store it in a Lisp variable.  Example:

   (let ((beg (point))) (forward-line 1) (delete-region beg (point)))."])
(defvar mark-ring nil "\
The list of saved former marks of the current buffer,
most recent first.")
(make-variable-buffer-local 'mark-ring)
(defconst mark-ring-max 16 "\
*Maximum size of mark ring.  Start discarding off end if gets this big.")
(fset 'set-mark-command #[(arg) "¼å┴ ê┬ ç├─!¼ä┼╞!ç├─!bê╟ ç" [arg push-mark zmacs-activate-region mark t error "No mark set in this buffer" pop-mark] 2 "\
Set mark at where point is, or jump to mark.
With no prefix argument, set mark, and push previous mark on mark ring.
With argument, jump to mark, and pop into mark off the mark ring.

Novice emacs-lisp programmers often try to use the mark for the wrong
purposes.  See the documentation of `set-mark' for more information." "P"])
(fset 'push-mark #[(&optional location nomsg) "└┴!½¥┬├┴!!BëGV½Å¢@╞ëôêS¢╞íê╟«ü`!ê    ¼Ä\n¼è╦ ╠V¼ä═╬!ê╞ç" [mark t copy-marker mark-marker mark-ring mark-ring-max nil set-mark location nomsg executing-macro minibuffer-depth 0 message "Mark set"] 4 "\
Set mark at LOCATION (point, by default) and push old mark on mark ring.
Displays \"Mark set\" unless the optional second arg NOMSG is non-nil.

Novice emacs-lisp programmers often try to use the mark for the wrong
purposes.  See the documentation of `set-mark' for more information."])
(fset 'pop-mark #[nil "¡á┴┬├!!Cñ─@!ê@┼ëôê╞├!¼â╟ êAëç" [mark-ring copy-marker mark-marker t set-mark nil mark ding] 4 "\
Pop off mark ring into the buffer's actual mark.
Does not set point.  Does nothing if mark ring is empty."])
(fset 'exchange-dot-and-mark 'exchange-point-and-mark)
(fset 'exchange-point-and-mark #[(&optional dont-activate-region) "└┴!ë¼ä├─!ê┼`!ê\nbê¼â╟ ê)╚ç" [mark t omark error "No mark set in this buffer" set-mark dont-activate-region zmacs-activate-region nil] 3 "\
Put the mark where point is now, and point where the mark is now." nil])
(fset 'next-line #[(arg) "┴U½á`┴yê\n`U¼àh├=¼ç├cê─¬ç\nbê╞!ê)¬ä╞!ê╟ç" [arg 1 opoint 10 t zmacs-region-stays line-move nil] 2 "\
Move cursor vertically down ARG lines.
If there is no character in the target line exactly under the current column,
the cursor is positioned after the character in that line which spans this
column, or at the end of the line if it is not long enough.
If there is no line in the buffer after this one,
a newline character is inserted to create a line
and the cursor moves to that line.

The command \\[set-goal-column] can be used to create
a semipermanent goal column to which this command always moves.
Then it does not try to move vertically.  This goal column is stored
in `goal-column', which is nil when there is none.

If you are thinking of using this in a Lisp program, consider
using `forward-line' instead.  It is usually easier to use
and more reliable (no dependence on goal column, etc.)." "p"])
(fset 'previous-line #[(arg) "└    [!ê┬ç" [line-move arg nil] 2 "\
Move cursor vertically up ARG lines.
If there is no character in the target line exactly over the current column,
the cursor is positioned after the character in that line which spans this
column, or at the end of the line if it is not long enough.

The command \\[set-goal-column] can be used to create
a semipermanent goal column to which this command always moves.
Then it does not try to move vertically.

If you are thinking of using this in a Lisp program, consider using
`forward-line' with negative argument instead..  It is usually easier
to use and more reliable (no dependence on goal column, etc.)." "p"])
(defconst track-eol nil "\
*Non-nil means vertical motion starting at end of line keeps to ends of lines.
This means moving to the end of each line moved onto.")
(byte-code "└┴┬!¼é├─┬┼╞#ê┬!ç" [make-variable-buffer-local boundp goal-column nil put variable-documentation "*Semipermanent goal column for vertical motion, as set by \\[set-goal-column], or nil."] 5)
(defvar temporary-goal-column 0 "\
Current goal column for vertical motion.
It is the column where point was at the start of current run of vertical motion commands.")
(fset 'line-move #[(arg) "┴=¼É┬=¼ï½ål½â─¬üi¿¼åyꬡ╚V½Æ╔╩!ê╦uê╩yêSë¬j╚W½Å╔╦!ê╚yêTë¬m╠«ü!ê╬╨ç" [last-command next-line previous-line track-eol 9999 temporary-goal-column selective-display arg 0 vertical-motion 1 -1 move-to-column goal-column t zmacs-region-stays nil] 3])
(fset 'set-goal-column #[(arg) "½ê┴├─!ê¬ëi├┼╞!\n\"ê╟┴ç" [arg nil goal-column message "No goal column" substitute-command-keys "Goal column %d (use \\[set-goal-column] with an arg to unset it)" t zmacs-region-stays] 3 "\
Set the current horizontal position as a goal for \\[next-line] and \\[previous-line].
Those commands will move to this position in the line moved to
rather than trying to keep the same horizontal position.
With a non-nil argument, clears out the goal column
so that \\[next-line] and \\[previous-line] resume vertical motion." "P"])
(fset 'transpose-chars #[(arg) "¼ål½â┴uê┬├─!\"ç" [arg -1 transpose-subr forward-char prefix-numeric-value] 4 "\
Interchange characters around point, moving forward one character.
With prefix arg ARG, effect is to take character before point
and drag it forward past ARG other characters (backward if ARG negative).
If no argument and at end of line, the previous two chars are exchanged." "*P"])
(fset 'transpose-words #[(arg) "└┴\n\"ç" [transpose-subr forward-word arg] 3 "\
Interchange words around point, leaving point at end of them.
With prefix arg ARG, effect is to take word before or around point
and drag it forward past ARG other words (backward if ARG negative).
If ARG is zero, the words around or after point and around or after mark
are interchanged." "*p"])
(fset 'transpose-sexps #[(arg) "└┴\n\"ç" [transpose-subr forward-sexp arg] 3 "\
Like \\[transpose-words] but applies to sexps.
Does not work on a sexp that point is in the middle of
if it is a list or string." "*p"])
(fset 'transpose-lines #[(arg) "└┴\n\"ç" [transpose-subr #[(arg) "┴U½î┬êm½â├ ç┴uçyç" [arg 1 nil newline] 2] arg] 3 "\
Exchange current line and previous line, leaving point after both.
With argument ARG, takes previous line and moves it past ARG lines.
With argument 0, interchanges line point is in with line mark is in." "*p"])
(byte-code "└┴Mê┬├Mç" [transpose-subr #[(mover arg) "└ëëë╞U½¬è╚!ê`╔!ê`╩╦!bê╚!ê`╔!ê`╠ ê)═╦!ê╞V½¿╔!ê`╚!ê`╚!ê`╔!ê`╠ ê    bêSë¬T╞W¡Ñ╔!ê`╔!ê`╚!ê`╚!ê`╠ êTë¬W,ç" [nil end2 start2 end1 start1 arg 0 mover 1 -1 mark t transpose-subr-1 exchange-point-and-mark] 5] transpose-subr-1 #[nil "    ^\n]V½ä─┼!ê\n{    {    |êbêcê\nW½â\n¬ë\nGGZ\\bê╚G!êc*ç" [end1 end2 start1 start2 error "Don't have two things to transpose" word2 word1 delete-char] 3]] 2)
(defconst comment-column 32 "\
*Column to indent right-margin comments to.
Setting this variable automatically makes it local to the current buffer.")
(make-variable-buffer-local 'comment-column)
(defconst comment-start nil "\
*String to insert to start a new comment, or nil if no comment syntax defined.")
(defconst comment-start-skip nil "\
*Regexp to match the start of a comment plus everything up to its body.
If there are any \\(...\\) pairs, the comment delimiter text is held to begin
at the place matched by the close of the first pair.")
(defconst comment-end "" "\
*String to insert to end a new comment.
Should be an empty string if comments are terminated by end-of-line.")
(defconst comment-indent-hook '(lambda nil comment-column) "\
Function to compute desired indentation for a comment.
This function is called with no args with point at the beginning of
the comment's starting delimiter.")
(fset 'indent-for-comment #[nil "└yê    ¼ä┬├!çè─ê`)───╔\n╦#½ÿ╠ ═ò½å═òbê¬è╬└öxê╧└öxê`i ëU½åbê¬ì╬─xê`|êjê½ïbê─ëô¬ê    cêèc),ç" [0 comment-start error "No comment syntax defined" nil eolpos cpos indent begpos re-search-forward comment-start-skip move point-marker 1 "     " "^     " comment-indent-hook comment-end] 4 "\
Indent this line's comment to comment column, or insert an empty comment." "*"])
(fset 'set-comment-column #[(arg) "┴=½ä┬├!ç½óè─yê┼!ê─yê╟!ê─öbêi╔╩\"ê)╦ çi╔╩\"ç" [arg - kill-comment nil 0 re-search-backward comment-start-skip re-search-forward comment-column message "Comment column set to %d" indent-for-comment] 3 "\
Set the comment column based on point.
With no arg, set the comment column to the current column.
With just minus as arg, kill any comment on this line.
With any other arg, set comment column to indentation of the previous comment
 and then align or create a comment on this line at that column." "P"])
(fset 'kill-comment #[(arg) "¼ä┴┬!ê├!┼ë╚V¡╠è┼ê`╚yê╔\nÖ½æ╦╠\n!═#ê╬┼wê`╚yê╦╧#½æ╚öbê╬┼xê╨`\"ê╤ ê)½â╥yêSë¬0*ç" [comment-start-skip error "No comment syntax defined" prefix-numeric-value arg nil endc count 0 "" comment-end re-search-forward regexp-quote move "     " t kill-region indent-according-to-mode 1] 5 "\
Kill the comment on this line, if any.
With argument, kill comments on that many lines starting with this one." "*P"])
(fset 'backward-word #[(arg) "[vç" [arg] 1 "\
Move backward until encountering the end of a word.
With argument, do this that many times.
In programs, it is faster to call forward-word with negative arg." "p"])
(fset 'mark-word #[(arg) "└è    vê`)!ê┬ ç" [push-mark arg zmacs-activate-region] 2 "\
Set mark arg words away from point." "p"])
(fset 'kill-word #[(arg) "└`    vê`\"ç" [kill-region arg] 3 "\
Kill characters forward until encountering the end of a word.
With argument, do this that many times." "*p"])
(fset 'backward-kill-word #[(arg) "└    [!ç" [kill-word arg] 2 "\
Kill characters backward until encountering the end of a word.
With argument, do this that many times." "*p"])
(defconst fill-prefix nil "\
*String for filling to insert at front of new line, or nil for none.
Setting this variable automatically makes it local to the current buffer.")
(make-variable-buffer-local 'fill-prefix)
(defconst auto-fill-inhibit-regexp nil "\
*Regexp to match lines which should not be auto-filled.")
(fset 'do-auto-fill #[nil "└\n½èè├yê─\n!)«╥    ?¡╬iV¡╔`è╟T!ê╚└xên½ç╔╩╦#ê╠└xê`*èbên)¼£è╠└xê`U)½à╬ ê¬ìèbê╬ ê)¬é╦)¬.)ç" [nil give-up auto-fill-inhibit-regexp 0 looking-at fill-column opoint move-to-column "^     \n" re-search-forward "[     ]" t "     " fill-point indent-new-comment-line] 4])
(defconst comment-multi-line nil "\
*Non-nil means \\[indent-new-comment-line] should continue same comment
on new line, with no new terminator or starter.")
(fset 'indent-new-comment-line #[nil "└ë├└xê`├└wê`|ê─cêè½└`╟yê╚╔#)½▒╩öl½₧o¼¢└╩yê`╟yê╚╔#)½å╩ö¬_bêi`╩ò{))\n½╚\n    ½í╧ܼ¢¼î╟uêcê╤uê¬ïG\\╧l¼â╧─cê╟uê╥ êè└ê╙╤!,¬ï½àc¬é╒ *ç" [nil comstart comcol "     " 10 comment-start-skip opoint -1 re-search-forward t 0 win comment-end comment-start comment-column "" comment-multi-line 1 indent-for-comment delete-char fill-prefix indent-according-to-mode] 4 "\
Break line at point and indent, continuing comment if presently within one.
The body of the continued comment is indented under the previous comment line." "*"])
(fset 'auto-fill-mode #[(&optional arg) "¼ä    ?¬à┬!├V¡ü─ë┼╞ !êç" [arg auto-fill-function prefix-numeric-value 0 do-auto-fill set-buffer-modified-p buffer-modified-p] 3 "\
Toggle auto-fill mode.
With arg, turn auto-fill mode on if and only if arg is positive.
In auto-fill mode, inserting a space at a column beyond  fill-column
automatically breaks the line at a previous space." "P"])
(fset 'turn-on-auto-fill #[nil "└┴!ç" [auto-fill-mode 1] 2 "\
Unconditionally turn on Auto Fill mode."])
(fset 'set-fill-column #[(arg) "¿½â¬üi┬─┼    \"ç" [arg fill-column t zmacs-region-stays message "fill-column set to %d"] 3 "\
Set fill-column to current column, or to argument if given.
fill-column's value is separate for each buffer." "P"])
(fset 'set-selective-display #[(arg) "┴=½ä┬├!ê¡â┼!╞╟ ╚╟ !\"ê╔╩┴\"ê╦┴\"ê╔╠┴\"ç" [selective-display t error "selective-display already in use for marked lines" arg prefix-numeric-value set-window-start selected-window window-start princ "selective-display set to " prin1 "."] 4 "\
Set selective-display to ARG; clear it if no arg.
When selective-display is a number > 0,
lines whose indentation is >= selective-display are not displayed.
selective-display's value is separate for each buffer." "P"])
(fset 'overwrite-mode #[(arg) "¼ä    ?¬à┬!├V─┼ !ç" [arg overwrite-mode prefix-numeric-value 0 set-buffer-modified-p buffer-modified-p] 2 "\
Toggle overwrite mode.
With arg, turn overwrite mode on iff arg is positive.
In overwrite mode, printing characters typed in replace existing text
on a one-for-one basis, rather than pushing it to the right." "P"])
(defvar blink-matching-paren t "\
*Non-nil means show matching open-paren when close-paren is inserted.")
(defconst blink-matching-paren-distance 4000 "\
*If non-nil, is maximum distance to search for matching open-paren
when close-paren is inserted.")
(fset 'blink-matching-open #[nil "`eTVà¿`└Zfz┴U?à¿\nà¿`─╞╞èî    ½ëe`    Z]}ê╞╩╦Åê)½¢fz╠U¼ôSf═╬╧ fH╨\"╤\"U?½â╞½╖bê╥ ½à╙╘!¬╗bê╒╓è╫╞xên)¼è╪yê`T{¬Ä╘uê┘╞wê╞ê`{\"¬æ½à╒┌!¬ê    ?¡â╒█!-ç" [2 92 blink-matching-paren oldpos t parse-sexp-ignore-comments nil blinkpos mismatch blink-matching-paren-distance (byte-code "└    ┬\"└ç" [scan-sexps oldpos -1 blinkpos] 3) ((error)) 36 logand lsh syntax-table -8 255 pos-visible-in-window-p sit-for 1 message "Matches %s" "     " 0 "\n     " "Mismatched parentheses" "Unmatched parenthesis"] 5 "\
Move cursor momentarily to the beginning of the sexp before point."])
(byte-code "└└ç" [blink-matching-open blink-paren-function] 1)
(fset 'keyboard-quit #[nil "└┴┬\"ç" [signal quit nil] 3 "\
Signal a `quit' condition." nil])
(fset 'set-variable #[(var val) "    Lç" [var val] 2 "\
Set VARIABLE to VALUE.  VALUE is a Lisp object.
When using this interactively, supply a Lisp expression for VALUE.
If you want VALUE to be a string, you must surround it with doublequotes." (byte-code "└┴!├┼\n╟╚╔\n\"!+Dç" [read-variable "Set variable: " var (funcall myhelp) minibuffer-help-form #[nil "└É┴\n!ê├─!ê├┼\n╞\"╟╚O!ê╔\n!½ì╩├╠!ê┴\nJ!ê)╚æç" ["*Help*" prin1 var princ "\nDocumentation:\n" documentation-property variable-documentation 1 nil boundp 20 print-length "\n\nCurrent value: "] 5] myhelp eval-minibuffer format "Set %s to value: "] 5)])