diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-30 22:53:21 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-30 23:12:30 -0700 |
| commit | 2cac2e2e1067b6f48e96667b9c030cdb5df88af4 (patch) | |
| tree | ad5375302a3c1e080a4995a3c44e08c2d662d8a8 /lisp/textmodes/page-ext.el | |
| parent | b533552292e37a99862627651e11860c6ef5411c (diff) | |
| download | emacs-2cac2e2e1067b6f48e96667b9c030cdb5df88af4.tar.gz | |
Quoting fixes in lisp/textmodes
* lisp/textmodes/bibtex.el (bibtex-validate)
(bibtex-validate-globally, bibtex-search-entries):
* lisp/textmodes/ispell.el (ispell-command-loop):
* lisp/textmodes/page-ext.el (search-pages, pages-directory):
* lisp/textmodes/texinfmt.el (texinfmt-version)
(texinfo-format-region, texinfo-format-buffer-1):
* lisp/textmodes/two-column.el (2C-split):
Respect text quoting style in doc strings and diagnostics.
* lisp/textmodes/conf-mode.el (conf-mode-map, conf-quote-normal):
* lisp/textmodes/sgml-mode.el (sgml-specials, sgml-mode):
Escape apostrophes in doc strings.
Diffstat (limited to 'lisp/textmodes/page-ext.el')
| -rw-r--r-- | lisp/textmodes/page-ext.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el index d3bd33e98f0..57134e06c19 100644 --- a/lisp/textmodes/page-ext.el +++ b/lisp/textmodes/page-ext.el @@ -395,8 +395,8 @@ Point is left in the body of page." "Search for REGEXP, starting from point, and narrow to page it is in." (interactive (list (read-string - (format "Search for `%s' (end with RET): " - (or pages-last-search "regexp"))))) + (format-message "Search for `%s' (end with RET): " + (or pages-last-search "regexp"))))) (if (equal regexp "") (setq regexp pages-last-search) (setq pages-last-search regexp)) @@ -549,16 +549,18 @@ directory for only the accessible portion of the buffer." (list nil nil (read-string - (format "Select according to `%s' (end with RET): " - (or pages-directory-previous-regexp "regexp"))))) + (format-message + "Select according to `%s' (end with RET): " + (or pages-directory-previous-regexp "regexp"))))) ((> (prefix-numeric-value current-prefix-arg) 0) (list t t nil)) ((< (prefix-numeric-value current-prefix-arg) 0) (list nil t (read-string - (format "Select according to `%s' (end with RET): " - (or pages-directory-previous-regexp "regexp"))))))) + (format-message + "Select according to `%s' (end with RET): " + (or pages-directory-previous-regexp "regexp"))))))) (if (equal regexp "") (setq regexp pages-directory-previous-regexp) |