(sc-read-string): Don't pass a history arg to read-string.

08ffcab3 · Richard M. Stallman · f5a131d8 · 08ffcab3
Commit 08ffcab3 authored Dec 23, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

lisp/mail/supercite.el lisp/mail/supercite.el +3 -2

No files found.
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -499,8 +499,9 @@ In version 18, the HISTORY argument is ignored."
  "Compatibility between Emacs 18 and 19 `read-string'.
 In version 18, the HISTORY argument is ignored."
  (if (memq 'v19 sc-emacs-features)
-      (funcall 'read-string prompt initial-contents history)
-    (funcall 'read-string prompt initial-contents)))
+      ;; maybe future versions will take a `history' argument:
+      (read-string prompt initial-contents)
+    (read-string prompt initial-contents)))

 (defun sc-submatch (matchnum &optional string)
  "Returns `match-beginning' and `match-end' sub-expression for MATCHNUM.