Mercurial > emacs

comparison lisp/textmodes/refer.el @ 53853:9f8bd1b673a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)