Fix some missing trailing whitespace (tiny change)

* lisp/calendar/icalendar.el (icalendar-export-file, icalendar-import-file):
* lisp/emulation/ws-mode.el (ws-query-replace):
* lisp/sort.el (sort-regexp-fields):
Fix missing trailing whitespace in interactive prompts.

Fixes: debbugs:11002

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0032e07074ceecd60901b3f3ccd10219954d6d0c..0528edaf20680f19e38c012f0613c6850306fe96 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2012-03-13  Tim Landscheidt  <tim@tim-landscheidt.de>  (tiny change)
+
+       * calendar/icalendar.el (icalendar-export-file, icalendar-import-file):
+       * emulation/ws-mode.el (ws-query-replace):
+       * sort.el (sort-regexp-fields):
+       Fix missing trailing whitespace in interactive prompts.  (Bug#11002)
+
 2012-03-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * dabbrev.el: Fix cycle completion order (bug#10963).

diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el
index 83bda94fefe8f7e70c21f725543e0da0a4cbcd49..f1549ec20b1d3031684a620b472b516bc5d9cdba 100644 (file)
--- a/lisp/calendar/icalendar.el
+++ b/lisp/calendar/icalendar.el
@@ -915,7 +915,7 @@ would be \"pm\"."
   "Export diary file to iCalendar format.
 All diary entries in the file DIARY-FILENAME are converted to iCalendar
 format.  The result is appended to the file ICAL-FILENAME."
-  (interactive "FExport diary data from file:
+  (interactive "FExport diary data from file: \n\
 Finto iCalendar file: ")
   (save-current-buffer
     (set-buffer (find-file diary-filename))
@@ -1794,7 +1794,7 @@ Argument ICAL-FILENAME output iCalendar file.
 Argument DIARY-FILENAME input `diary-file'.
 Optional argument NON-MARKING determines whether events are created as
 non-marking or not."
-  (interactive "fImport iCalendar data from file:
+  (interactive "fImport iCalendar data from file: \n\
 Finto diary file:
 p")
   ;; clean up the diary file

diff --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el
index aa8d647ec116365ce259e42b74594f048221a28c..0c7be145751f9acce7f4a5f38c8a86ed7dadfdaa 100644 (file)
--- a/lisp/emulation/ws-mode.el
+++ b/lisp/emulation/ws-mode.el
@@ -716,7 +716,7 @@ This will only work for errors raised by WordStar mode functions."
 
 (defun ws-query-replace (from to)
   "In WordStar mode: Search string, remember string for repetition."
-  (interactive "sReplace:
+  (interactive "sReplace: \n\
 sWith: " )
   (setq ws-search-string from)
   (setq ws-search-direction t)

diff --git a/lisp/sort.el b/lisp/sort.el
index d38e475fd39027a43ddc2ab54e9c313b5d4e4189..8cfe69f94584b586abf4eb6c83beb89cce78f3f6 100644 (file)
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -423,7 +423,7 @@ For example: to sort lines in the region by the first word on each line
   ;; using negative prefix arg to mean "reverse" is now inconsistent with
   ;; other sort-.*fields functions but then again this was before, since it
   ;; didn't use the magnitude of the arg to specify anything.
-  (interactive "P\nsRegexp specifying records to sort:
+  (interactive "P\nsRegexp specifying records to sort: \n\
 sRegexp specifying key within record: \nr")
   (cond ((or (equal key-regexp "") (equal key-regexp "\\&"))
         (setq key-regexp 0))