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

Diff of /auctex/tex.el

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

revision 5.526 by angeli, Fri Jun 10 09:45:09 2005 UTC revision 5.527 by angeli, Sat Jun 11 19:28:25 2005 UTC
# Line 1233  the beginning of the file, but that feat Line 1233  the beginning of the file, but that feat
1233          (widen)          (widen)
1234          (goto-char (point-min))          (goto-char (point-min))
1235          (cond          (cond
1236             (TeX-transient-master
1237              (setq TeX-master TeX-transient-master))
1238           ;; Special value 't means it is own master (a free file).           ;; Special value 't means it is own master (a free file).
1239           ((equal TeX-master my-name)           ((equal TeX-master my-name)
1240            (setq TeX-master t))            (setq TeX-master t))
# Line 1240  the beginning of the file, but that feat Line 1242  the beginning of the file, but that feat
1242           ;; For files shared between many documents.           ;; For files shared between many documents.
1243           ((and (eq 'shared TeX-master) ask)           ((and (eq 'shared TeX-master) ask)
1244            (setq TeX-master            (setq TeX-master
1245                  (or TeX-transient-master                  (let* ((default (TeX-dwim-master))
1246                      (let* ((default (TeX-dwim-master))                         (name (read-file-name
1247                             (name (read-file-name                                (format "Master file: (default %s) "
1248                                    (format "Master file: (default %s) "                                        (or default "this file"))
1249                                            (or default "this file"))                                nil default)))
1250                                    nil default)))                    (cond ((string= name default)
1251                        (cond ((string= name default)                           default)
1252                               default)                          ((or
1253                              ((or                            ;; Default `read-file-name' proposes and
1254                                ;; Default `read-file-name' proposes and                            ;; buffer visits a file.
1255                                ;; buffer visits a file.                            (string= (expand-file-name name)
1256                                (string= (expand-file-name name)                                     (buffer-file-name))
1257                                         (buffer-file-name))                            ;; Default of `read-file-name' and
1258                                ;; Default of `read-file-name' and                            ;; buffer does not visit a file.
1259                                ;; buffer does not visit a file.                            (string= name default-directory)
1260                                (string= name default-directory)                            ;; User typed <RET> in an empty minibuffer.
1261                                ;; User typed <RET> in an empty minibuffer.                            (string= name ""))
1262                                (string= name ""))                           t)
1263                               t)                          (t
1264                              (t                           (TeX-strip-extension
1265                               (TeX-strip-extension                            name (list (TeX-default-extension)) 'path))))))
                               name (list (TeX-default-extension)) 'path)))))))  
1266    
1267           ;; We might already know the name.           ;; We might already know the name.
1268           ((or (eq TeX-master t) (stringp TeX-master)) TeX-master)           ((or (eq TeX-master t) (stringp TeX-master)) TeX-master)
# Line 1286  the beginning of the file, but that feat Line 1287  the beginning of the file, but that feat
1287                    my-name)))                    my-name)))
1288    
1289        (if (TeX-match-extension name)        (if (TeX-match-extension name)
1290        ;; If it already have an extension...            ;; If it already has an extension...
1291            (if (equal extension TeX-default-extension)            (if (equal extension TeX-default-extension)
1292                ;; Use instead of the default extension                ;; Use instead of the default extension
1293                (setq extension nil)                (setq extension nil)

Legend:
Removed from v.5.526  
changed lines
  Added in v.5.527

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