diff options
| author | Richard M. Stallman | 1993-12-23 03:42:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-12-23 03:42:20 +0000 |
| commit | 08ffcab37e19febb90dd296eb9ecdc2c69c6374f (patch) | |
| tree | 72f033bbe6af8a39e4904f431b007fbe1eb72828 /lisp | |
| parent | f5a131d8fdc907e3b49b37123deba88fcaf2a590 (diff) | |
| download | emacs-08ffcab37e19febb90dd296eb9ecdc2c69c6374f.tar.gz emacs-08ffcab37e19febb90dd296eb9ecdc2c69c6374f.zip | |
(sc-read-string): Don't pass a history arg to read-string.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/supercite.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index d1c145b4ae3..d6cdd12a2ea 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el | |||
| @@ -499,8 +499,9 @@ In version 18, the HISTORY argument is ignored." | |||
| 499 | "Compatibility between Emacs 18 and 19 `read-string'. | 499 | "Compatibility between Emacs 18 and 19 `read-string'. |
| 500 | In version 18, the HISTORY argument is ignored." | 500 | In version 18, the HISTORY argument is ignored." |
| 501 | (if (memq 'v19 sc-emacs-features) | 501 | (if (memq 'v19 sc-emacs-features) |
| 502 | (funcall 'read-string prompt initial-contents history) | 502 | ;; maybe future versions will take a `history' argument: |
| 503 | (funcall 'read-string prompt initial-contents))) | 503 | (read-string prompt initial-contents) |
| 504 | (read-string prompt initial-contents))) | ||
| 504 | 505 | ||
| 505 | (defun sc-submatch (matchnum &optional string) | 506 | (defun sc-submatch (matchnum &optional string) |
| 506 | "Returns `match-beginning' and `match-end' sub-expression for MATCHNUM. | 507 | "Returns `match-beginning' and `match-end' sub-expression for MATCHNUM. |