Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
89908:ee1402f7b568 | 89909:68c22ea6027c |
---|---|
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) |
393 (setq refer-bib-directory dir-list)) | 395 (setq refer-bib-directory dir-list)) |
394 (if refer-cache-bib-files | 396 (if refer-cache-bib-files |
395 (setq refer-bib-files files)) | 397 (setq refer-bib-files files)) |
396 files)) | 398 files)) |
397 | 399 |
400 ;;; arch-tag: 151f641b-e79b-462b-9a29-a95c3793f300 | |
398 ;;; refer.el ends here | 401 ;;; refer.el ends here |