Mercurial > emacs
diff lisp/textmodes/remember.el @ 87626:a918e56d9947
Remember: If region is visible, use it as initial text.
author | Michael Olson <mwolson@gnu.org> |
---|---|
date | Tue, 08 Jan 2008 01:33:08 +0000 |
parents | 25de6f4a58d8 |
children | b9e8ab94c460 |
line wrap: on
line diff
--- a/lisp/textmodes/remember.el Mon Jan 07 18:24:12 2008 +0000 +++ b/lisp/textmodes/remember.el Tue Jan 08 01:33:08 2008 +0000 @@ -273,10 +273,12 @@ INITIAL is the text to initially place in the *Remember* buffer, or nil to bring up a blank *Remember* buffer. -With a prefix, use the region as INITIAL." +With a prefix or a visible region, use the region as INITIAL." (interactive - (list (when current-prefix-arg - (buffer-substring (point) (mark))))) + (list (when (or current-prefix-arg + (and mark-active + transient-mark-mode)) + (buffer-substring (region-beginning) (region-end))))) (funcall (if remember-in-new-frame #'frame-configuration-to-register #'window-configuration-to-register) remember-register) @@ -422,7 +424,7 @@ (defun remember-region (&optional beg end) "Remember the data from BEG to END. It is called from within the *Remember* buffer to save the text -that was entered, +that was entered. If BEG and END are nil, the entire buffer will be remembered.