annotate lisp/register.el @ 1714:2a1dbc7de507

* scroll.c (do_scrolling): When bcopying the max_ascent field from current_frame to temp_frame, remember that max_ascent is an array of shorts, not ints.
author Jim Blandy <jimb@redhat.com>
date Thu, 24 Dec 1992 06:13:57 +0000
parents 213978acbc1e
children 8ac912d2d369
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 243
diff changeset
1 ;;; register.el --- register commands for Emacs.
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 243
diff changeset
2
845
213978acbc1e entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 820
diff changeset
3 ;; Copyright (C) 1985 Free Software Foundation, Inc.
213978acbc1e entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 820
diff changeset
4
789
71d052f72ac1 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 779
diff changeset
5 ;; Maintainer: FSF
814
38b2499cb3e9 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 807
diff changeset
6 ;; Keywords: internal
789
71d052f72ac1 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 779
diff changeset
7
47
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 789
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
47
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; any later version.
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23
789
71d052f72ac1 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 779
diff changeset
24 ;;; Code:
47
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 (defvar register-alist nil
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 "Alist of elements (NAME . CONTENTS), one for each Emacs register.
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 NAME is a character (a number). CONTENTS is a string, number,
779
c2dbf1fe0506 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 658
diff changeset
29 frame configuration, mark or list.
141
405b4fa6de27 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 72
diff changeset
30 A list represents a rectangle; its elements are strings.")
47
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 (defun get-register (char)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 "Return contents of Emacs register named CHAR, or nil if none."
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 (cdr (assq char register-alist)))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 (defun set-register (char value)
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 151
diff changeset
37 "Set contents of Emacs register named CHAR to VALUE. Returns VALUE."
47
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 (let ((aelt (assq char register-alist)))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 (if aelt
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 (setcdr aelt value)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 (setq aelt (cons char value))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 (setq register-alist (cons aelt register-alist)))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 value))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44
141
405b4fa6de27 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 72
diff changeset
45 (defun point-to-register (char arg)
405b4fa6de27 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 72
diff changeset
46 "Store current location of point in register REGISTER.
779
c2dbf1fe0506 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 658
diff changeset
47 With prefix argument, store current frame configuration.
141
405b4fa6de27 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 72
diff changeset
48 Use \\[jump-to-register] to go to that location or restore that configuration.
47
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 Argument is a character, naming the register."
141
405b4fa6de27 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 72
diff changeset
50 (interactive "cPoint to register: \nP")
779
c2dbf1fe0506 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 658
diff changeset
51 (set-register char (if arg (current-frame-configuration) (point-marker))))
47
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52
820
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
53 (defun window-configuration-to-register (char arg)
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
54 "Store the window configuration of the selected frame in register REGISTER.
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
55 Use \\[jump-to-register] to restore the configuration.
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
56 Argument is a character, naming the register."
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
57 (interactive "cPoint to register: \nP")
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
58 (set-register char (current-window-configuration)))
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
59
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
60 (defun frame-configuration-to-register (char arg)
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
61 "Store the window configuration of all frames in register REGISTER.
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
62 Use \\[jump-to-register] to restore the configuration.
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
63 Argument is a character, naming the register."
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
64 (interactive "cPoint to register: \nP")
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
65 (set-register char (current-frame-configuration)))
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
66
47
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 (fset 'register-to-point 'jump-to-register)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 (defun jump-to-register (char)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 "Move point to location stored in a register.
820
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
70 If the register contains a window configuration (one frame) or a frame
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
71 configuration (all frames), restore that frame or all frames accordingly.
47
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72 Argument is a character, naming the register."
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 (interactive "cJump to register: ")
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 (let ((val (get-register char)))
141
405b4fa6de27 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 72
diff changeset
75 (condition-case ()
779
c2dbf1fe0506 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 658
diff changeset
76 (set-frame-configuration val)
141
405b4fa6de27 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 72
diff changeset
77 (error
820
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
78 (if (window-configuration-p val)
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
79 (set-window-configuration val)
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
80 (if (markerp val)
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
81 (progn
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
82 (switch-to-buffer (marker-buffer val))
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
83 (goto-char val))
cd6b1e1da3fc *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
84 (error "Register doesn't contain a buffer position or configuration")))))))
47
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 ;(defun number-to-register (arg char)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87 ; "Store a number in a register.
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88 ;Two args, NUMBER and REGISTER (a character, naming the register).
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 ;If NUMBER is nil, digits in the buffer following point are read
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 ;to get the number to store.
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 ;Interactively, NUMBER is the prefix arg (none means nil)."
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 ; (interactive "P\ncNumber to register: ")
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 ; (set-register char
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 ; (if arg
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 ; (prefix-numeric-value arg)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 ; (if (looking-at "[0-9][0-9]*")
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 ; (save-excursion
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 ; (save-restriction
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 ; (narrow-to-region (point)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 ; (progn (skip-chars-forward "0-9")
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101 ; (point)))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102 ; (goto-char (point-min))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103 ; (read (current-buffer))))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104 ; 0))))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 ;(defun increment-register (arg char)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107 ; "Add NUMBER to the contents of register REGISTER.
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 ;Interactively, NUMBER is the prefix arg (none means nil)."
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 ; (interactive "p\ncNumber to register: ")
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 ; (or (integerp (get-register char))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111 ; (error "Register does not contain a number"))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 ; (set-register char (+ arg (get-register char))))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 (defun view-register (char)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115 "Display what is contained in register named REGISTER.
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116 REGISTER is a character."
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 (interactive "cView register: ")
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 (let ((val (get-register char)))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 (if (null val)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 (message "Register %s is empty" (single-key-description char))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121 (with-output-to-temp-buffer "*Output*"
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 (princ "Register ")
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123 (princ (single-key-description char))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 (princ " contains ")
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125 (if (integerp val)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 (princ val)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 (if (markerp val)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 (progn
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 (princ "a buffer position:\nbuffer ")
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 (princ (buffer-name (marker-buffer val)))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131 (princ ", position ")
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132 (princ (+ 0 val)))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133 (if (consp val)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 (progn
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135 (princ "the rectangle:\n")
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 (while val
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 (princ (car val))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 (terpri)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139 (setq val (cdr val))))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140 (princ "the string:\n")
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141 (princ val))))))))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 (defun insert-register (char &optional arg)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144 "Insert contents of register REG. REG is a character.
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145 Normally puts point before and mark after the inserted text.
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 If optional second arg is non-nil, puts mark before and point after.
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 Interactively, second arg is non-nil if prefix arg is supplied."
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 (interactive "cInsert register: \nP")
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 (push-mark)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 (let ((val (get-register char)))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 (if (consp val)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 (insert-rectangle val)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 (if (stringp val)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154 (insert val)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
155 (if (or (integerp val) (markerp val))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156 (princ (+ 0 val) (current-buffer))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157 (error "Register does not contain text")))))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 (if (not arg) (exchange-point-and-mark)))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 (defun copy-to-register (char start end &optional delete-flag)
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 151
diff changeset
161 "Copy region into register REG. With prefix arg, delete as well.
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 151
diff changeset
162 Called from program, takes four args: REG, START, END and DELETE-FLAG.
47
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 START and END are buffer positions indicating what to copy."
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164 (interactive "cCopy to register: \nr\nP")
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165 (set-register char (buffer-substring start end))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 (if delete-flag (delete-region start end)))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168 (defun append-to-register (char start end &optional delete-flag)
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 151
diff changeset
169 "Append region to text in register REG. With prefix arg, delete as well.
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 151
diff changeset
170 Called from program, takes four args: REG, START, END and DELETE-FLAG.
47
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171 START and END are buffer positions indicating what to append."
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172 (interactive "cAppend to register: \nr\nP")
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 (or (stringp (get-register char))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 (error "Register does not contain text"))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 (set-register char (concat (get-register char)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176 (buffer-substring start end)))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177 (if delete-flag (delete-region start end)))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
178
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179 (defun prepend-to-register (char start end &optional delete-flag)
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 151
diff changeset
180 "Prepend region to text in register REG. With prefix arg, delete as well.
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 151
diff changeset
181 Called from program, takes four args: REG, START, END and DELETE-FLAG.
47
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
182 START and END are buffer positions indicating what to prepend."
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 (interactive "cPrepend to register: \nr\nP")
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 (or (stringp (get-register char))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185 (error "Register does not contain text"))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186 (set-register char (concat (buffer-substring start end)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 (get-register char)))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
188 (if delete-flag (delete-region start end)))
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190 (defun copy-rectangle-to-register (char start end &optional delete-flag)
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 151
diff changeset
191 "Copy rectangular region into register REG. With prefix arg, delete as well.
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 151
diff changeset
192 Called from program, takes four args: REG, START, END and DELETE-FLAG.
47
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
193 START and END are buffer positions giving two corners of rectangle."
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
194 (interactive "cCopy rectangle to register: \nr\nP")
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
195 (set-register char
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
196 (if delete-flag
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
197 (delete-extract-rectangle start end)
dfec464ac265 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
198 (extract-rectangle start end))))
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 243
diff changeset
199
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 243
diff changeset
200 ;;; register.el ends here