# HG changeset patch
# User Michael Olson <mwolson@gnu.org>
# Date 1199755988 0
# Node ID a918e56d9947370bead32a9c77762747bd5c7eb2
# Parent  f1e7931e86ce753f84b2ebb21110d7cb5f38d6be
Remember: If region is visible, use it as initial text.

diff -r f1e7931e86ce -r a918e56d9947 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jan 07 18:24:12 2008 +0000
+++ b/lisp/ChangeLog	Tue Jan 08 01:33:08 2008 +0000
@@ -1,3 +1,15 @@
+2008-01-08  Michael Olson  <mwolson@gnu.org>
+
+	* textmodes/remember.el (remember-region): Fix typo in docstring.
+
+2008-01-08  Lennart Borgman  <lennart.borgman.073@student.lu.se>
+
+	* textmodes/remember.el (remember): If there is a visible region
+	[that is, the mark is active and transient mark mode is enabled]
+	then use this region for the initial contents of the *Remember*
+	buffer.  Use `region-beginning' and `region-end' instead of
+	`point' and `mark'.
+
 2008-01-07  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* vc-hg.el (vc-hg-dir-state, vc-hg-dir-status): Pass the dir
diff -r f1e7931e86ce -r a918e56d9947 lisp/textmodes/remember.el
--- 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.