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 |