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

Diff of /auctex/tex.el

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

revision 5.509 by dak, Fri May 6 09:09:34 2005 UTC revision 5.510 by angeli, Fri May 6 15:48:42 2005 UTC
# Line 1363  This will be done when AUCTeX first try Line 1363  This will be done when AUCTeX first try
1363          (insert "% " TeX-esc "fi\n"))))))          (insert "% " TeX-esc "fi\n"))))))
1364    
1365  (defun TeX-local-master-p ()  (defun TeX-local-master-p ()
1366    "Return t if there is a `TeX-master' entry in the local variables section.    "Return non-nil if there is a `TeX-master' entry in local variables spec.
1367  Return nil otherwise."  Return nil otherwise."
1368    (save-excursion    (save-excursion
1369        ;; XXX: Checking -*- line necessary as well?
1370      (goto-char (point-max))      (goto-char (point-max))
1371      (if (re-search-backward "^%+ *TeX-master:" nil t)      (search-backward "\n\^L" (max (- (point-max) 3000) (point-min)) 'move)
1372          t      (re-search-forward "^%+ *TeX-master:" nil t)))
       nil)))  
1373    
1374  ;;; Style Paths  ;;; Style Paths
1375    

Legend:
Removed from v.5.509  
changed lines
  Added in v.5.510

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