Mercurial > emacs
annotate lisp/textmodes/bibtex.el @ 8717:e56d09b95778
(put-string-on-kill-ring): Delete this function.
(bibtex-current-entry-label): Use kill-new instead.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Thu, 08 Sep 1994 17:44:42 +0000 |
parents | 55a80566d955 |
children | d2d5fe5acc24 |
rev | line source |
---|---|
662
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
1 ;;; bibtex.el --- BibTeX mode for GNU Emacs |
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
2 |
7300 | 3 ;; Copyright (C) 1992, 1994 Free Software Foundation, Inc. |
845 | 4 |
810
80303373daae
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
5 ;; Author: Bengt Martensson <ubrinf!mond!bengt> |
80303373daae
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
6 ;; Mark Shapiro <shapiro@corto.inria.fr> |
80303373daae
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
7 ;; Mike Newton <newton@gumby.cs.caltech.edu> |
80303373daae
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
8 ;; Aaron Larson <alarson@src.honeywell.com> |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
9 ;; Version: 1.3.1 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
10 ;; Maintainer:Aaron Larson <alarson@src.honeywell.com> |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
11 ;; Adapted-By: ESR |
810
80303373daae
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
12 ;; Keywords: tex, bib |
80303373daae
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
13 |
257 | 14 ;; This file is part of GNU Emacs. |
15 | |
16 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
17 ;; it under the terms of the GNU General Public License as published by | |
1851 | 18 ;; the Free Software Foundation; either version 2, or (at your option) |
257 | 19 ;; any later version. |
20 | |
21 ;; GNU Emacs is distributed in the hope that it will be useful, | |
22 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
23 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
24 ;; GNU General Public License for more details. | |
25 | |
26 ;; You should have received a copy of the GNU General Public License | |
27 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
28 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
29 | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
30 ;;; TODO distribute texinfo file. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
31 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
32 ;;; LCD Archive Entry: |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
33 ;;; bibtex-mode|Bengt Martensson, Marc Shapiro, Aaron Larson| |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
34 ;;; alarson@src.honeywell.com| |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
35 ;;; Support for maintaining BibTeX format bibliography databases| |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
36 ;;; 93-03-29|version 1.3|~/modes/bibtex-mode.el.Z| |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
37 |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1851
diff
changeset
|
38 ;;; Commentary: |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1851
diff
changeset
|
39 |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
40 ;;; BUGS: |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
41 ;;; 1. using regular expressions to match the entire bibtex entry dies |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
42 ;;; on long bibtex entires (e.g. those containing abstracts) since |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
43 ;;; the length of regular expression matches is fairly limited. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
44 ;;; 2. When inserting a string (with \C-C\C-E\s) hitting a TAB results |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
45 ;;; in the error message "Can't find enclosing Bibtex field" instead |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
46 ;;; of moving to the empty string. [reported by gernot@cs.unsw.oz.au] |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
47 ;;; 3. Function string-equalp should be in a library file, not in this |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
48 ;;; file. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
49 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
50 ;;; (current keeper: alarson@src.honeywell.com |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
51 ;;; previous: shapiro@corto.inria.fr) |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1851
diff
changeset
|
52 |
810
80303373daae
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
53 ;;; Change Log: |
561 | 54 |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
55 ;; Mon Mar 29 14:06:06 1993 Aaron Larson (alarson at gendibal) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
56 ;; |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
57 ;; * bibtex.el: V1.3 released Mar 30, 1993 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
58 ;; (bibtex-field-name): Fix to match definition if latex manual, |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
59 ;; specifically letters, digits, and punctuation other than comma. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
60 ;; Underscore is retained for historical reasons. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
61 ;; (bibtex-make-field): Fix to work around bug in Lucid prin1-to-string |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
62 ;; function as reported by Martin Sjolin <marsj@ida.liu.se>. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
63 ;; (bibtex-entry): minor code cleanup. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
64 ;; (bibtex-mode-map): Remove key binding (C-c n) for |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
65 ;; narrow-to-bibtex-entry, previous binding violated emacs policy of |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
66 ;; reserving C-c followed by a letter for user customization. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
67 ;; revise modification history to better conform to FSF changelog |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
68 ;; standards. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
69 ;; (bibtex-refile-entry): Removed. Would need disclaimer papers to |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
70 ;; incorporate it into official sources, and unable to contact author. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
71 ;; Fix minor "syntax" errors in documentation strings and such found |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
72 ;; by new byte compiler. Funs bibtex-mode, bibtex-remove-double-quotes |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
73 ;; |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
74 ;; |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
75 ;; Fri Jan 15 14:06:06 1993 Aaron Larson (alarson at gendibal) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
76 ;; |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
77 ;; * bibtex.el: V1.2 released Feb 15 1993 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
78 ;; (find-bibtex-entry-location bibtex-make-field): Fixed placement of |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
79 ;; "interactive specification". [Bug report from |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
80 ;; mernst@theory.lcs.mit.edu] |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
81 ;; Fixed problem where bibtex-entry would fail if user typed entry |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
82 ;; name in wrong case. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
83 ;; (bibtex-inside-field) Position the cursor _before_ the last comma |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
84 ;; on a line (the comma is not necessarily "inside" the field); this |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
85 ;; does not seem to break any existing code. ref sct@dcs.edinburgh.ac.uk |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
86 ;; (bibtex-enclosing-field, bibtex-enclosing-reference): leave |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
87 ;; point unmoved if no enclosing field/reference is found. As a |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
88 ;; result of changes (3) and (4) bibtex-next-field works properly, |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
89 ;; even when called from the entry key position. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
90 ;; (bibtex-remove-OPT): realign the '=' after removing the 'opt'. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
91 ;; (bibtex-clean-entry): always remove any trailing comma from the |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
92 ;; end of a bibtex entry (these commas get stripped automatically when |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
93 ;; optional fields are killed by bibtex-kill-optional-field, but can be |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
94 ;; left if optional fields are removed by other means). |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
95 ;; (bibtex-x-help) Replace tab with spaces in X menu as noted by |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
96 ;; khera@cs.duke.edu |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
97 ;; (bibtex-refile-entry): Added (from brannon@jove.cs.caltech.edu) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
98 ;; (bibtex-sort-ignore-string-entries sort-bibtex-entries, |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
99 ;; map-bibtex-entries): Added variable as requested by |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
100 ;; gernot@cs.unsw.oz.au, required changes to funs. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
101 ;; (bibtex-current-entry-label): Added at request of |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
102 ;; yasuro@maekawa.is.uec.ac.jp |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
103 ;; (bibtex-DEAthesis:) Deleted along with corresponding entry from |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
104 ;; bibtex-x-help per shapiro@corto.inria.fr |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
105 ;; Moved narrow-to-bibtex-entry from C-c C-n to C-c n (the previous |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
106 ;; binding was in conflict with the binding for bibtex-pop-next. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
107 ;; bug report from [shapiro@corto.inria.fr] |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
108 ;; |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
109 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
110 ;;; |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
111 ;;; alarson@src.honeywell.com 92-Feb-13 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
112 ;;; 1. Made bibtex-entry user callable, now prompts for entry type (e.g. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
113 ;;; Article), with completion, and bound it to a key. This is now my |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
114 ;;; preferred way to add most entries. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
115 ;;; 2. Made fields of a bibtex entry derived from the alist bibtex-entry- |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
116 ;;; field-alist. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
117 ;;; 3. Fixed handling of escaped double quotes, e.g. "Schr{\"o}dinger". |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
118 ;;; 4. Fixed bug where unhiding bibtex entries moved point. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
119 ;;; 5. Made "field name" specs permit (name . value) for defaulting. E.g. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
120 ;;; (setq bibtex-mode-user-optional-fields '(("library" . "alarson"))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
121 ;;; will generate the field: |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
122 ;;; library = "alarson", |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
123 ;;; 6. Added binding for narrow-to-bibtex-entry |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
124 ;;; 7. Adding a bibtex entry now runs hook: bibtex-add-entry-hook |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
125 ;;; 8. Made bibtex-clean-entry fixup text alignment, and eliminated the |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
126 ;;; dependency on bibtex-enclosing-reference which has a problem with |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
127 ;;; long entries (e.g. those containing abstracts). |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
128 ;;; |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
129 ;;; alarson@src.honeywell.com 92-Jan-31 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
130 ;;; Added support for: ispell, beginning/end of entry movement, a simple |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
131 ;;; outline like mode (hide the bodies of bibtex entries), support for |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
132 ;;; sorting bibtex entries, and maintaining them in sorted order, and |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
133 ;;; simple buffer validation. |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
134 ;;; User visible functions added: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
135 ;;; ispell-{abstract,bibtex-entry}, {beginning,end}-of-bibtex-entry |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
136 ;;; hide-bibtex-entry-bodies, sort-bibtex-entries, validate-bibtex- |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
137 ;;; buffer, find-bibtex-duplicates |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
138 ;;; user visible variables added: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
139 ;;; bibtex-maintain-sorted-entries |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
140 ;;; new local keybindings: |
3618
58f653fa4e5b
(bibtex-mode-map): Use tex-insert-quote, not TeX-...
Richard M. Stallman <rms@gnu.org>
parents:
3591
diff
changeset
|
141 ;;; " tex-insert-quote |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
142 ;;; C-c$ ispell-bibtex-entry |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
143 ;;; M-C-a beginning-of-bibtex-entry |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
144 ;;; M-C-e end-of-bibtex-entry |
257 | 145 ;;; Mike Newton (newton@gumby.cs.caltech.edu) 90.11.17 |
146 ;;; * Handle items like | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3552
diff
changeset
|
147 ;;; title = poft # "Fifth Tri-quarterly" # random-conf, |
257 | 148 ;;; and title = {This title is inside curlies} |
149 ;;; * added user settable, always present, optional fields | |
150 ;;; * fixed 'bibtex-find-it's doc string's location | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3552
diff
changeset
|
151 ;;; * bibtex-field-text made more general (it wouldn't handle the # construct) |
257 | 152 ;;; and it now handles a small subset of the {} cases |
153 | |
154 ;;; Bengt Martensson, March 6 | |
155 ;;; Adapted to Bibtex 0.99 by updating the optional fields according | |
156 ;;; to the document BibTeXing, Oren Patashnik, dated January 31, 1988. | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
157 ;;; Updated documentation strings accordingly. Added (provide 'bibtex). |
257 | 158 ;;; If bibtex-include-OPT-crossref is non-nil, every entry will have |
159 ;;; an OPTcrossref field, analogously for bibtex-include-OPTkey and | |
160 ;;; bibtex-include-OPTannote. Added bibtex-preamble, bound to ^C^EP, | |
161 ;;; and also found in X- and sun-menus. Cleaned up the sun-menu | |
162 ;;; stuff, and made it more uniform with the X-menu stuff. Marc: I | |
163 ;;; strongly suspect that I broke your parsing... (Or, more | |
164 ;;; correctly, BibTeX 0.99 broke it.) | |
165 ;;; Added bibtex-clean-entry-zap-empty-opts, defvar'd to t. If it | |
166 ;;; is nil, bibtex-clean-entry will leave empty optional fields alone. | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
167 |
257 | 168 ;;; Marc Shapiro 1-feb-89: integrated changes by Bengt Martensson 88-05-06: |
169 ;;; Added Sun menu support. Locally bound to right mouse button in | |
170 ;;; bibtex-mode. Emacs 18.49 allows local mouse bindings!! | |
171 ;;; Commented out DEAthesis. | |
172 | |
173 ;;; Marc Shapiro 6-oct-88 | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
174 ;;; * skip-whitespace replaced by skip-chars-forward |
257 | 175 ;;; * use indent-to-column instead of inserting tabs (changes to |
176 ;;; bibtex-entry, bibtex-make-entry, bibtex-make-OPT-entry, renamed to | |
177 ;;; bibtex-make-optional-entry) | |
178 ;;; * C-c C-k deletes the current OPT entry entirely | |
179 ;;; * C-c C-d replaces text of field with "" | |
180 ;;; * renamed bibtex-find-it to bibtex-find-text. With arg, now goes to | |
181 ;;; start of text. Fixed bugs in it. | |
182 | |
183 ;;; Marc Shapiro 23-sep-88 | |
184 ;;; * bibtex-clean-entry moves past end of entry. | |
185 ;;; * bibtex-clean-entry signals mandatory fields left empty. | |
186 | |
187 ;;; Marc Shapiro 18-jul-88 | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
188 ;;; * Fixed bug in bibtex-flash-entry |
257 | 189 ;;; * Moved all the entry type keystrokes to "C-c C-e something" (instead of |
190 ;;; "C-c something" previously) to make room for more. C-c C-e is | |
191 ;;; supposed to stand for "entry" [idea taken from mail-mode]. Moved | |
192 ;;; bibtex-pop-previous to C-c C-p and bibtex-pop-next to C-c C-n. | |
193 ;;; * removed binding for "\e[25~" | |
194 ;;; * replaced bibtex-clean-optionals by bibtex-clean-entry, bound to | |
195 ;;; C-c C-c | |
196 | |
197 ;;; Marc Shapiro 13-jul-88 [based on ideas by Sacha Krakowiak of IMAG] | |
198 ;;; * bibtex-pop-previous replaces current field with value of | |
199 ;;; similar field in previous entry. May be called n times in a row | |
200 ;;; (or with arg n) to pop similar field of n'th previous entry. | |
201 ;;; There is also a bibtex-pop-next to get similar field of next | |
202 ;;; entry. | |
203 ;;; * C-c C-k now kills all empty optional fields of current entry, and | |
204 ;;; removes "OPT" for those optional fields which have text. | |
205 | |
206 ;;; Marc Shapiro 14-dec-87 | |
207 ;;; Cosmetic fixes. Fixed small bug in bibtex-move-outside-of-entry. | |
208 ;;; Skip Montanaro <steinmetz!sprite!montanaro> 7-dec-87, Shapiro 10-dec-87 | |
209 ;;; before inserting an entry, make sure we are outside of a bib entry | |
210 ;;; Marc Shapiro 3-nov-87 | |
211 ;;; addition for France: DEAthesis | |
212 ;;; Marc Shapiro 19-oct-1987 | |
213 ;;; add X window menu option; bug fixes. TAB, LFD, C-c " and C-c C-o now | |
214 ;;; behave consistently; deletion never occurs blindly. | |
215 ;;; Marc Shapiro <shapiro@inria.inria.fr> 15-oct-1986 | |
216 ;;; align long lines nicely; C-c C-o checks for the "OPT" string; | |
217 ;;; TAB goes to the end of the string; use lower case; use | |
218 ;;; run-hooks | |
219 | |
220 ;;; Bengt Martensson <ubrinf!mond!bengt> 87-06-28 | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
221 ;;; Bengt Martensson <bengt@mathematik.uni-Bremen.de> 87-06-28 |
257 | 222 ;;; Original version |
223 | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
224 ;;; Code: |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
225 |
257 | 226 ;;; NOTE by Marc Shapiro, 14-dec-87: |
227 ;;; (bibtex-x-environment) binds an X menu for bibtex mode to x-button-c-right. | |
228 ;;; Trouble is, in Emacs 18.44 you can't have a mode-specific mouse binding, | |
229 ;;; so it will remain active in all windows. Yuck! | |
230 | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
231 (provide 'bibtex) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
232 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
233 ;;; these guys typically don't have autoloads...[alarson:19920131.1548CST] |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
234 ;;; Check for fboundp first so that if user autoloads them from non standard |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
235 ;;; places, the users bindings will take precedence. |
3618
58f653fa4e5b
(bibtex-mode-map): Use tex-insert-quote, not TeX-...
Richard M. Stallman <rms@gnu.org>
parents:
3591
diff
changeset
|
236 (if (not (fboundp 'tex-insert-quote)) |
58f653fa4e5b
(bibtex-mode-map): Use tex-insert-quote, not TeX-...
Richard M. Stallman <rms@gnu.org>
parents:
3591
diff
changeset
|
237 (autoload 'tex-insert-quote "tex-mode")) |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
238 (if (not (fboundp 'sort-subr)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
239 (autoload 'sort-subr "sort")) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
240 |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
241 ;;; These should be in a more generally accessible location. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
242 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
243 (defun string-equalp (s1 s2) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
244 "Like string= except differences in case are ignored." |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
245 (let ((ss1 (if (symbolp s1) (symbol-name s1) s1)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
246 (ss2 (if (symbolp s2) (symbol-name s2) s2))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
247 (and (= (length ss1) (length ss2)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
248 (string-equal (upcase ss1) (upcase ss2))))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
249 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
250 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
251 |
257 | 252 |
253 (defvar bibtex-clean-entry-zap-empty-opts t | |
561 | 254 "*If non-nil, bibtex-clean-entry will delete all empty optional fields.") |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
255 |
257 | 256 (defvar bibtex-include-OPTcrossref t |
561 | 257 "*If non-nil, all entries will have an OPTcrossref field.") |
257 | 258 (defvar bibtex-include-OPTkey t |
561 | 259 "*If non-nil, all entries will have an OPTkey field.") |
257 | 260 (defvar bibtex-include-OPTannote t |
561 | 261 "*If non-nil, all entries will have an OPTannote field.") |
257 | 262 |
263 ;; note: the user should be allowed to have their own list of always | |
264 ;; available optional fields. exs: "keywords" "categories" | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
265 |
257 | 266 (defvar bibtex-mode-user-optional-fields nil ;no default value |
561 | 267 "*List of optional fields that user want to have as always present |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
268 when making a bibtex entry. One possibility is for ``keywords''. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
269 Entries can be either strings or conses, in which case the car should be |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
270 string and the cdr the value to be inserted.") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
271 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
272 (defvar bibtex-mode-syntax-table |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
273 (let ((st (make-syntax-table))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
274 ;; [alarson:19920214.1004CST] make double quote a string quote |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
275 (modify-syntax-entry ?\" "\"" st) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
276 (modify-syntax-entry ?$ "$$ " st) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
277 (modify-syntax-entry ?% "< " st) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
278 (modify-syntax-entry ?' "w " st) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
279 (modify-syntax-entry ?@ "w " st) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
280 (modify-syntax-entry ?\\ "\\" st) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
281 (modify-syntax-entry ?\f "> " st) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
282 (modify-syntax-entry ?\n "> " st) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
283 (modify-syntax-entry ?~ " " st) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
284 st)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
285 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
286 (defvar bibtex-mode-abbrev-table nil "") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
287 (define-abbrev-table 'bibtex-mode-abbrev-table ()) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
288 (defvar bibtex-mode-map |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
289 (let ((km (make-sparse-keymap))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
290 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
291 (define-key km "\t" 'bibtex-find-text) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
292 (define-key km "\n" 'bibtex-next-field) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
293 (define-key km "\C-c\"" 'bibtex-remove-double-quotes) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
294 (define-key km "\C-c\C-c" 'bibtex-clean-entry) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
295 (define-key km "\C-c?" 'describe-mode) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
296 (define-key km "\C-c\C-p" 'bibtex-pop-previous) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
297 (define-key km "\C-c\C-n" 'bibtex-pop-next) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
298 (define-key km "\C-c\C-k" 'bibtex-kill-optional-field) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
299 (define-key km "\C-c\C-d" 'bibtex-empty-field) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
300 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
301 ;; [alarson:19920131.1543CST] |
3618
58f653fa4e5b
(bibtex-mode-map): Use tex-insert-quote, not TeX-...
Richard M. Stallman <rms@gnu.org>
parents:
3591
diff
changeset
|
302 (define-key km "\"" 'tex-insert-quote) |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
303 (define-key km "\C-c$" 'ispell-bibtex-entry) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
304 (define-key km "\M-\C-a" 'beginning-of-bibtex-entry) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
305 (define-key km "\M-\C-e" 'end-of-bibtex-entry) |
4611
5495e1a7a79c
(bibtex-mode-map): Change C-c e to C-c C-b.
Richard M. Stallman <rms@gnu.org>
parents:
3618
diff
changeset
|
306 (define-key km "\C-c\C-b" 'bibtex-entry) |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
307 ; (define-key km "\C-cn" 'narrow-to-bibtex-entry) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
308 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
309 (define-key km "\C-c\C-e\C-a" 'bibtex-Article) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
310 (define-key km "\C-c\C-e\C-b" 'bibtex-Book) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
311 ; (define-key km "\C-c\C-e\C-d" 'bibtex-DEAthesis) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
312 (define-key km "\C-c\C-e\C-c" 'bibtex-InProceedings) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
313 (define-key km "\C-c\C-e\C-i" 'bibtex-InBook) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
314 (define-key km "\C-c\C-ei" 'bibtex-InCollection) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
315 (define-key km "\C-c\C-eI" 'bibtex-InProceedings) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
316 (define-key km "\C-c\C-e\C-m" 'bibtex-Manual) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
317 (define-key km "\C-c\C-em" 'bibtex-MastersThesis) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
318 (define-key km "\C-c\C-eM" 'bibtex-Misc) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
319 (define-key km "\C-c\C-o" 'bibtex-remove-OPT) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
320 (define-key km "\C-c\C-e\C-p" 'bibtex-PhdThesis) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
321 (define-key km "\C-c\C-ep" 'bibtex-Proceedings) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
322 (define-key km "\C-c\C-eP" 'bibtex-preamble) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
323 (define-key km "\C-c\C-e\C-t" 'bibtex-TechReport) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
324 (define-key km "\C-c\C-e\C-s" 'bibtex-string) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
325 (define-key km "\C-c\C-e\C-u" 'bibtex-Unpublished) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
326 km)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
327 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
328 (defvar bibtex-pop-previous-search-point nil |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
329 "Next point where bibtex-pop-previous should start looking for a similar |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
330 entry.") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
331 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
332 (defvar bibtex-pop-next-search-point nil |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
333 "Next point where bibtex-pop-next should start looking for a similar |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
334 entry.") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
335 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
336 (defvar bibtex-entry-field-alist |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
337 '( |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
338 ("Article" . ((("author" "title" "journal" "year") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
339 ("volume" "number" "pages" "month" "note")) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
340 (("author" "title") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
341 ("journal" "year" "volume" "number" "pages" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
342 "month" "note")))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
343 ("Book" . ((("author" "title" "publisher" "year") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
344 ("editor" "volume" "number" "series" "address" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
345 "edition" "month" "note")))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
346 ("Booklet" . ((("title") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
347 ("author" "howpublished" "address" "month" "year" "note")))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
348 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
349 ;; France: Dipl\^{o}me d'Etudes Approfondies (similar to Master's) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
350 ; ("DEAthesis" . ((("author" "title" "school" "year") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
351 ; ("address" "month" "note")))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
352 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
353 ("InBook" . ((("author" "title" "chapter" "publisher" "year") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
354 ("editor" "pages" "volume" "number" "series" "address" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
355 "edition" "month" "type" "note")) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
356 (("author" "title" "chapter") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
357 ("publisher" "year" "editor" "pages" "volume" "number" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
358 "series" "address" "edition" "month" "type" "note")))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
359 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
360 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
361 ("InCollection" . ((("author" "title" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
362 "booktitle" "publisher" "year") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
363 ("editor" "volume" "number" "series" "type" "chapter" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
364 "pages" "address" "edition" "month" "note")) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
365 (("author" "title") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
366 ("booktitle" "publisher" "year" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
367 "editor" "volume" "number" "series" "type" "chapter" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
368 "pages" "address" "edition" "month" "note")))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
369 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
370 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
371 ("InProceedings" . ((("author" "title" "booktitle" "year") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
372 ("editor" "volume" "number" "series" "pages" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
373 "organization" "publisher" "address" "month" "note")) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
374 (("author" "title") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
375 ("editor" "volume" "number" "series" "pages" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
376 "booktitle" "year" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
377 "organization" "publisher" "address" "month" "note")))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
378 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
379 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
380 ("Manual" . ((("title") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
381 ("author" "organization" "address" "edition" "year" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
382 "month" "note")))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
383 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
384 ("MastersThesis" . ((("author" "title" "school" "year") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
385 ("address" "month" "note" "type")))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
386 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
387 ("Misc" . ((() |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
388 ("author" "title" "howpublished" "year" "month" "note")))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
389 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
390 ("PhdThesis" . ((("author" "title" "school" "year") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
391 ("address" "month" "type" "note")))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
392 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
393 ("Proceedings" . ((("title" "year") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
394 ("editor" "volume" "number" "series" "publisher" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
395 "organization" "address" "month" "note")))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
396 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
397 ("TechReport" . ((("author" "title" "institution" "year") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
398 ("type" "number" "address" "month" "note")))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
399 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
400 ("Unpublished" . ((("author" "title" "note") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
401 ("year" "month")))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
402 ) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
403 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
404 "List of (entry-name (required optional) (crossref-required crossref-optional)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
405 tripples. If the third element is nil, then the first pair can be used. Required |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
406 and optional are lists of strings. All entry creation functions use this variable |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
407 to generate entries, and bibtex-entry ensures the entry type is valid. This |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
408 variable can be used for example to make bibtex manipulate a different set of entry |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
409 types, e.g. a crossreference document of organization types.") |
257 | 410 |
411 | |
412 ;;; A bibtex file is a sequence of entries, either string definitions | |
413 ;;; or reference entries. A reference entry has a type part, a | |
414 ;;; key part, and a comma-separated sequence of fields. A string | |
415 ;;; entry has a single field. A field has a left and right part, | |
416 ;;; separated by a '='. The left part is the name, the right part is | |
417 ;;; the text. Here come the definitions allowing to create and/or parse | |
418 ;;; entries and fields: | |
419 | |
420 ;;; fields | |
421 (defun bibtex-cfield (name text) | |
561 | 422 "Create a regexp for a bibtex field of name NAME and text TEXT" |
257 | 423 (concat ",[ \t\n]*\\(" |
424 name | |
425 "\\)[ \t\n]*=[ \t\n]*\\(" | |
426 text | |
427 "\\)")) | |
428 (defconst bibtex-name-in-cfield 1 | |
561 | 429 "The regexp subexpression number of the name part in bibtex-cfield.") |
257 | 430 (defconst bibtex-text-in-cfield 2 |
561 | 431 "The regexp subexpression number of the text part in bibtex-cfield.") |
257 | 432 |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
433 ;;; KAWATA Yasuro <yasuro@qqqq.maekawa.is.uec.ac.jp> reported bug that "/" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
434 ;;; was not premitted in field names. The old value of this var was: |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
435 ;;; "[A-Za-z][---A-Za-z0-9:_+]*" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
436 ;;; According to the LaTeX manual, page 71, the legal values are letters, |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
437 ;;; digits, and punctuation other than comma. Section 2.1 defines |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
438 ;;; punctuation as: |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
439 ;;; .:;,?!`'()[]-/*@ |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
440 ;;; and says that += can be used in normal text. Specifically #$%&~_^\{} |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
441 ;;; are called out as special chars. Some experimentation with LaTeX |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
442 ;;; indicates that # and ~ definitely don't work, but that the following |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
443 ;;; citation does! \cite{a0.:;?!`'()[]-/*@_&$^+=|<>}. I chose here to |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
444 ;;; permit _ since it was previously allowed, but otherwise to only handle |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
445 ;;; punc and += |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
446 ;;; Amendment: I couldn't get a regexp with both "[]"'s and hyphen to |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
447 ;;; work. It looks like you need them both to be the first entries in a |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
448 ;;; regexp pattern. [alarson:19930315.0900CST] |
5409
a5c38a92e787
(bibtex-field-name, bibtex-field-const, bibtex-field-text):
Richard M. Stallman <rms@gnu.org>
parents:
5309
diff
changeset
|
449 ;;; |
a5c38a92e787
(bibtex-field-name, bibtex-field-const, bibtex-field-text):
Richard M. Stallman <rms@gnu.org>
parents:
5309
diff
changeset
|
450 ;;; New amendment[MB]: I have corrected the following regexp according to |
a5c38a92e787
(bibtex-field-name, bibtex-field-const, bibtex-field-text):
Richard M. Stallman <rms@gnu.org>
parents:
5309
diff
changeset
|
451 ;;; emacs19 rules. I also added ']' to the list of characters allowed in |
a5c38a92e787
(bibtex-field-name, bibtex-field-const, bibtex-field-text):
Richard M. Stallman <rms@gnu.org>
parents:
5309
diff
changeset
|
452 ;;; a field name. |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
453 |
5409
a5c38a92e787
(bibtex-field-name, bibtex-field-const, bibtex-field-text):
Richard M. Stallman <rms@gnu.org>
parents:
5309
diff
changeset
|
454 (defconst bibtex-field-name "[A-Za-z][]A-Za-z0-9.:;?!`'()/*@_+=-]*" |
257 | 455 "Regexp defining the name part of a bibtex field.") |
456 | |
457 ;; bibtex-field-text must be able to handle | |
458 ;; title = "Proc. Fifteenth Annual" # STOC, | |
459 ;; month = "10~" # jan, | |
460 ;; year = "{\noopsort{1973c}}1981", | |
461 ;; month = apr # "-" # may, | |
462 ;; key = {Volume-2}, | |
463 ;; note = "Volume~2 is listed under Knuth \cite{book-full}" | |
464 ;; i have added a few of these, but not all! -- MON | |
465 | |
466 (defconst bibtex-field-const | |
5409
a5c38a92e787
(bibtex-field-name, bibtex-field-const, bibtex-field-text):
Richard M. Stallman <rms@gnu.org>
parents:
5309
diff
changeset
|
467 "[0-9A-Za-z][A-Za-z0-9:_+-]*" |
257 | 468 "Format of a bibtex field constant.") |
561 | 469 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
470 (defconst bibtex-field-string |
257 | 471 (concat |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
472 "\"[^\"]*[^\\\\]\"\\|\"\"") |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
473 "Match either a string or an empty string.") |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
474 |
257 | 475 (defconst bibtex-field-string-or-const |
476 (concat bibtex-field-const "\\|" bibtex-field-string) | |
561 | 477 "Match either bibtex-field-string or bibtex-field-const.") |
257 | 478 |
479 (defconst bibtex-field-text | |
480 (concat | |
481 "\\(" bibtex-field-string-or-const "\\)" | |
482 "\\([ \t\n]+#[ \t\n]+\\(" bibtex-field-string-or-const "\\)\\)*\\|" | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
483 "{[^{}]*[^\\\\]}") |
257 | 484 "Regexp defining the text part of a bibtex field: either a string, or |
485 an empty string, or a constant followed by one or more # / constant pairs. | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
486 Also matches simple {...} patterns.") |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
487 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
488 ;(defconst bibtex-field-text |
5409
a5c38a92e787
(bibtex-field-name, bibtex-field-const, bibtex-field-text):
Richard M. Stallman <rms@gnu.org>
parents:
5309
diff
changeset
|
489 ; "\"[^\"]*[^\\\\]\"\\|\"\"\\|[0-9A-Za-z][A-Za-z0-9:_+-]*" |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
490 ; "Regexp defining the text part of a bibtex field: either a string, or an empty string, or a constant.") |
257 | 491 |
492 (defconst bibtex-field | |
493 (bibtex-cfield bibtex-field-name bibtex-field-text) | |
494 "Regexp defining the format of a bibtex field") | |
495 | |
496 (defconst bibtex-name-in-field bibtex-name-in-cfield | |
561 | 497 "The regexp subexpression number of the name part in bibtex-field") |
257 | 498 (defconst bibtex-text-in-field bibtex-text-in-cfield |
561 | 499 "The regexp subexpression number of the text part in bibtex-field") |
257 | 500 |
501 ;;; references | |
502 (defconst bibtex-reference-type | |
503 "@[A-Za-z]+" | |
561 | 504 "Regexp defining the type part of a bibtex reference entry") |
257 | 505 (defconst bibtex-reference-head |
506 (concat "^[ \t]*\\(" | |
507 bibtex-reference-type | |
508 "\\)[ \t]*[({]\\(" | |
509 bibtex-field-name | |
510 "\\)") | |
561 | 511 "Regexp defining format of the header line of a bibtex reference entry") |
257 | 512 (defconst bibtex-type-in-head 1 |
561 | 513 "The regexp subexpression number of the type part in bibtex-reference-head") |
257 | 514 (defconst bibtex-key-in-head 2 |
561 | 515 "The regexp subexpression number of the key part in |
516 bibtex-reference-head") | |
257 | 517 |
518 (defconst bibtex-reference | |
5409
a5c38a92e787
(bibtex-field-name, bibtex-field-const, bibtex-field-text):
Richard M. Stallman <rms@gnu.org>
parents:
5309
diff
changeset
|
519 (concat |
a5c38a92e787
(bibtex-field-name, bibtex-field-const, bibtex-field-text):
Richard M. Stallman <rms@gnu.org>
parents:
5309
diff
changeset
|
520 ;; This is the unparenthesized equivalent of bibtex-reference-head: |
a5c38a92e787
(bibtex-field-name, bibtex-field-const, bibtex-field-text):
Richard M. Stallman <rms@gnu.org>
parents:
5309
diff
changeset
|
521 "^[ \t]*" |
a5c38a92e787
(bibtex-field-name, bibtex-field-const, bibtex-field-text):
Richard M. Stallman <rms@gnu.org>
parents:
5309
diff
changeset
|
522 bibtex-reference-type |
a5c38a92e787
(bibtex-field-name, bibtex-field-const, bibtex-field-text):
Richard M. Stallman <rms@gnu.org>
parents:
5309
diff
changeset
|
523 "[ \t]*[({]\\(" |
a5c38a92e787
(bibtex-field-name, bibtex-field-const, bibtex-field-text):
Richard M. Stallman <rms@gnu.org>
parents:
5309
diff
changeset
|
524 bibtex-field-name |
a5c38a92e787
(bibtex-field-name, bibtex-field-const, bibtex-field-text):
Richard M. Stallman <rms@gnu.org>
parents:
5309
diff
changeset
|
525 "\\)" |
a5c38a92e787
(bibtex-field-name, bibtex-field-const, bibtex-field-text):
Richard M. Stallman <rms@gnu.org>
parents:
5309
diff
changeset
|
526 ;; End of unparenthesized equivalent of bibtex-reference-head |
a5c38a92e787
(bibtex-field-name, bibtex-field-const, bibtex-field-text):
Richard M. Stallman <rms@gnu.org>
parents:
5309
diff
changeset
|
527 "\\([ \t\n]*" bibtex-field "\\)*" |
a5c38a92e787
(bibtex-field-name, bibtex-field-const, bibtex-field-text):
Richard M. Stallman <rms@gnu.org>
parents:
5309
diff
changeset
|
528 "[ \t\n]*[})]") |
561 | 529 "Regexp defining the format of a bibtex reference entry") |
257 | 530 (defconst bibtex-type-in-reference bibtex-type-in-head |
561 | 531 "The regexp subexpression number of the type part in bibtex-reference") |
257 | 532 (defconst bibtex-key-in-reference bibtex-key-in-head |
561 | 533 "The regexp subexpression number of the key part in |
534 bibtex-reference") | |
257 | 535 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
536 ;;; strings |
257 | 537 (defconst bibtex-string |
538 (concat "^[ \t]*@[sS][tT][rR][iI][nN][gG][ \t\n]*[({][ \t\n]*\\(" | |
539 bibtex-field-name | |
540 "\\)[ \t\n]*=[ \t\n]*\\(" | |
541 bibtex-field-text | |
542 "\\)[ \t\n]*[})]") | |
561 | 543 "Regexp defining the format of a bibtex string entry") |
257 | 544 (defconst bibtex-name-in-string 1 |
561 | 545 "The regexp subexpression of the name part in bibtex-string") |
257 | 546 (defconst bibtex-text-in-string 2 |
561 | 547 "The regexp subexpression of the text part in bibtex-string") |
257 | 548 |
3552
84fded047f22
Fix typos in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
3527
diff
changeset
|
549 (defconst bibtex-name-alignment 2 |
257 | 550 "Alignment for the name part in BibTeX fields. |
551 Chosen on aesthetic grounds only.") | |
552 | |
553 (defconst bibtex-text-alignment (length " organization = ") | |
554 "Alignment for the text part in BibTeX fields. | |
555 Equal to the space needed for the longest name part.") | |
556 | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
557 (defun bibtex-current-entry-label (&optional include-cite kill) |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3552
diff
changeset
|
558 "Return the label of the bibtex entry containing, or preceding point. |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
559 Optional argument INCLUDE-CITE, if true means put a '\\cite{}' around the |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
560 returned value. Second optional argument KILL, if true, means place the |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
561 returned value in the kill buffer. Interactively; providing prefix |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
562 argument makes INCLUDE-CITE true, and kill is true by default. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
563 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
564 Rationale: |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
565 The intention is that someone will write a function that can be bound to |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
566 a mouse key so that people entering TeX can just mouse on the bibtex entry |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
567 and have the citation key inserted at the current point (which will almost |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3552
diff
changeset
|
568 certainly be in some other buffer). In the interim this function is |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
569 marginally useful for keyboard binding and is not bound by default. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
570 Suggested binding is ^C-k." |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
571 (interactive (list current-prefix-arg t)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
572 (save-excursion |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
573 (beginning-of-bibtex-entry) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
574 (re-search-forward bibtex-reference-head (save-excursion (end-of-bibtex-entry) (point))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
575 (let* ((key (buffer-substring (match-beginning bibtex-key-in-head) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
576 (match-end bibtex-key-in-head))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
577 (val (if include-cite |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
578 (format "\\cite{%s}" key) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
579 key))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
580 (if kill |
8717
e56d09b95778
(put-string-on-kill-ring): Delete this function.
Karl Heuer <kwzh@gnu.org>
parents:
7925
diff
changeset
|
581 (kill-new val)) |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
582 val))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
583 |
257 | 584 ;;; bibtex mode: |
585 | |
3367
d8301f8d5b73
(bibtex-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
2864
diff
changeset
|
586 ;;;###autoload |
257 | 587 (defun bibtex-mode () |
588 "Major mode for editing bibtex files. | |
589 | |
590 \\{bibtex-mode-map} | |
591 | |
592 A command such as \\[bibtex-Book] will outline the fields for a BibTeX book entry. | |
593 | |
594 The optional fields start with the string OPT, and thus ignored by BibTeX. | |
595 The OPT string may be removed from a field with \\[bibtex-remove-OPT]. | |
596 \\[bibtex-kill-optional-field] kills the current optional field entirely. | |
597 \\[bibtex-remove-double-quotes] removes the double-quotes around the text of | |
598 the current field. \\[bibtex-empty-field] replaces the text of the current | |
599 field with the default \"\". | |
600 | |
601 The command \\[bibtex-clean-entry] cleans the current entry, i.e. (i) removes | |
602 double-quotes from entirely numerical fields, (ii) removes OPT from all | |
603 non-empty optional fields, (iii) removes all empty optional fields, and (iv) | |
604 checks that no non-optional fields are empty. | |
605 | |
606 Use \\[bibtex-find-text] to position the dot at the end of the current field. | |
607 Use \\[bibtex-next-field] to move to end of the next field. | |
608 | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
609 The following may be of interest as well: |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
610 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
611 Functions: |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
612 find-bibtex-duplicates |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
613 find-bibtex-entry-location |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
614 hide-bibtex-entry-bodies |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
615 sort-bibtex-entries |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
616 validate-bibtex-buffer |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
617 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
618 Variables: |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
619 bibtex-clean-entry-zap-empty-opts |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
620 bibtex-entry-field-alist |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
621 bibtex-include-OPTannote |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
622 bibtex-include-OPTcrossref |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
623 bibtex-include-OPTkey |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
624 bibtex-maintain-sorted-entries |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
625 bibtex-mode-user-optional-fields |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
626 |
257 | 627 Fields: |
628 address | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
629 Publisher's address |
257 | 630 annote |
631 Long annotation used for annotated bibliographies (begins sentence) | |
632 author | |
633 Name(s) of author(s), in BibTeX name format | |
634 booktitle | |
635 Book title when the thing being referenced isn't the whole book. | |
636 For book entries, the title field should be used instead. | |
637 chapter | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
638 Chapter number |
257 | 639 crossref |
640 The database key of the entry being cross referenced. | |
641 edition | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
642 Edition of a book (e.g., \"second\") |
257 | 643 editor |
644 Name(s) of editor(s), in BibTeX name format. | |
645 If there is also an author field, then the editor field should be | |
646 for the book or collection that the work appears in | |
647 howpublished | |
648 How something strange has been published (begins sentence) | |
649 institution | |
650 Sponsoring institution | |
651 journal | |
652 Journal name (macros are provided for many) | |
653 key | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
654 Alphabetizing and labeling key (needed when no author or editor) |
257 | 655 month |
656 Month (macros are provided) | |
657 note | |
658 To help the reader find a reference (begins sentence) | |
659 number | |
660 Number of a journal or technical report | |
661 organization | |
662 Organization (sponsoring a conference) | |
663 pages | |
664 Page number or numbers (use `--' to separate a range) | |
665 publisher | |
666 Publisher name | |
667 school | |
668 School name (for theses) | |
669 series | |
670 The name of a series or set of books. | |
671 An individual book will will also have it's own title | |
672 title | |
673 The title of the thing being referenced | |
674 type | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
675 Type of a technical report (e.g., \"Research Note\") to be used |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
676 instead of the default \"Technical Report\" |
257 | 677 volume |
678 Volume of a journal or multivolume work | |
679 year | |
680 Year---should contain only numerals | |
681 --------------------------------------------------------- | |
682 Entry to this mode calls the value of bibtex-mode-hook if that value is | |
683 non-nil." | |
684 (interactive) | |
685 (kill-all-local-variables) | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
686 (set-syntax-table bibtex-mode-syntax-table) |
257 | 687 (use-local-map bibtex-mode-map) |
688 (setq major-mode 'bibtex-mode) | |
689 (setq mode-name "BibTeX") | |
690 (set-syntax-table bibtex-mode-syntax-table) | |
691 (setq local-abbrev-table bibtex-mode-abbrev-table) | |
692 (make-local-variable 'paragraph-start) | |
7925
55a80566d955
(bibtex-mode): Set up comment-start locally.
Richard M. Stallman <rms@gnu.org>
parents:
7750
diff
changeset
|
693 (make-local-variable 'comment-start) |
55a80566d955
(bibtex-mode): Set up comment-start locally.
Richard M. Stallman <rms@gnu.org>
parents:
7750
diff
changeset
|
694 (setq comment-start "%") |
257 | 695 (setq paragraph-start "^[ \f\n\t]*$") |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3552
diff
changeset
|
696 (auto-fill-mode 1) ; nice alignments |
257 | 697 (setq left-margin (+ bibtex-text-alignment 1)) |
698 | |
699 (run-hooks 'bibtex-mode-hook)) | |
700 | |
701 (defun bibtex-move-outside-of-entry () | |
702 "Make sure we are outside of a bib entry" | |
703 (cond ((or | |
704 (= (point) (point-max)) | |
705 (= (point) (point-min)) | |
706 (looking-at "[ \n]*@") | |
707 ) | |
708 t) | |
709 (t | |
710 (backward-paragraph) | |
711 (forward-paragraph))) | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
712 (re-search-forward "[ \t\n]*" (point-max) t)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
713 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
714 (defun ispell-abstract () |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
715 (interactive) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
716 (beginning-of-bibtex-entry) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
717 (re-search-forward "^[ \t]*[OPT]*abstract[ \t]*=") |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
718 (ispell-region (point) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
719 (save-excursion (forward-sexp) (point)))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
720 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
721 (defun beginning-of-bibtex-entry () |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
722 (interactive) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
723 (re-search-backward "^@" nil 'move)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
724 |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
725 (defun skip-whitespace-and-comments () |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
726 ;; It might be a good idea to have forward-sexp with argument 0 do what |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
727 ;; this function tries to do, namely skip whitespace and comments. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
728 ;; Maybe a better name for this would be skip-to-next-sexp. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
729 ;; alternative implementation: |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
730 ;; (let ((parse-sexp-ignore-comments t)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
731 ;; (forward-sexp 1) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
732 ;; (forward-sexp -1)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
733 ;; but I've had problems with this not getting the parse of comments |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
734 ;; right going backward if they contain unbalanced expressions or string |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
735 ;; quotes. [alarson:19920217.1021CST] |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
736 (let ((md (match-data))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
737 (unwind-protect |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
738 (while (cond ((looking-at "\\s>+\\|\\s +") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
739 ;; was whitespace |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
740 ;; NOTE: also checked end-comment. In latex and |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
741 ;; lisp modes, newline is an end comment, but it |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
742 ;; should also be a whitespace char. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
743 (goto-char (match-end 0))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
744 ;; If looking at beginning of comment, skip to end. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
745 ((looking-at "\\s<") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
746 (re-search-forward "\\s>")))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
747 (store-match-data md)))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
748 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
749 ;;; [alarson:19920214.1007CST] |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
750 (defun end-of-bibtex-entry () |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
751 "If inside an entry, move to the end of it, otherwise move to the end |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
752 of the next entry." |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
753 (interactive) |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
754 ;; if point was previously at the end of an entry, this puts us |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
755 ;; inside the next entry, otherwise we remain in the current one. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
756 (progn |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
757 (skip-whitespace-and-comments) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
758 ;;; (skip-chars-forward " \t\n") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
759 (end-of-line)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
760 (beginning-of-bibtex-entry) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
761 (let ((parse-sexp-ignore-comments t)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
762 (forward-sexp) ; skip entry type |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
763 (forward-sexp) ; skip entry body |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
764 )) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
765 ;(defun end-of-bibtex-entry () |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
766 ; (interactive) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
767 ; (re-search-forward "}$" nil 'move)) |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
768 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
769 (defun ispell-bibtex-entry () |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
770 (interactive) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
771 (ispell-region (progn (beginning-of-bibtex-entry) (point)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
772 (progn (end-of-bibtex-entry) (point)))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
773 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
774 (defun narrow-to-bibtex-entry () |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
775 (interactive) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
776 (save-excursion |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
777 (narrow-to-region (progn (beginning-of-bibtex-entry) (point)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
778 (progn (end-of-bibtex-entry) (point))))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
779 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
780 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
781 (defun beginning-of-first-bibtex-entry () |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
782 (goto-char (point-min)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
783 (cond |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
784 ((re-search-forward "^@" nil 'move) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
785 (beginning-of-line)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
786 ((and (bobp) (eobp)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
787 nil) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
788 (t |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
789 (message "Warning: No bibtex entries found!")))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
790 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
791 (defun hide-bibtex-entry-bodies (&optional arg) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
792 "Hide all lines between first and last bibtex entries not beginning with @. |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
793 With argument, show all text." |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
794 (interactive "P") |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
795 (save-excursion |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
796 (beginning-of-first-bibtex-entry) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
797 ;; subst-char-in-region modifies the buffer, despite what the |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
798 ;; documentation says... |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
799 (let ((modifiedp (buffer-modified-p)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
800 (buffer-read-only nil)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
801 (if arg |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
802 (subst-char-in-region (point) (point-max) ?\r ?\n t) |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
803 (while (save-excursion (re-search-forward "\n[^@]" (point-max) t)) |
5309
dc1a3f9ea36d
(hide-bibtex-entry-bodies): Don't use replace-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
4611
diff
changeset
|
804 ;; (save-excursion (replace-regexp "\n\\([^@]\\)" "\r\\1")) |
dc1a3f9ea36d
(hide-bibtex-entry-bodies): Don't use replace-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
4611
diff
changeset
|
805 (save-excursion |
dc1a3f9ea36d
(hide-bibtex-entry-bodies): Don't use replace-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
4611
diff
changeset
|
806 (while (re-search-forward "\n\\([^@]\\)" nil t) |
dc1a3f9ea36d
(hide-bibtex-entry-bodies): Don't use replace-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
4611
diff
changeset
|
807 (replace-match "\r\\1" nil nil))))) |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
808 (setq selective-display (not arg)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
809 (set-buffer-modified-p modifiedp)))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
810 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
811 (defvar bibtex-sort-ignore-string-entries nil |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
812 "*If true, bibtex @STRING entries are ignored when determining ordering |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
813 of the buffer (e.g. sorting, locating alphabetical position for new entries, |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
814 etc.)") |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
815 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
816 (defun sort-bibtex-entries () |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
817 "Sort bibtex entries alphabetically by key. |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
818 Text before the first bibtex entry, and following the last is not affected. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
819 If bibtex-sort-ignore-string-entries is true, @string entries will be ignored. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
820 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
821 Bugs: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
822 1. Text between the closing brace ending one bibtex entry, and the @ starting |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3552
diff
changeset
|
823 the next, is considered part of the PRECEDING entry. Perhaps it should be |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
824 part of the following entry." |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
825 (interactive) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
826 (save-restriction |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
827 (beginning-of-first-bibtex-entry) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
828 (narrow-to-region (point) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
829 (save-excursion |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
830 (goto-char (point-max)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
831 (beginning-of-bibtex-entry) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
832 (end-of-bibtex-entry) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
833 (point))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
834 (sort-subr nil ; reversep |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3552
diff
changeset
|
835 ;; beginning of record function |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
836 'forward-line |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
837 ;; end of record function |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
838 (function (lambda () (and (re-search-forward "}\\s-*\n[\n \t]*@" nil 'move) |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
839 (forward-char -2)))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
840 ;; start of key function |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
841 (if bibtex-sort-ignore-string-entries |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
842 (function (lambda () |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
843 (while (and (re-search-forward "^\\s-*\\([@a-zA-Z]*\\)\\s-*{\\s-*") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
844 (string-equalp "@string" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
845 (buffer-substring (match-beginning 1) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
846 (match-end 1))))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
847 nil)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
848 (function (lambda () (re-search-forward "{\\s-*") nil))) |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
849 ;; end of key function |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
850 (function (lambda () (search-forward ","))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
851 ))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
852 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
853 (defun map-bibtex-entries (fun) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
854 "Call FUN for each bibtex entry starting with the current, to the end of the file. |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
855 FUN is called with one argument, the key of the entry, and with point inside the entry. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
856 If bibtex-sort-ignore-string-entries is true, FUN will not be called for @string entries." |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
857 (beginning-of-bibtex-entry) |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
858 (while (re-search-forward "^@[^{]*{[ \t]*\\([^, ]*\\)" nil t) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
859 (if (and bibtex-sort-ignore-string-entries |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
860 (string-equalp "@string{" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
861 (buffer-substring (match-beginning 0) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
862 (match-beginning 1)))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
863 nil ; ignore the @string entry. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
864 (funcall fun (buffer-substring (match-beginning 1) (match-end 1)))))) |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
865 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
866 (defun find-bibtex-entry-location (entry-name) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
867 "Searches from beginning of current buffer looking for place to put the |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
868 bibtex entry named ENTRY-NAME. Buffer is assumed to be in sorted order, |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
869 without duplicates (see \\[sort-bibtex-entries]), if it is not, an error will |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
870 be signalled." |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
871 (interactive "sBibtex entry key: ") |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
872 (let ((previous nil) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
873 point) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
874 (beginning-of-first-bibtex-entry) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
875 (or (catch 'done |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
876 (map-bibtex-entries (function (lambda (current) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
877 (cond |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
878 ((string-equal entry-name current) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
879 (error "Entry duplicates existing!")) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
880 ((or (null previous) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
881 (string< previous current)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
882 (setq previous current |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
883 point (point)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
884 (if (string< entry-name current) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
885 (progn |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
886 (beginning-of-bibtex-entry) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
887 ;; Many schemes append strings to |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
888 ;; existing entries to resolve them, |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
889 ;; so initial substring matches may |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
890 ;; indicate a duplicate entry. |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
891 (let ((idx (string-match (regexp-quote entry-name) current))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
892 (if (and (integerp idx) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
893 (zerop idx)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
894 (progn |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
895 (message "Warning: Entry %s may be a duplicate of %s!" |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
896 entry-name current) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
897 (ding t)))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
898 (throw 'done t)))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
899 ((string-equal previous current) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
900 (error "Duplicate here with previous!")) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
901 (t (error "Entries out of order here!"))))))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
902 (end-of-bibtex-entry)))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
903 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
904 (defun validate-bibtex-buffer () |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
905 "Find some typical errors in bibtex files. |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
906 1. At signs (@) not as first char of a line. |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
907 2. Double quotes (\") inside strings. |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
908 3. Closing braces (}) not the last character of a line." |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
909 (interactive) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
910 (let ((point (point))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
911 (while (re-search-forward ".@" nil t) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
912 (let* ((foo (parse-partial-sexp (save-excursion (beginning-of-bibtex-entry) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
913 (point)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
914 (point))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
915 (in-a-string (nth 3 foo))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
916 (if (not in-a-string) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
917 (error "At sign (@) out of place!")))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
918 (goto-char point) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
919 (while (search-forward "\"" nil t) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
920 (or (looking-at "[,}][ \t]*$") |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
921 (char-equal (preceding-char) ?\") |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
922 ;; some versions put closing brace on separate line. |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
923 (looking-at "[ \t]*\n}") |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
924 (save-excursion |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
925 (save-restriction |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
926 (narrow-to-region (point) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
927 (progn (beginning-of-line) (point))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
928 (looking-at "^[ \t]*[a-zA-Z]+[ \t]*=[ \t]*\"$"))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
929 (error "Quote out of place, or missing \",\" or \"}\"!"))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
930 (goto-char point) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
931 ;; This is only approximate, should actually search for close braces, |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
932 ;; then see if they are inside a string, or at the end of a line. |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
933 ;; This just gets the typical case of whitespace after a closing brace. |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
934 (while (search-forward "}[ \t]+$" nil t) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
935 (error "Brace not last char of line!")) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
936 (goto-char point) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
937 (message "Bibtex buffer appears o.k."))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
938 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
939 (defun find-bibtex-duplicates () |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
940 "Searches forward in current buffer looking for duplicate bibtex entries. |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
941 Buffer is assumed to be sorted, see \\[sort-bibtex-entries]" |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
942 (interactive) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
943 (let ((point (point))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
944 ;; errors if things are not right... |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
945 (find-bibtex-entry-location (make-string 10 255)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
946 (goto-char point) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
947 (message "No duplicates found!"))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
948 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
949 |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
950 ;;; assoc doesn't ignore case, so we need an assoc that does... |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
951 (defun assoc-string-equalp (thing alist) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
952 (or (assoc thing alist) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
953 (while (and alist |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
954 (not (string-equalp thing (car (car alist))))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
955 (setq alist (cdr alist))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
956 (car alist))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
957 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
958 (defvar bibtex-maintain-sorted-entries nil |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
959 "*If true, bibtex-mode will attempt to maintain all bibtex entries in |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
960 sorted order. |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
961 |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
962 Note that this is more a property of a file than a personal preference and |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
963 as such should normally be set via a file local variable entry.") |
257 | 964 |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
965 (defun bibtex-entry (entry-type &optional required optional) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
966 (interactive (let* ((completion-ignore-case t) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
967 (e-t (completing-read "Entry Type: " bibtex-entry-field-alist |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
968 nil t))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
969 (list e-t))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
970 (if (and (null required) (null optional)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
971 (let* ((e (assoc-string-equalp entry-type bibtex-entry-field-alist)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
972 (r-n-o (elt e 1)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
973 (c-ref (elt e 2))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
974 (if (null e) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
975 (error "Bibtex entry type %s not defined!")) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
976 (if (and bibtex-include-OPTcrossref c-ref) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
977 (setq required (elt c-ref 0) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
978 optional (elt c-ref 1)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
979 (setq required (elt r-n-o 0) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
980 optional (elt r-n-o 1))))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
981 (let ((key (if bibtex-maintain-sorted-entries |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
982 (read-string (format "%s key: " entry-type))))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
983 (if key |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
984 (find-bibtex-entry-location key)) |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
985 (bibtex-move-outside-of-entry) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
986 (insert "@" entry-type "{") |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
987 (if key |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
988 (insert key)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
989 (save-excursion |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
990 (mapcar 'bibtex-make-field required) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
991 (if bibtex-include-OPTcrossref |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
992 (bibtex-make-optional-field "crossref")) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
993 (if bibtex-include-OPTkey |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
994 (bibtex-make-optional-field "key")) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
995 (mapcar 'bibtex-make-optional-field optional) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
996 (mapcar 'bibtex-make-optional-field |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
997 bibtex-mode-user-optional-fields) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
998 (if bibtex-include-OPTannote |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
999 (bibtex-make-optional-field "annote")) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1000 (insert "\n}\n\n")) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1001 (if key |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1002 (bibtex-next-field t)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1003 (run-hooks 'bibtex-add-entry-hook))) |
257 | 1004 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1005 ;; (defun bibtex-entry (entry-type required optional) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1006 ;; (bibtex-move-outside-of-entry) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1007 ;; (insert (concat "@" entry-type "{,\n\n}\n\n")) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1008 ;; (previous-line 3) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1009 ;; (insert (mapconcat 'bibtex-make-entry required ",\n")) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1010 ;; (if required |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1011 ;; (if optional |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1012 ;; (insert ",\n"))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1013 ;; (insert (mapconcat 'bibtex-make-OPT-entry optional ",\n")) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1014 ;; (if bibtex-mode-user-optional-fields ;MON... |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1015 ;; (progn |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1016 ;; (if optional |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1017 ;; (insert ",\n")) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1018 ;; (insert (mapconcat 'bibtex-make-OPT-entry |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1019 ;; bibtex-mode-user-optional-fields |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1020 ;; ",\n")))) ;MON |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1021 ;; (up-list -1) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1022 ;; (forward-char 1)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1023 |
561 | 1024 |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1025 (defun bibtex-make-field (e-t) |
257 | 1026 (interactive "sBibTeX entry type: ") |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1027 (let ((name (if (consp e-t) (car e-t) e-t)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1028 (value (if (consp e-t) (cdr e-t) ""))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1029 (insert ",\n") |
3552
84fded047f22
Fix typos in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
3527
diff
changeset
|
1030 (indent-to-column bibtex-name-alignment) |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1031 (insert name " = ") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1032 (indent-to-column bibtex-text-alignment) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1033 ;; lucid emacs prin1-to-string breaks the undo chain. When they fix |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1034 ;; that, the hack can be removed. [alarson:19930316.0805CST] |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1035 ; (insert (prin1-to-string value)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1036 ;; begin hack |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1037 (insert (format (if (stringp value) "\"%s\"" "%s") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1038 value)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1039 ;; end hack |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1040 nil)) |
257 | 1041 |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1042 (defun bibtex-make-optional-field (e-t) |
257 | 1043 (interactive "sOptional BibTeX entry type: ") |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1044 (if (consp e-t) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1045 (setq e-t (cons (concat "OPT" (car e-t)) (cdr e-t))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1046 (setq e-t (concat "OPT" e-t))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1047 (bibtex-make-field e-t)) |
257 | 1048 |
1049 ;; What to do about crossref? if present, journal and year are | |
1050 ;; both optional. Due to this, i move all of them into optional. -- MON | |
1051 | |
1052 (defun bibtex-Article () | |
1053 (interactive) | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1054 (bibtex-entry "Article")) |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1055 |
257 | 1056 (defun bibtex-Book () |
1057 (interactive) | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1058 (bibtex-entry "Book")) |
257 | 1059 |
1060 (defun bibtex-Booklet () | |
1061 (interactive) | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1062 (bibtex-entry "Booklet")) |
257 | 1063 |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1064 ;(defun bibtex-DEAthesis () |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1065 ; (interactive) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1066 ; (bibtex-entry "DEAthesis")) |
257 | 1067 |
1068 (defun bibtex-InBook () | |
1069 (interactive) | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1070 (bibtex-entry "InBook")) |
257 | 1071 |
1072 (defun bibtex-InCollection () | |
1073 (interactive) | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1074 (bibtex-entry "InCollection")) |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1075 |
257 | 1076 (defun bibtex-InProceedings () |
1077 (interactive) | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1078 (bibtex-entry "InProceedings")) |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1079 |
257 | 1080 (defun bibtex-Manual () |
1081 (interactive) | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1082 (bibtex-entry "Manual")) |
257 | 1083 |
1084 (defun bibtex-MastersThesis () | |
1085 (interactive) | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1086 (bibtex-entry "MastersThesis")) |
257 | 1087 |
1088 (defun bibtex-Misc () | |
1089 (interactive) | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1090 (bibtex-entry "Misc")) |
257 | 1091 |
1092 (defun bibtex-PhdThesis () | |
1093 (interactive) | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1094 (bibtex-entry "PhdThesis")) |
257 | 1095 |
1096 (defun bibtex-Proceedings () | |
1097 (interactive) | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1098 (bibtex-entry "Proceedings")) |
257 | 1099 |
1100 (defun bibtex-TechReport () | |
1101 (interactive) | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1102 (bibtex-entry "TechReport")) |
257 | 1103 |
1104 (defun bibtex-Unpublished () | |
1105 (interactive) | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1106 (bibtex-entry "Unpublished")) |
257 | 1107 |
1108 (defun bibtex-string () | |
1109 (interactive) | |
1110 (bibtex-move-outside-of-entry) | |
2864
9c3bf565b354
* bibtex.el (bibtex-string): Use \" instead of "" to get a double
Jim Blandy <jimb@redhat.com>
parents:
2602
diff
changeset
|
1111 (insert "@string{ = \"\"}\n") |
257 | 1112 (previous-line 1) |
1113 (forward-char 8)) | |
1114 | |
1115 (defun bibtex-preamble () | |
1116 (interactive) | |
1117 (bibtex-move-outside-of-entry) | |
1118 (insert "@Preamble{}\n") | |
1119 (previous-line 1) | |
1120 (forward-char 10)) | |
1121 | |
1122 (defun bibtex-next-field (arg) | |
1123 "Finds end of text of next BibTeX field; with arg, to its beginning" | |
1124 (interactive "P") | |
1125 (bibtex-inside-field) | |
1126 (let ((start (point))) | |
1127 (condition-case () | |
1128 (progn | |
1129 (bibtex-enclosing-field) | |
1130 (goto-char (match-end 0)) | |
1131 (forward-char 2)) | |
1132 (error | |
1133 (goto-char start) | |
1134 (end-of-line) | |
1135 (forward-char 1)))) | |
1136 (bibtex-find-text arg)) | |
1137 | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1138 ;; (defun bibtex-next-field () |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1139 ;; "Finds end of text of next field." |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1140 ;; (interactive) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1141 ;; (condition-case () |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1142 ;; (progn |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1143 ;; (bibtex-inside-field) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1144 ;; (re-search-forward ",[ \t\n]*" (point-max) 1) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1145 ;; (bibtex-enclosing-field) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1146 ;; (bibtex-inside-field)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1147 ;; (error nil))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1148 |
257 | 1149 (defun bibtex-find-text (arg) |
1150 "Go to end of text of current field; with arg, go to beginning." | |
1151 (interactive "P") | |
1152 (bibtex-inside-field) | |
1153 (bibtex-enclosing-field) | |
1154 (if arg | |
1155 (progn | |
1156 (goto-char (match-beginning bibtex-text-in-field)) | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1157 (if (looking-at "\"") |
257 | 1158 (forward-char 1))) |
1159 (goto-char (match-end bibtex-text-in-field)) | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1160 (if (= (preceding-char) ?\") |
257 | 1161 (forward-char -1)))) |
1162 | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1163 ;; (defun bibtex-find-text () |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1164 ;; "Go to end of text of current field." |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1165 ;; (interactive) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1166 ;; (condition-case () |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1167 ;; (progn |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1168 ;; (bibtex-inside-field) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1169 ;; (bibtex-enclosing-field) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1170 ;; (goto-char (match-end bibtex-text-in-field)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1171 ;; (bibtex-inside-field)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1172 ;; (error nil))) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1173 |
257 | 1174 (defun bibtex-remove-OPT () |
1175 "Removes the 'OPT' starting optional arguments and goes to end of text" | |
1176 (interactive) | |
1177 (bibtex-inside-field) | |
1178 (bibtex-enclosing-field) | |
1179 (save-excursion | |
1180 (goto-char (match-beginning bibtex-name-in-field)) | |
1181 (if (looking-at "OPT") | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1182 ;; sct@dcs.edinburgh.ac.uk |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1183 (progn |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1184 (delete-char (length "OPT")) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1185 (search-forward "=") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1186 (delete-horizontal-space) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1187 (indent-to-column bibtex-text-alignment)))) |
257 | 1188 (bibtex-inside-field)) |
1189 | |
1190 (defun bibtex-inside-field () | |
1191 "Try to avoid point being at end of a bibtex field." | |
1192 (interactive) | |
1193 (end-of-line) | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1194 (skip-chars-backward " \t") ;MON - maybe delete these chars? |
257 | 1195 (cond ((= (preceding-char) ?,) |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1196 (forward-char -2))) ; -1 --> -2 sct@dcs.edinburgh.ac.uk |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1197 (cond ((= (preceding-char) ?\") |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1198 (forward-char -1)))) ;MON - only go back if quote |
257 | 1199 |
1200 (defun bibtex-remove-double-quotes () | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1201 "Removes \"\" around string." |
257 | 1202 (interactive) |
1203 (save-excursion | |
1204 (bibtex-inside-field) | |
1205 (bibtex-enclosing-field) | |
1206 (let ((start (match-beginning bibtex-text-in-field)) | |
1207 (stop (match-end bibtex-text-in-field))) | |
1208 (goto-char stop) | |
1209 (forward-char -1) | |
1210 (if (looking-at "\"") | |
1211 (delete-char 1)) | |
1212 (goto-char start) | |
1213 (if (looking-at "\"") | |
1214 (delete-char 1))))) | |
1215 | |
1216 (defun bibtex-kill-optional-field () | |
1217 "Kill the entire enclosing optional BibTeX field" | |
1218 (interactive) | |
1219 (bibtex-inside-field) | |
1220 (bibtex-enclosing-field) | |
1221 (goto-char (match-beginning bibtex-name-in-field)) | |
1222 (let ((the-end (match-end 0)) | |
1223 (the-beginning (match-beginning 0))) | |
1224 (if (looking-at "OPT") | |
1225 (progn | |
1226 (goto-char the-end) | |
1227 (skip-chars-forward " \t\n,") | |
1228 (kill-region the-beginning the-end)) | |
1229 (error "Mandatory fields can't be killed")))) | |
1230 | |
1231 (defun bibtex-empty-field () | |
1232 "Delete the text part of the current field, replace with empty text" | |
1233 (interactive) | |
1234 (bibtex-inside-field) | |
1235 (bibtex-enclosing-field) | |
1236 (goto-char (match-beginning bibtex-text-in-field)) | |
1237 (kill-region (point) (match-end bibtex-text-in-field)) | |
1238 (insert "\"\"") | |
1239 (bibtex-find-text t)) | |
1240 | |
1241 | |
1242 (defun bibtex-pop-previous (arg) | |
1243 "Replace text of current field with the text of similar field in previous entry. | |
1244 With arg, go up ARG entries. Repeated, goes up so many times. May be | |
1245 intermixed with \\[bibtex-pop-next] (bibtex-pop-next)." | |
1246 (interactive "p") | |
1247 (bibtex-inside-field) | |
1248 (save-excursion | |
1249 ; parse current field | |
1250 (bibtex-enclosing-field) | |
1251 (let ((start-old-text (match-beginning bibtex-text-in-field)) | |
1252 (stop-old-text (match-end bibtex-text-in-field)) | |
1253 (start-name (match-beginning bibtex-name-in-field)) | |
1254 (stop-name (match-end bibtex-name-in-field)) | |
1255 (new-text)) | |
1256 (goto-char start-name) | |
1257 ; construct regexp for previous field with same name as this one | |
1258 (let ((matching-entry | |
1259 (bibtex-cfield | |
1260 (buffer-substring (if (looking-at "OPT") | |
1261 (+ (point) (length "OPT")) | |
1262 (point)) | |
1263 stop-name) | |
1264 bibtex-field-text))) | |
1265 | |
1266 ; if executed several times in a row, start each search where the | |
1267 ; last one finished | |
1268 (cond ((or (eq last-command 'bibtex-pop-previous) | |
1269 (eq last-command 'bibtex-pop-next)) | |
1270 t | |
1271 ) | |
1272 (t | |
1273 (bibtex-enclosing-reference) | |
1274 (setq bibtex-pop-previous-search-point (match-beginning 0)) | |
1275 (setq bibtex-pop-next-search-point (match-end 0)))) | |
1276 (goto-char bibtex-pop-previous-search-point) | |
1277 | |
1278 ; Now search for arg'th previous similar field | |
1279 (cond | |
1280 ((re-search-backward matching-entry (point-min) t arg) | |
1281 (setq new-text | |
1282 (buffer-substring (match-beginning bibtex-text-in-cfield) | |
1283 (match-end bibtex-text-in-cfield))) | |
1284 ; Found a matching field. Remember boundaries. | |
1285 (setq bibtex-pop-next-search-point (match-end 0)) | |
1286 (setq bibtex-pop-previous-search-point (match-beginning 0)) | |
1287 (bibtex-flash-head) | |
1288 ; Go back to where we started, delete old text, and pop new. | |
1289 (goto-char stop-old-text) | |
1290 (delete-region start-old-text stop-old-text) | |
1291 (insert new-text)) | |
1292 (t ; search failed | |
1293 (error "No previous matching BibTeX field.")))))) | |
1294 (setq this-command 'bibtex-pop-previous)) | |
1295 | |
1296 (defun bibtex-pop-next (arg) | |
1297 "Replace text of current field with the text of similar field in next entry. | |
1298 With arg, go up ARG entries. Repeated, goes up so many times. May be | |
1299 intermixed with \\[bibtex-pop-previous] (bibtex-pop-previous)." | |
1300 (interactive "p") | |
1301 (bibtex-inside-field) | |
1302 (save-excursion | |
1303 ; parse current field | |
1304 (bibtex-enclosing-field) | |
1305 (let ((start-old-text (match-beginning bibtex-text-in-field)) | |
1306 (stop-old-text (match-end bibtex-text-in-field)) | |
1307 (start-name (match-beginning bibtex-name-in-field)) | |
1308 (stop-name (match-end bibtex-name-in-field)) | |
1309 (new-text)) | |
1310 (goto-char start-name) | |
1311 ; construct regexp for next field with same name as this one, | |
1312 ; ignoring possible OPT's | |
1313 (let ((matching-entry | |
1314 (bibtex-cfield | |
1315 (buffer-substring (if (looking-at "OPT") | |
1316 (+ (point) (length "OPT")) | |
1317 (point)) | |
1318 stop-name) | |
1319 bibtex-field-text))) | |
1320 | |
1321 ; if executed several times in a row, start each search where the | |
1322 ; last one finished | |
1323 (cond ((or (eq last-command 'bibtex-pop-next) | |
1324 (eq last-command 'bibtex-pop-previous)) | |
1325 t | |
1326 ) | |
1327 (t | |
1328 (bibtex-enclosing-reference) | |
1329 (setq bibtex-pop-previous-search-point (match-beginning 0)) | |
1330 (setq bibtex-pop-next-search-point (match-end 0)))) | |
1331 (goto-char bibtex-pop-next-search-point) | |
1332 | |
1333 ; Now search for arg'th next similar field | |
1334 (cond | |
1335 ((re-search-forward matching-entry (point-max) t arg) | |
1336 (setq new-text | |
1337 (buffer-substring (match-beginning bibtex-text-in-cfield) | |
1338 (match-end bibtex-text-in-cfield))) | |
1339 ; Found a matching field. Remember boundaries. | |
1340 (setq bibtex-pop-next-search-point (match-end 0)) | |
1341 (setq bibtex-pop-previous-search-point (match-beginning 0)) | |
1342 (bibtex-flash-head) | |
1343 ; Go back to where we started, delete old text, and pop new. | |
1344 (goto-char stop-old-text) | |
1345 (delete-region start-old-text stop-old-text) | |
1346 (insert new-text)) | |
1347 (t ; search failed | |
1348 (error "No next matching BibTeX field.")))))) | |
1349 (setq this-command 'bibtex-pop-next)) | |
1350 | |
1351 (defun bibtex-flash-head () | |
1352 "Flash at BibTeX reference head before point, if exists. (Moves point)." | |
1353 (let ((flash)) | |
1354 (cond ((re-search-backward bibtex-reference-head (point-min) t) | |
1355 (goto-char (match-beginning bibtex-type-in-head)) | |
1356 (setq flash (match-end bibtex-key-in-reference))) | |
1357 (t | |
1358 (end-of-line) | |
1359 (skip-chars-backward " \t") | |
1360 (setq flash (point)) | |
1361 (beginning-of-line) | |
1362 (skip-chars-forward " \t"))) | |
1363 (if (pos-visible-in-window-p (point)) | |
1364 (sit-for 1) | |
1365 (message "From: %s" | |
1366 (buffer-substring (point) flash))))) | |
1367 | |
1368 | |
1369 | |
1370 (defun bibtex-enclosing-field () | |
1371 "Search for BibTeX field enclosing point. | |
1372 Point moves to end of field; also, use match-beginning and match-end | |
1373 to parse the field." | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1374 ;; sct@dcs.edinburgh.ac.uk |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1375 (let ((old-point (point))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1376 (condition-case errname |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1377 (bibtex-enclosing-regexp bibtex-field) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1378 (search-failed |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1379 (goto-char old-point) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1380 (error "Can't find enclosing BibTeX field."))))) |
257 | 1381 |
1382 (defun bibtex-enclosing-reference () | |
1383 "Search for BibTeX reference enclosing point. | |
1384 Point moves to end of reference; also, use match-beginning and match-end | |
1385 to parse the reference." | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1386 ;; sct@dcs.edinburgh.ac.uk |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1387 (let ((old-point (point))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1388 (condition-case errname |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1389 (bibtex-enclosing-regexp bibtex-reference) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1390 (search-failed |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1391 (goto-char old-point) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1392 (error "Can't find enclosing BibTeX reference."))))) |
257 | 1393 |
1394 (defun bibtex-enclosing-regexp (regexp) | |
1395 "Search for REGEXP enclosing point. | |
1396 Point moves to end of REGEXP. See also match-beginning and match-end. | |
1397 If an enclosing REGEXP is not found, signals search-failed; point is left in | |
1398 an undefined location. | |
1399 | |
1400 [Doesn't something like this exist already?]" | |
1401 | |
1402 (interactive "sRegexp: ") | |
1403 ; compute reasonable limits for the loop | |
1404 (let* ((initial (point)) | |
1405 (right (if (re-search-forward regexp (point-max) t) | |
1406 (match-end 0) | |
1407 (point-max))) | |
1408 (left | |
1409 (progn | |
1410 (goto-char initial) | |
1411 (if (re-search-backward regexp (point-min) t) | |
1412 (match-beginning 0) | |
1413 (point-min))))) | |
1414 ; within the prescribed limits, loop until a match is found | |
1415 (goto-char left) | |
1416 (re-search-forward regexp right nil 1) | |
1417 (if (> (match-beginning 0) initial) | |
1418 (signal 'search-failed (list regexp))) | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1419 (while (<= (match-end 0) initial) |
257 | 1420 (re-search-forward regexp right nil 1) |
1421 (if (> (match-beginning 0) initial) | |
1422 (signal 'search-failed (list regexp)))) | |
1423 )) | |
1424 | |
1425 (defun bibtex-clean-entry () | |
1426 "For all optional fields of current BibTeX entry: if empty, kill the whole field; otherwise, remove the \"OPT\" string in the name; if text numerical, remove double-quotes. For all mandatory fields: if empty, signal error." | |
1427 (interactive) | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1428 (beginning-of-bibtex-entry) |
257 | 1429 (let ((start (point))) |
1430 (save-restriction | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1431 (narrow-to-region start (save-excursion (end-of-bibtex-entry) (point))) |
257 | 1432 (while (re-search-forward bibtex-field (point-max) t 1) |
1433 (let ((begin-field (match-beginning 0)) | |
1434 (end-field (match-end 0)) | |
1435 (begin-name (match-beginning bibtex-name-in-field)) | |
1436 (end-name (match-end bibtex-name-in-field)) | |
1437 (begin-text (match-beginning bibtex-text-in-field)) | |
1438 (end-text (match-end bibtex-text-in-field)) | |
1439 ) | |
1440 (goto-char begin-name) | |
1441 (cond ((and | |
1442 (looking-at "OPT") | |
1443 bibtex-clean-entry-zap-empty-opts) | |
1444 (goto-char begin-text) | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1445 (if (looking-at "\"\"") ; empty: delete whole field |
257 | 1446 (delete-region begin-field end-field) |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1447 ; otherwise: not empty, delete "OPT" |
257 | 1448 (goto-char begin-name) |
1449 (delete-char (length "OPT")) | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1450 (progn |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1451 ;; fixup alignment. [alarson:19920309.2047CST] |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1452 (search-forward "=") |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1453 (delete-horizontal-space) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1454 (indent-to-column bibtex-text-alignment)) |
257 | 1455 (goto-char begin-field) ; and loop to go through next test |
1456 )) | |
1457 (t | |
1458 (goto-char begin-text) | |
1459 (cond ((looking-at "\"[0-9]+\"") ; if numerical, | |
1460 (goto-char end-text) | |
1461 (delete-char -1) ; delete enclosing double-quotes | |
1462 (goto-char begin-text) | |
1463 (delete-char 1) | |
1464 (goto-char end-field) ; go to end for next search | |
1465 (forward-char -2) ; to compensate for the 2 quotes deleted | |
1466 ) | |
1467 ((looking-at "\"\"") ; if empty quotes, complain | |
1468 (forward-char 1) | |
1469 (if (not (or (equal (buffer-substring | |
1470 begin-name | |
1471 (+ begin-name 3)) | |
1472 "OPT") | |
1473 (equal (buffer-substring | |
1474 begin-name | |
1475 (+ begin-name 3)) | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1476 "opt"))) |
257 | 1477 (error "Mandatory field ``%s'' is empty" |
1478 (buffer-substring begin-name end-name)))) | |
1479 (t | |
1480 (goto-char end-field)))))))) | |
1481 (goto-char start) | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1482 (end-of-bibtex-entry) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1483 ;; sct@dcs.edinburgh.ac.uk |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1484 (save-excursion |
7750
892098bdaa24
(bibtex-clean-entry): Back over close delimiter carefully.
Richard M. Stallman <rms@gnu.org>
parents:
7300
diff
changeset
|
1485 (backward-char 1) |
892098bdaa24
(bibtex-clean-entry): Back over close delimiter carefully.
Richard M. Stallman <rms@gnu.org>
parents:
7300
diff
changeset
|
1486 (skip-syntax-backward " >") |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1487 (if (eq (preceding-char) ?,) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1488 (backward-delete-char 1))) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1489 (skip-whitespace-and-comments))) |
257 | 1490 |
1491 | |
3527
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1492 ;;; Menus for bibtex mode |
257 | 1493 |
3527
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1494 (define-key bibtex-mode-map [menu-bar entry-types] |
3552
84fded047f22
Fix typos in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
3527
diff
changeset
|
1495 (cons "Entry Types" (make-sparse-keymap "Entry Types"))) |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1496 |
3527
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1497 (define-key bibtex-mode-map [menu-bar entry-types bibtex-InProceedings] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1498 '(" article in conference Proceedings " . bibtex-InProceedings)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1499 (define-key bibtex-mode-map [menu-bar entry-types bibtex-Article] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1500 '(" Article in journal " . bibtex-Article)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1501 (define-key bibtex-mode-map [menu-bar entry-types bibtex-Book] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1502 '(" Book " . bibtex-Book)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1503 (define-key bibtex-mode-map [menu-bar entry-types bibtex-Booklet] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1504 '(" Booklet " . bibtex-Booklet)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1505 (define-key bibtex-mode-map [menu-bar entry-types bibtex-InProceedings] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1506 '(" Conference " . bibtex-InProceedings)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1507 (define-key bibtex-mode-map [menu-bar entry-types bibtex-MastersThesis] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1508 '(" Master's Thesis " . bibtex-MastersThesis)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1509 ;define-key bibtex-mode-map [menu-bar entry-types bibtex-DEAthesis] |
3552
84fded047f22
Fix typos in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
3527
diff
changeset
|
1510 ;'((" DEA Thesis " . bibtex-DEAthesis)) |
3527
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1511 (define-key bibtex-mode-map [menu-bar entry-types bibtex-PhdThesis] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1512 '(" Phd. Thesis " . bibtex-PhdThesis)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1513 (define-key bibtex-mode-map [menu-bar entry-types bibtex-TechReport] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1514 '(" Technical Report " . bibtex-TechReport)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1515 (define-key bibtex-mode-map [menu-bar entry-types bibtex-Manual] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1516 '(" technical Manual " . bibtex-Manual)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1517 (define-key bibtex-mode-map [menu-bar entry-types bibtex-Proceedings] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1518 '(" conference Proceedings " . bibtex-Proceedings)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1519 (define-key bibtex-mode-map [menu-bar entry-types bibtex-InBook] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1520 '(" a chapter in a Book " . bibtex-InBook)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1521 (define-key bibtex-mode-map [menu-bar entry-types bibtex-InCollection] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1522 '(" an article in a Collection " . bibtex-InCollection)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1523 (define-key bibtex-mode-map [menu-bar entry-types bibtex-Misc] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1524 '(" miscellaneous " . bibtex-Misc)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1525 (define-key bibtex-mode-map [menu-bar entry-types bibtex-Unpublished] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1526 '(" unpublished " . bibtex-Unpublished)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1527 (define-key bibtex-mode-map [menu-bar entry-types bibtex-string] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1528 '(" string " . bibtex-string)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1529 (define-key bibtex-mode-map [menu-bar entry-types bibtex-preamble] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1530 '(" preamble " . bibtex-preamble)) |
257 | 1531 |
3527
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1532 (define-key bibtex-mode-map [menu-bar move/edit] |
3552
84fded047f22
Fix typos in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
3527
diff
changeset
|
1533 (cons "Bibtex Edit" (make-sparse-keymap "Bibtex Edit"))) |
257 | 1534 |
3527
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1535 (define-key bibtex-mode-map [menu-bar move/edit bibtex-next-field] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1536 '(" next field " . bibtex-next-field)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1537 (define-key bibtex-mode-map [menu-bar move/edit bibtex-find-text] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1538 '(" to end of field " . bibtex-find-text)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1539 (define-key bibtex-mode-map [menu-bar move/edit bibtex-pop-previous] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1540 '("snatch from similar preceding field" . bibtex-pop-previous)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1541 (define-key bibtex-mode-map [menu-bar move/edit bibtex-pop-next] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1542 '("snatch from similar following field" . bibtex-pop-next)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1543 (define-key bibtex-mode-map [menu-bar move/edit bibtex-remove-OPT] |
3552
84fded047f22
Fix typos in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
3527
diff
changeset
|
1544 '(" remove OPT " . bibtex-remove-OPT)) |
3527
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1545 (define-key bibtex-mode-map [menu-bar move/edit bibtex-remove-double-quotes] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1546 '(" remove quotes " . bibtex-remove-double-quotes)) |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1547 (define-key bibtex-mode-map [menu-bar move/edit bibtex-clean-entry] |
a0bd8ccfcf1c
Define 2 local menu-bar submaps.
Richard M. Stallman <rms@gnu.org>
parents:
3367
diff
changeset
|
1548 '(" clean up entry " . bibtex-clean-entry)) |
3552
84fded047f22
Fix typos in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
3527
diff
changeset
|
1549 (define-key bibtex-mode-map [menu-bar move/edit find-bibtex-duplicates] |
84fded047f22
Fix typos in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
3527
diff
changeset
|
1550 '(" find duplicates " . find-bibtex-duplicates)) |
84fded047f22
Fix typos in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
3527
diff
changeset
|
1551 (define-key bibtex-mode-map [menu-bar move/edit sort-bibtex-entries] |
84fded047f22
Fix typos in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
3527
diff
changeset
|
1552 '(" sort entries " . sort-bibtex-entries)) |
84fded047f22
Fix typos in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
3527
diff
changeset
|
1553 (define-key bibtex-mode-map [menu-bar move/edit validate-bibtex-buffer] |
84fded047f22
Fix typos in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
3527
diff
changeset
|
1554 '(" validate entries " . validate-bibtex-buffer)) |
257 | 1555 |
1556 | |
1557 ;; Please don't send anything to bug-gnu-emacs about these Sunwindows functions | |
1558 ;; since we aren't interested. See etc/SUN-SUPPORT for the reasons why | |
1559 ;; we consider this nothing but a distraction from our work. | |
1560 | |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1561 ;(defmacro eval-in-menu-window (&rest l) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1562 ; "Evaluates its argument in the window in which the mouse button was pressed." |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1563 ; (list 'eval-in-window '*menu-window* l)) |
257 | 1564 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1565 ;(defmenu bibtex-sun-entry-menu |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1566 ; ("Article In Conf. Proc." eval-in-menu-window bibtex-InProceedings) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1567 ; ("Article In Journal" eval-in-menu-window bibtex-Article) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1568 ; ("Book" eval-in-menu-window bibtex-Book) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1569 ; ("Booklet" eval-in-menu-window bibtex-Booklet) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1570 ; ("Master's Thesis" eval-in-menu-window bibtex-MastersThesis) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1571 ; ("PhD. Thesis" eval-in-menu-window bibtex-PhdThesis) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1572 ; ("Technical Report" eval-in-menu-window bibtex-TechReport) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1573 ; ("Technical Manual" eval-in-menu-window bibtex-Manual) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1574 ; ("Conference Proceedings" eval-in-menu-window bibtex-Proceedings) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1575 ; ("In A Book" eval-in-menu-window bibtex-InBook) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1576 ; ("In A Collection" eval-in-menu-window bibtex-InCollection) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1577 ; ("Miscellaneous" eval-in-menu-window bibtex-Misc) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1578 ; ("Unpublished" eval-in-menu-window bibtex-Unpublished) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1579 ; ("string" eval-in-menu-window bibtex-string) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1580 ; ("preamble" eval-in-menu-window bibtex-preamble)) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1581 ; |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1582 ;(defmenu bibtex-sun-menu |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1583 ; ("BibTeX menu") |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1584 ; ("add entry" . bibtex-sun-entry-menu) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1585 ; ("next field" eval-in-menu-window bibtex-next-field nil) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1586 ; ("to end of field" eval-in-menu-window bibtex-find-text nil) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1587 ; ("snatch similar preceding field" eval-in-menu-window bibtex-pop-previous 1) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1588 ; ("snatch similar following field" eval-in-menu-window bibtex-pop-next 1) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1589 ; ("remove OPT" eval-in-menu-window bibtex-remove-OPT) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1590 ; ("remove quotes" eval-in-menu-window bibtex-remove-double-quotes) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1591 ; ("clean entry" eval-in-menu-window bibtex-clean-entry) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1592 ; ("describe BibTeX mode" eval-in-menu-window describe-mode) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
1593 ; ("Main Emacs menu" . emacs-menu)) |
257 | 1594 |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1595 ;(defun bibtex-sun-menu-eval (window x y) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1596 ; "Pop-up menu of BibTeX commands." |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1597 ; (sun-menu-evaluate window (1+ x) (1- y) 'bibtex-sun-menu)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1598 ; |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1599 ;(defun bibtex-sun-environment () |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1600 ; "Set up sun menus for BibTeX mode. Call it as bibtex-mode-hook, or |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1601 ;interactively" |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1602 ; (interactive) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1603 ; (local-set-mouse '(text right) 'bibtex-sun-menu-eval)) |
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1604 ; |
257 | 1605 |
2602
2465861025cd
Installed Aaron Larson's new bibtex.el. See the header comment for
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
1606 ;;; bibtex.el ends here |