;ELC   
;;; compiled by jwz@thalidomide on Thu Mar 24 13:25:36 1994
;;; from file /th/jwz/emacs19/lisp/prim/register.el
;;; emacs version 19.10 Lucid (beta9).
;;; bytecomp version 2.22; 22-dec-93.
;;; 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 "This file 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,
screen configuration, mark or list.
A list of strings represents a rectangle.
A list of the form (file . NAME) represents the file named NAME.")
(fset 'get-register #[(char) "	ћA‡" [char register-alist] 2 "\
Return contents of Emacs register named CHAR, or nil if none."])
(fset '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 VALUEs."])
(fset 'point-to-register #[(char) "А	В \"‡" [set-register char point-marker] 3 "\
Store current location of point in register REGISTER.
Argument is a character, naming the register." "cPoint to register: "])
(fset 'window-configuration-to-register #[(char) "А	В \"‡" [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: "])
(define-function 'register-to-point 'jump-to-register)
(fset 'jump-to-register #[(char) "А	!Г\n!«…Д\n!Є¤Е\n!«ЉЖЗ\n!!€\nbЄ•\n:«Њ\n@И=«†Й\nA!Є…КЛМ!!)‡" [get-register char val window-configuration-p set-window-configuration markerp switch-to-buffer marker-buffer file find-file error gettext "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 screen) or a screen
configuration (all screens), restore that screen or all screens accordingly.
Argument is a character, naming the register." "cJump to register: "])
(fset 'view-register #[(char) "А	!‰¬‹ГДЕ!Ж	!\"‚Ё ДЗ!ђИЙДК!Ж	!\"!€\nЁ«…И\n!ЄэЛ\n!«џМ\n!‰¬…ИО!ЄЏИЙДП!РМ\n!!С\n!#!)ЄЩТ\n!«‡ИДУ!!ЄН\n:«–\n@Ф=«ђИДХ!!€Ц\nA!€ИЧ!Єі\n:«—ИДШ!!€\n­¦И\n@!€Щ €\nA‰Єp\n;«‹ИДЪ!!€И\n!Є‰ИДЫ!!€Ц\n!‘)‡" [get-register char val message gettext "Register %s is empty" single-key-description "*Output*" princ format "Register %s contains " markerp marker-buffer buf "a marker in no buffer" "a buffer position:\nbuff %s, position %s" buffer-name marker-position window-configuration-p "a window configuration." file "the file " prin1 "." "the rectangle:\n" terpri "the text:\n" "Garbage:\n"] 8 "\
Display what is contained in register named REGISTER.
REGISTER is a character." "cView register: "])
(fset 'insert-register #[(char &optional arg) "А €Б\n!‰:«†Д!€Є­;«…c€Є¤Ё«‡Еp\"€Є™Ж!«ЋЗ!«‰ЕЗ!p\"€Є†ИЙК!!€)?­‚М ‡" [push-mark get-register char val insert-rectangle princ markerp marker-position error gettext "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"])
(fset 'copy-to-register #[(char start end &optional delete-flag) "А	\n{\"€­ѓ\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"])
(fset 'append-to-register #[(char start end &optional delete-flag) "А	!;¬†ВГД!!€Е	А	!{P\"€­…|‡" [get-register char error gettext "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"])
(fset 'prepend-to-register #[(char start end &optional delete-flag) "А	!;¬†ВГД!!€Е	{А	!P\"€­…|‡" [get-register char error gettext "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"])
(fset '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"])