/[auctex]/auctex/tex.el
ViewVC logotype

Diff of /auctex/tex.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 5.504 by dak, Wed Apr 27 16:16:38 2005 UTC revision 5.505 by dak, Wed Apr 27 21:32:24 2005 UTC
# Line 604  Also does other stuff." Line 604  Also does other stuff."
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    
# Line 1367  Return nil otherwise." Line 1373  Return nil otherwise."
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."
# Line 1494  DEFAULT: fallback path list" Line 1492  DEFAULT: fallback path list"
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.
# Line 1520  These correspond to the personal TeX mac Line 1516  These correspond to the personal TeX mac
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
# Line 1545  These correspond to the personal TeX mac Line 1540  These correspond to the personal TeX mac
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.
# Line 1589  active.") Line 1584  active.")
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."

Legend:
Removed from v.5.504  
changed lines
  Added in v.5.505

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26