Mercurial > emacs
comparison lisp/textmodes/reftex-index.el @ 65583:703495630901
Message format spec fixes (2)
| author | Deepak Goel <deego@gnufans.org> |
|---|---|
| date | Sun, 18 Sep 2005 12:28:30 +0000 |
| parents | 253cad16882d |
| children | e274642bf5d5 fa0da9b57058 |
comparison
equal
deleted
inserted
replaced
| 65582:4d1085b02d64 | 65583:703495630901 |
|---|---|
| 1020 (let ((buffer-read-only nil)) | 1020 (let ((buffer-read-only nil)) |
| 1021 (save-excursion | 1021 (save-excursion |
| 1022 (reftex-insert-index (list data) reftex-index-tag t | 1022 (reftex-insert-index (list data) reftex-index-tag t |
| 1023 "EDITED"))) | 1023 "EDITED"))) |
| 1024 (setq reftex-last-follow-point 1) | 1024 (setq reftex-last-follow-point 1) |
| 1025 (and message (message message)))) | 1025 (and message (message "%s" message)))) |
| 1026 | 1026 |
| 1027 ;; Index map | 1027 ;; Index map |
| 1028 (define-key reftex-index-map (if (featurep 'xemacs) [(button2)] [(mouse-2)]) | 1028 (define-key reftex-index-map (if (featurep 'xemacs) [(button2)] [(mouse-2)]) |
| 1029 'reftex-index-mouse-goto-line-and-hide) | 1029 'reftex-index-mouse-goto-line-and-hide) |
| 1030 | 1030 |
| 1185 `C-c C-c'." | 1185 `C-c C-c'." |
| 1186 (interactive "P") | 1186 (interactive "P") |
| 1187 (set-marker reftex-index-return-marker (point)) | 1187 (set-marker reftex-index-return-marker (point)) |
| 1188 (reftex-index-selection-or-word arg 'phrase) | 1188 (reftex-index-selection-or-word arg 'phrase) |
| 1189 (if (eq major-mode 'reftex-index-phrases-mode) | 1189 (if (eq major-mode 'reftex-index-phrases-mode) |
| 1190 (message | 1190 (message "%s" |
| 1191 (substitute-command-keys | 1191 (substitute-command-keys |
| 1192 "Return to LaTeX with \\[reftex-index-phrases-save-and-return]")))) | 1192 "Return to LaTeX with \\[reftex-index-phrases-save-and-return]")))) |
| 1193 | 1193 |
| 1194 (defun reftex-index-visit-phrases-buffer () | 1194 (defun reftex-index-visit-phrases-buffer () |
| 1195 "Switch to the phrases buffer, initialize if empty." | 1195 "Switch to the phrases buffer, initialize if empty." |
| 1908 (princ reftex-index-phrases-help))) | 1908 (princ reftex-index-phrases-help))) |
| 1909 ((equal char ?\C-r) | 1909 ((equal char ?\C-r) |
| 1910 ;; Recursive edit | 1910 ;; Recursive edit |
| 1911 (save-match-data | 1911 (save-match-data |
| 1912 (save-excursion | 1912 (save-excursion |
| 1913 (message | 1913 (message "%s" |
| 1914 (substitute-command-keys | 1914 (substitute-command-keys |
| 1915 "Recursive edit. Resume with \\[exit-recursive-edit]")) | 1915 "Recursive edit. Resume with \\[exit-recursive-edit]")) |
| 1916 (recursive-edit)))) | 1916 (recursive-edit)))) |
| 1917 ((equal char ?e) | 1917 ((equal char ?e) |
| 1918 (setq rpl (read-string "Edit: " rpl))) | 1918 (setq rpl (read-string "Edit: " rpl))) |