;;; compiled by jimb@wookumz.gnu.ai.mit.edu on Tue May 25 05:39:04 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/register.el ;;; emacs version 19.8.5. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (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) " \n\"A" [assq char register-alist] 3 "\ Return contents of Emacs register named CHAR, or nil if none."]) (defalias 'set-register #[(char value) " \n\" \" B\nB )" [assq char register-alist aelt setcdr value] 4 "\ 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." "cPoint 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." "cPoint to register: \nP"]) (defalias (quote register-to-point) (quote jump-to-register)) (defalias 'jump-to-register #[(char) " !!\n!\n!I\n!\"\n!I\n!3\n!!\nbI\n:F\n@=F\nA!I!)" [get-register char val fboundp frame-configuration-p set-frame-configuration window-configuration-p set-window-configuration markerp switch-to-buffer marker-buffer file find-file error "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. Argument is a character, naming the register." "cJump to register: "]) (defalias 'view-register #[(char) " ! !\"Ɛ! !!!\n!-\n!\n!I!\n!!!!\n!\n!U!\n!a!\n:}!\n\n@! \nAk\n;!\n!!\n!)" [get-register char val message "Register %s is empty" single-key-description "*Output*" princ "Register " " contains " integerp markerp "a buffer position:\nbuffer " buffer-name marker-buffer ", position " window-configuration-p "a window configuration." frame-configuration-p "a frame configuration." "the rectangle:\n" terpri "the text:\n" "Garbage:\n" prin1] 6 "\ Display what is contained in register named REGISTER. REGISTER is a character." "cView register: "]) (defalias 'insert-register #[(char &optional arg) " \n!: !6 ; c6 !* !2 p\"6!)\n?? " [push-mark get-register char val insert-rectangle integerp markerp princ 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) " \"\"  \"" [set-register char buffer-substring start end delete-flag delete-region] 5 "\ 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 buffer-substring start end delete-flag delete-region] 6 "\ 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 buffer-substring start end delete-flag delete-region] 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 \" \"\"" [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"])