/usr/share/emacs/site-lisp/auctex/style/natbib.el is in auctex 11.87-1ubuntu2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 | ;;; natbib.el --- Style hook for the natbib package
;; Copyright (C) 1997, 1998, 2004, 2007 Free Software Foundation, Inc.
;; Authors: Berwin Turlach <statba@nus.edu.sg>
;; Carsten Dominik <dominik@strw.leidenuniv.nl>
;; Maintainer: auctex-devel@gnu.org
;; Keywords: tex
;; This file is part of AUCTeX.
;; AUCTeX is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;; AUCTeX is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with AUCTeX; see the file COPYING. If not, write to the Free
;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
;; 02110-1301, USA.
;;; Code:
(TeX-add-style-hook "natbib"
(function
(lambda ()
;; The number in the cdr of the following list indicates how many
;; optional note arguments we consider useful. Prompting for those
;; arguments will still depend upon `TeX-arg-cite-note-p'.
(let ((citecmds
'(("cite" . 0)
("citet" . 1) ("citet*" . 1) ("citealt" . 1) ("citealt*" . 1)
("citep" . 2) ("citep*" . 2) ("citealp" . 2) ("citealp*" . 2)
("citeauthor" . 0) ("citeauthor*" . 0) ("citefullauthor" . 0)
("citeyear" . 0) ("citeyearpar" . 0)
("shortcites" . 0))))
;; Add these symbols
(apply
'TeX-add-symbols
(mapcar
(lambda (cmd)
(cond
((= (cdr cmd) 0)
;; No optional arguments
(list (car cmd) 'TeX-arg-cite))
((= (cdr cmd) 1)
;; Just one optional argument, the post note
(list
(car cmd)
'(TeX-arg-conditional TeX-arg-cite-note-p (["Post-note"]) nil)
'TeX-arg-cite))
((= (cdr cmd) 2)
;; Pre and post notes
(list
(car cmd)
'(TeX-arg-conditional TeX-arg-cite-note-p (natbib-note-args) nil)
'TeX-arg-cite))))
citecmds))
;; Add the other symbols
(TeX-add-symbols
'("citetext" "Text")
'("bibpunct" ["Post note separator"]
"Opening bracket"
"Closing bracket"
"Punctuation between multiple citations"
"style [n]umeric [s]uperscript [a]uthor-year"
"Punctuation between author and year"
"Punctuation between years for common authors")
'("citestyle" "Style")
'("citeindextrue")
'("citeindexfalse")
'("citeindextype"))
;; Make an entry in TeX-complete-list
(add-to-list
'TeX-complete-list
(list
(concat "\\\\\\("
(mapconcat (lambda (x) (regexp-quote (car x)))
citecmds "\\|")
"\\)\\(\\[[^]\n\r\\%]*\\]\\)*{\\([^{}\n\r\\%,]*,\\)*\\([^{}\n\r\\%,]*\\)")
4 'LaTeX-bibitem-list "}")))
;; Fontification
(when (and (fboundp 'font-latex-add-keywords)
(eq TeX-install-font-lock 'font-latex-setup))
(font-latex-add-keywords '(("cite" "*[[{")
("citet" "*[[{")
("citealt" "*[[{")
("citep" "*[[{")
("citealp" "*[[{")
("citeauthor" "*[[{")
("citefullauthor" "[[{")
("citeyear" "[[{")
("citeyearpar" "[[{")
("shortcites" "{"))
'reference))
;; Tell RefTeX
(if (fboundp 'reftex-set-cite-format)
(reftex-set-cite-format 'natbib)))))
(defun natbib-note-args (optional &optional prompt definition)
"Prompt for two note arguments a natbib citation command."
(if TeX-arg-cite-note-p
(let* ((pre (read-string
(TeX-argument-prompt optional optional "Pre-note")))
(post (read-string
(TeX-argument-prompt optional optional "Post-note"))))
(if (not (string= pre "")) (insert "[" pre "]"))
(if (not (string= post ""))
(insert "[" post "]")
;; Make sure that we have an empty post note if pre is not empty
(if (string= pre "") (insert "[]"))))))
(defvar LaTeX-natbib-package-options '("numbers" "super" "authoryear"
"round" "square" "angle" "curly"
"comma" "colon" "nobibstyle"
"bibstyle" "openbib" "sectionbib"
"sort" "sort&compress"
"longnamesfirst" "nonamebreak")
"Package options for the natbib package.")
;; natbib.el ends here
|