604 |
(TeX-maybe-remove-help menu))) |
(TeX-maybe-remove-help menu))) |
605 |
|
|
606 |
(defconst AUC-TeX-version AUCTeX-version) |
(defconst AUC-TeX-version AUCTeX-version) |
607 |
(make-obsolete-variable 'AUC-TeX-version 'AUCTeX-version "11.50") |
(condition-case nil |
608 |
|
(make-obsolete-variable 'AUC-TeX-version 'AUCTeX-version "11.50") |
609 |
|
(wrong-number-of-arguments |
610 |
|
(make-obsolete-variable 'AUC-TeX-version 'AUCTeX-version))) |
611 |
|
|
612 |
(defconst AUC-TeX-date AUCTeX-date) |
(defconst AUC-TeX-date AUCTeX-date) |
613 |
(make-obsolete-variable 'AUC-TeX-date 'AUCTeX-date "11.50") |
(condition-case nil |
614 |
|
(make-obsolete-variable 'AUC-TeX-date 'AUCTeX-date "11.50") |
615 |
|
(wrong-number-of-arguments |
616 |
|
(make-obsolete-variable 'AUC-TeX-date 'AUCTeX-date))) |
617 |
|
|
618 |
;;; Documentation for Info-goto-emacs-command-node and similar |
;;; Documentation for Info-goto-emacs-command-node and similar |
619 |
|
|
1373 |
|
|
1374 |
;;; Style Paths |
;;; Style Paths |
1375 |
|
|
1376 |
(setq TeX-lisp-directory (file-name-as-directory TeX-lisp-directory)) |
(defcustom TeX-style-global (expand-file-name "style" TeX-data-directory) |
|
|
|
|
(setq TeX-auto-global (file-name-as-directory TeX-auto-global)) |
|
|
|
|
|
(defcustom TeX-style-global (file-name-as-directory |
|
|
(concat TeX-lisp-directory "style")) |
|
1377 |
"*Directory containing hand generated TeX information. |
"*Directory containing hand generated TeX information. |
|
Must end with a directory separator. |
|
1378 |
|
|
1379 |
These correspond to TeX macros shared by all users of a site." |
These correspond to TeX macros shared by all users of a site." |
1380 |
:group 'TeX-file |
:group 'TeX-file |
1381 |
:type 'directory) |
:type 'directory) |
1382 |
|
|
1383 |
(defcustom TeX-auto-local (file-name-as-directory "auto") |
(defcustom TeX-auto-local "auto" |
1384 |
"*Directory containing automatically generated TeX information. |
"*Directory containing automatically generated TeX information. |
|
Must end with a directory separator. |
|
1385 |
|
|
1386 |
This correspond to TeX macros found in the current directory, and must |
This correspond to TeX macros found in the current directory, and must |
1387 |
be relative to that." |
be relative to that." |
1388 |
:group 'TeX-file |
:group 'TeX-file |
1389 |
:type 'string) |
:type 'string) |
1390 |
|
|
1391 |
(defcustom TeX-style-local (file-name-as-directory "style") |
(defcustom TeX-style-local "style" |
1392 |
"*Directory containing hand generated TeX information. |
"*Directory containing hand generated TeX information. |
|
Must end with a slash. |
|
1393 |
|
|
1394 |
These correspond to TeX macros found in the current directory, and must |
These correspond to TeX macros found in the current directory, and must |
1395 |
be relative to that." |
be relative to that." |
1492 |
(or input-dir-list default))) |
(or input-dir-list default))) |
1493 |
|
|
1494 |
(defcustom TeX-macro-global (TeX-macro-global) |
(defcustom TeX-macro-global (TeX-macro-global) |
1495 |
"Directories containing the site's TeX macro and style files. |
"Directories containing the site's TeX macro and style files." |
|
The directory names *must* end with a directory separator." |
|
1496 |
:group 'TeX-file |
:group 'TeX-file |
1497 |
:type '(repeat (directory :format "%v"))) |
:type '(repeat (directory :format "%v"))) |
1498 |
|
|
1499 |
(defcustom TeX-macro-private (append (TeX-parse-path "TEXINPUTS") |
(defcustom TeX-macro-private (append (TeX-parse-path "TEXINPUTS") |
1500 |
(TeX-parse-path "BIBINPUTS")) |
(TeX-parse-path "BIBINPUTS")) |
1501 |
"Directories where you store your personal TeX macros. |
"Directories where you store your personal TeX macros." |
|
Each must end with a directory separator." |
|
1502 |
:group 'TeX-file |
:group 'TeX-file |
1503 |
:type '(repeat (file :format "%v"))) |
:type '(repeat (file :format "%v"))) |
1504 |
|
|
1505 |
(defcustom TeX-auto-private (mapcar (lambda (entry) |
(defcustom TeX-auto-private (mapcar (lambda (entry) |
1506 |
(concat entry TeX-auto-local)) |
(expand-file-name TeX-auto-local entry)) |
1507 |
TeX-macro-private) |
TeX-macro-private) |
1508 |
"List of directories containing automatically generated information. |
"List of directories containing automatically generated information. |
1509 |
Must end with a slash. |
Must end with a slash. |
1516 |
(setq TeX-auto-private (list TeX-auto-private))) |
(setq TeX-auto-private (list TeX-auto-private))) |
1517 |
|
|
1518 |
(defcustom TeX-style-private (mapcar (lambda (entry) |
(defcustom TeX-style-private (mapcar (lambda (entry) |
1519 |
(concat entry |
(expand-file-name |
1520 |
TeX-style-local)) |
TeX-style-local entry)) |
1521 |
TeX-macro-private) |
TeX-macro-private) |
1522 |
"List of directories containing hand generated information. |
"List of directories containing hand generated information. |
|
Must end with a slash. |
|
1523 |
|
|
1524 |
These correspond to the personal TeX macros." |
These correspond to the personal TeX macros." |
1525 |
:group 'TeX-file |
:group 'TeX-file |
1540 |
:type '(repeat (file :format "%v"))) |
:type '(repeat (file :format "%v"))) |
1541 |
|
|
1542 |
(defcustom TeX-check-path |
(defcustom TeX-check-path |
1543 |
(append (list "./") TeX-macro-private TeX-macro-global) |
(append (list ".") TeX-macro-private TeX-macro-global) |
1544 |
"Directory path to search for dependencies. |
"Directory path to search for dependencies. |
1545 |
|
|
1546 |
If nil, just check the current file. |
If nil, just check the current file. |
1584 |
;; Insert empty list to mark the fact that we have searched. |
;; Insert empty list to mark the fact that we have searched. |
1585 |
(setq TeX-style-hook-list (cons (list style) TeX-style-hook-list)) |
(setq TeX-style-hook-list (cons (list style) TeX-style-hook-list)) |
1586 |
;; Now check each element of the path |
;; Now check each element of the path |
1587 |
(mapcar (lambda (name) |
(dolist (name TeX-style-path) |
1588 |
(TeX-load-style-file (concat |
(TeX-load-style-file (expand-file-name name style)))))) |
|
(file-name-as-directory name) |
|
|
style))) |
|
|
TeX-style-path)))) |
|
1589 |
|
|
1590 |
(defun TeX-load-style-file (file) |
(defun TeX-load-style-file (file) |
1591 |
"Load FILE checking for a Lisp extensions." |
"Load FILE checking for a Lisp extensions." |