Mercurial > emacs
diff lisp/textmodes/refer.el @ 89909:68c22ea6027c
Sync to HEAD
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 16 Apr 2004 12:51:06 +0000 |
parents | 375f2633d815 |
children | 4da4a09e8b1b |
line wrap: on
line diff
--- a/lisp/textmodes/refer.el Thu Apr 15 01:08:34 2004 +0000 +++ b/lisp/textmodes/refer.el Fri Apr 16 12:51:06 2004 +0000 @@ -1,6 +1,6 @@ ;;; refer.el --- look up references in bibliography files -;; Copyright (C) 1992, 1996, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1996, 2001, 2004 Free Software Foundation, Inc. ;; Author: Ashwin Ram <ashwin@cc.gatech.edu> ;; Maintainer: Gernot Heiser <gernot@acm.org> @@ -226,10 +226,12 @@ (throw 'found (find-file file))) (setq refer-saved-pos nil files (cdr files))) - (progn (message "Scanning %s... No such file" (car files) (ding)) + (progn (ding) + (message "Scanning %s... No such file" (car files)) (sit-for 1) (setq files (cdr files)))))) - (message "Keywords \"%s\" not found in any \.bib file" keywords (ding))) + (ding) + (message "Keywords \"%s\" not found in any \.bib file" keywords)) (select-window old-window))) (defun refer-find-entry-in-file (keywords-list file &optional old-pos) @@ -395,4 +397,5 @@ (setq refer-bib-files files)) files)) +;;; arch-tag: 151f641b-e79b-462b-9a29-a95c3793f300 ;;; refer.el ends here