;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 3 21:52:53 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/register.el ;;; emacs version 19.22.92.2. ;;; 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/register.el' was compiled for Emacs 19")) (defvar register-alist nil "\ Alist of elements (NAME . CONTENTS), one for each Emacs register. NAME is a character (a number). CONTENTS is a string, number, frame configuration, mark or list. A list of strings represents a rectangle. A list of the form (file . NAME) represents the file named NAME.") (defalias 'get-register #[(char) " A" [char register-alist] 2 "\ Return contents of Emacs register named CHAR, or nil if none."]) (defalias 'set-register #[(char value) " \n  B B )" [char register-alist aelt value] 3 "\ Set contents of Emacs register named CHAR to VALUE. Returns VALUE. See the documentation of the variable `register-alist' for possible VALUE."]) (defalias 'point-to-register #[(char &optional arg) " \n \"" [set-register char arg current-frame-configuration point-marker] 3 "\ Store current location of point in register REGISTER. With prefix argument, store current frame configuration. Use \\[jump-to-register] to go to that location or restore that configuration. Argument is a character, naming the register." "cPoint to register: \nP"]) (defalias 'window-configuration-to-register #[(char &optional arg) " \"" [set-register char current-window-configuration] 3 "\ Store the window configuration of the selected frame in register REGISTER. Use \\[jump-to-register] to restore the configuration. Argument is a character, naming the register." "cWindow configuration to register: \nP"]) (defalias 'frame-configuration-to-register #[(char &optional arg) " \"" [set-register char current-frame-configuration] 3 "\ Store the window configuration of all frames in register REGISTER. Use \\[jump-to-register] to restore the configuration. Argument is a character, naming the register." "cFrame configuration to register: \nP"]) (defalias (quote register-to-point) (quote jump-to-register)) (defalias 'jump-to-register #[(char &optional delete) " !!\n!\n?\"V\n!%\n!V\n!@\n!5!\n!!\nbV\n:S\n@=S\nA!V!)" [get-register char val fboundp frame-configuration-p set-frame-configuration delete window-configuration-p set-window-configuration markerp marker-buffer error "That register's buffer no longer exists" switch-to-buffer file find-file "Register doesn't contain a buffer position or configuration"] 3 "\ Move point to location stored in a register. If the register contains a file name, find that file. (To put a file name in a register, you must use `set-register'.) If the register contains a window configuration (one frame) or a frame configuration (all frames), restore that frame or all frames accordingly. First argument is a character, naming the register. Optional second arg non-nil (interactively, prefix argument) says to delete any existing frames that the frame configuration doesn't mention. (Otherwise, these frames are iconified.)" "cJump to register: \nP"]) (defalias 'view-register #[(char) " ! !\"Ɛ! !!!\n,\n!\n!Y\n!\fA!U!\f!!!\n!!)\n!e!\n!q!\n:\n@=!\nA!!\n:!\n\n@! \nA\n;!\n!!\n!)" [get-register char val message "Register %s is empty" single-key-description "*Output*" princ "Register " " contains " markerp marker-buffer buf "a marker in no buffer" "a buffer position:\nbuffer " buffer-name ", position " marker-position window-configuration-p "a window configuration." frame-configuration-p "a frame configuration." file "the file " prin1 "." "the rectangle:\n" terpri "the text:\n" "Garbage:\n"] 5 "\ Display what is contained in register named REGISTER. REGISTER is a character." "cView register: "]) (defalias 'insert-register #[(char &optional arg) " \n!: !E ; cE + p\"E !A !A !p\"E!)\n?N " [push-mark get-register char val insert-rectangle princ markerp marker-position error "Register does not contain text" arg exchange-point-and-mark] 4 "\ Insert contents of register REG. REG is a character. Normally puts point before and mark after the inserted text. If optional second arg is non-nil, puts mark before and point after. Interactively, second arg is non-nil if prefix arg is supplied." "cInsert register: \nP"]) (defalias 'copy-to-register #[(char start end &optional delete-flag) " \n {\"\f\n |" [set-register char start end delete-flag] 4 "\ Copy region into register REG. With prefix arg, delete as well. Called from program, takes four args: REG, START, END and DELETE-FLAG. START and END are buffer positions indicating what to copy." "cCopy to register: \nr\nP"]) (defalias 'append-to-register #[(char start end &optional delete-flag) " !; ! ! {P\" |" [get-register char error "Register does not contain text" set-register start end delete-flag] 5 "\ Append region to text in register REG. With prefix arg, delete as well. Called from program, takes four args: REG, START, END and DELETE-FLAG. START and END are buffer positions indicating what to append." "cAppend to register: \nr\nP"]) (defalias 'prepend-to-register #[(char start end &optional delete-flag) " !; ! { !P\" |" [get-register char error "Register does not contain text" set-register start end delete-flag] 5 "\ Prepend region to text in register REG. With prefix arg, delete as well. Called from program, takes four args: REG, START, END and DELETE-FLAG. START and END are buffer positions indicating what to prepend." "cPrepend to register: \nr\nP"]) (defalias 'copy-rectangle-to-register #[(char start end &optional delete-flag) " \n \f \"\f \"\"" [set-register char delete-flag delete-extract-rectangle start end extract-rectangle] 5 "\ Copy rectangular region into register REG. With prefix arg, delete as well. Called from program, takes four args: REG, START, END and DELETE-FLAG. START and END are buffer positions giving two corners of rectangle." "cCopy rectangle to register: \nr\nP"])