procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(bibtex-mode-map): Use tex-insert-quote, not TeX-...

Browse source
This commit is contained in:
Richard M. Stallman 1993-06-10 17:42:39 +00:00
parent 118c9082db
commit a857ed136a
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/textmodes/bibtex.el
View file

@ -138,7 +138,7 @@
;;; user visible variables added: ;;; user visible variables added:
;;; bibtex-maintain-sorted-entries ;;; bibtex-maintain-sorted-entries
;;; new local keybindings: ;;; new local keybindings:
;;; " TeX-insert-quote ;;; " tex-insert-quote
;;; C-c$ ispell-bibtex-entry ;;; C-c$ ispell-bibtex-entry
;;; M-C-a beginning-of-bibtex-entry ;;; M-C-a beginning-of-bibtex-entry
;;; M-C-e end-of-bibtex-entry ;;; M-C-e end-of-bibtex-entry
@ -233,8 +233,8 @@
;;; these guys typically don't have autoloads...[alarson:19920131.1548CST] ;;; these guys typically don't have autoloads...[alarson:19920131.1548CST]
;;; Check for fboundp first so that if user autoloads them from non standard ;;; Check for fboundp first so that if user autoloads them from non standard
;;; places, the users bindings will take precedence. ;;; places, the users bindings will take precedence.
(if (not (fboundp 'TeX-insert-quote)) (if (not (fboundp 'tex-insert-quote))
(autoload 'TeX-insert-quote "tex-mode")) (autoload 'tex-insert-quote "tex-mode"))
(if (not (fboundp 'sort-subr)) (if (not (fboundp 'sort-subr))
(autoload 'sort-subr "sort")) (autoload 'sort-subr "sort"))
@ -308,7 +308,7 @@ string and the cdr the value to be inserted.")
(define-key km "\C-c\C-d" 'bibtex-empty-field) (define-key km "\C-c\C-d" 'bibtex-empty-field)
;; [alarson:19920131.1543CST] ;; [alarson:19920131.1543CST]
(define-key km "\"" 'TeX-insert-quote) (define-key km "\"" 'tex-insert-quote)
(define-key km "\C-c$" 'ispell-bibtex-entry) (define-key km "\C-c$" 'ispell-bibtex-entry)
(define-key km "\M-\C-a" 'beginning-of-bibtex-entry) (define-key km "\M-\C-a" 'beginning-of-bibtex-entry)
(define-key km "\M-\C-e" 'end-of-bibtex-entry) (define-key km "\M-\C-e" 'end-of-bibtex-entry)