Mercurial > emacs
comparison lisp/mail/supercite.el @ 5286:7b3b23470fa1
(sc-read-string): Don't pass a history arg to read-string.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 23 Dec 1993 03:42:20 +0000 |
parents | 9cde7d7fea1f |
children | ecb09a00d330 |
comparison
equal
deleted
inserted
replaced
5285:6c3cfa1f8188 | 5286:7b3b23470fa1 |
---|---|
497 | 497 |
498 (defun sc-read-string (prompt &optional initial-contents history) | 498 (defun sc-read-string (prompt &optional initial-contents history) |
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. |
507 If optional STRING is provided, take sub-expression using `substring' | 508 If optional STRING is provided, take sub-expression using `substring' |
508 of argument, otherwise use `buffer-substring' on current buffer. Note | 509 of argument, otherwise use `buffer-substring' on current buffer. Note |