Mercurial > emacs
comparison lisp/textmodes/refer.el @ 53853:9f8bd1b673a8
(refer-find-entry-internal): Remove extra
format string arguments.
author | Andreas Schwab <schwab@suse.de> |
---|---|
date | Sun, 08 Feb 2004 22:30:29 +0000 |
parents | 695cf19ef79e |
children | 58a53f588384 |
comparison
equal
deleted
inserted
replaced
53852:f2815a01829d | 53853:9f8bd1b673a8 |
---|---|
1 ;;; refer.el --- look up references in bibliography files | 1 ;;; refer.el --- look up references in bibliography files |
2 | 2 |
3 ;; Copyright (C) 1992, 1996, 2001 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1992, 1996, 2001, 2004 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Ashwin Ram <ashwin@cc.gatech.edu> | 5 ;; Author: Ashwin Ram <ashwin@cc.gatech.edu> |
6 ;; Maintainer: Gernot Heiser <gernot@acm.org> | 6 ;; Maintainer: Gernot Heiser <gernot@acm.org> |
7 ;; Adapted-By: ESR | 7 ;; Adapted-By: ESR |
8 ;; Keywords: bib | 8 ;; Keywords: bib |
224 (setq refer-saved-pos (point)) | 224 (setq refer-saved-pos (point)) |
225 (recenter 0) | 225 (recenter 0) |
226 (throw 'found (find-file file))) | 226 (throw 'found (find-file file))) |
227 (setq refer-saved-pos nil | 227 (setq refer-saved-pos nil |
228 files (cdr files))) | 228 files (cdr files))) |
229 (progn (message "Scanning %s... No such file" (car files) (ding)) | 229 (progn (ding) |
230 (message "Scanning %s... No such file" (car files)) | |
230 (sit-for 1) | 231 (sit-for 1) |
231 (setq files (cdr files)))))) | 232 (setq files (cdr files)))))) |
232 (message "Keywords \"%s\" not found in any \.bib file" keywords (ding))) | 233 (ding) |
234 (message "Keywords \"%s\" not found in any \.bib file" keywords)) | |
233 (select-window old-window))) | 235 (select-window old-window))) |
234 | 236 |
235 (defun refer-find-entry-in-file (keywords-list file &optional old-pos) | 237 (defun refer-find-entry-in-file (keywords-list file &optional old-pos) |
236 (message "Scanning %s..." file) | 238 (message "Scanning %s..." file) |
237 (expand-file-name file) | 239 (expand-file-name file) |