Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c81f72ce
Commit
c81f72ce
authored
Nov 03, 2007
by
Thien-Thi Nguyen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(append-to-register, prepend-to-register):
Don't signal error on empty register; use the text, instead.
parent
6159985a
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
17 additions
and
8 deletions
+17
-8
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/register.el
lisp/register.el
+12
-8
No files found.
lisp/ChangeLog
View file @
c81f72ce
2007-11-03 Sean O'Rourke <seano@cs.ucla.edu>
* register.el (append-to-register, prepend-to-register):
Don't signal error on empty register; use the text, instead.
2007-11-03 Michael Olson <mwolson@gnu.org>
* textmodes/remember.el (remember-buffer): Use
...
...
lisp/register.el
View file @
c81f72ce
...
...
@@ -287,10 +287,12 @@ With prefix arg, delete as well.
Called from program, takes four args: REGISTER, START, END and DELETE-FLAG.
START and END are buffer positions indicating what to append."
(
interactive
"cAppend to register: \nr\nP"
)
(
or
(
stringp
(
get-register
register
))
(
error
"Register does not contain text"
))
(
set-register
register
(
concat
(
get-register
register
)
(
filter-buffer-substring
start
end
)))
(
let
((
reg
(
get-register
register
))
(
text
(
filter-buffer-substring
start
end
)))
(
set-register
register
(
cond
((
not
reg
)
text
)
((
stringp
reg
)
(
concat
reg
text
))
(
t
(
error
"Register does not contain text"
)))))
(
if
delete-flag
(
delete-region
start
end
)))
(
defun
prepend-to-register
(
register
start
end
&optional
delete-flag
)
...
...
@@ -299,10 +301,12 @@ With prefix arg, delete as well.
Called from program, takes four args: REGISTER, START, END and DELETE-FLAG.
START and END are buffer positions indicating what to prepend."
(
interactive
"cPrepend to register: \nr\nP"
)
(
or
(
stringp
(
get-register
register
))
(
error
"Register does not contain text"
))
(
set-register
register
(
concat
(
filter-buffer-substring
start
end
)
(
get-register
register
)))
(
let
((
reg
(
get-register
register
))
(
text
(
filter-buffer-substring
start
end
)))
(
set-register
register
(
cond
((
not
reg
)
text
)
((
stringp
reg
)
(
concat
text
reg
))
(
t
(
error
"Register does not contain text"
)))))
(
if
delete-flag
(
delete-region
start
end
)))
(
defun
copy-rectangle-to-register
(
register
start
end
&optional
delete-flag
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment