Mercurial > emacs

changeset 3552:84fded047f22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix typos in previous change. Add a few menu items. (bibtex-name-alignment): Renamed from bibtex-name-alignement.
author Richard M. Stallman <rms@gnu.org>
date Mon, 07 Jun 1993 20:06:34 +0000
parents 8b5fa2d1755f
children 5f9688c0b704
files lisp/textmodes/bibtex.el
diffstat 1 files changed, 12 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/bibtex.el	Mon Jun 07 19:37:18 1993 +0000
+++ b/lisp/textmodes/bibtex.el	Mon Jun 07 20:06:34 1993 +0000
@@ -544,7 +544,7 @@
 (defconst bibtex-text-in-string 2
   "The regexp subexpression of the text part in bibtex-string")
 
-(defconst bibtex-name-alignement 2
+(defconst bibtex-name-alignment 2
   "Alignment for the name part in BibTeX fields.
 Chosen on aesthetic grounds only.")
 
@@ -1020,7 +1020,7 @@
   (let ((name  (if (consp e-t) (car e-t) e-t))
 	(value (if (consp e-t) (cdr e-t) "")))
     (insert ",\n")
-    (indent-to-column bibtex-name-alignement)
+    (indent-to-column bibtex-name-alignment)
     (insert name " = ")
     (indent-to-column bibtex-text-alignment)
     ;; lucid emacs prin1-to-string breaks the undo chain.  When they fix
@@ -1485,7 +1485,7 @@
 ;;; Menus for bibtex mode
 
 (define-key bibtex-mode-map [menu-bar entry-types]
-  (make-sparse-keymap "Entry Types"))
+  (cons "Entry Types" (make-sparse-keymap "Entry Types")))
 
 (define-key bibtex-mode-map [menu-bar entry-types bibtex-InProceedings]
   '(" article in conference Proceedings " . bibtex-InProceedings))
@@ -1500,7 +1500,7 @@
 (define-key bibtex-mode-map [menu-bar entry-types bibtex-MastersThesis]
   '("         Master's Thesis           " . bibtex-MastersThesis))
 ;define-key bibtex-mode-map [menu-bar entry-types bibtex-DEAthesis]
-'(("            DEA Thesis             " . bibtex-DEAthesis))
+;'(("            DEA Thesis             " . bibtex-DEAthesis))
 (define-key bibtex-mode-map [menu-bar entry-types bibtex-PhdThesis]
   '("            Phd. Thesis            " . bibtex-PhdThesis))
 (define-key bibtex-mode-map [menu-bar entry-types bibtex-TechReport]
@@ -1523,7 +1523,7 @@
   '("             preamble              " . bibtex-preamble))
 
 (define-key bibtex-mode-map [menu-bar move/edit]
-  (make-sparse-keymap "Bibtex Edit"))
+  (cons "Bibtex Edit" (make-sparse-keymap "Bibtex Edit")))
 
 (define-key bibtex-mode-map [menu-bar move/edit bibtex-next-field]
   '("            next field             " . bibtex-next-field))
@@ -1534,11 +1534,17 @@
 (define-key bibtex-mode-map [menu-bar move/edit bibtex-pop-next]
   '("snatch from similar following field" . bibtex-pop-next))
 (define-key bibtex-mode-map [menu-bar move/edit bibtex-remove-OPT]
-  '("            remove OPT             " . bibtex-remove-OPT)
+  '("            remove OPT             " . bibtex-remove-OPT))
 (define-key bibtex-mode-map [menu-bar move/edit bibtex-remove-double-quotes]
   '("           remove quotes           " . bibtex-remove-double-quotes))
 (define-key bibtex-mode-map [menu-bar move/edit bibtex-clean-entry]
   '("          clean up entry           " . bibtex-clean-entry))
+(define-key bibtex-mode-map [menu-bar move/edit find-bibtex-duplicates]
+  '("          find duplicates          " . find-bibtex-duplicates))
+(define-key bibtex-mode-map [menu-bar move/edit sort-bibtex-entries]
+  '("           sort entries            " . sort-bibtex-entries))
+(define-key bibtex-mode-map [menu-bar move/edit validate-bibtex-buffer]
+  '("         validate entries          " . validate-bibtex-buffer))
 
 
 ;; Please don't send anything to bug-gnu-emacs about these Sunwindows functions