/[emacs]/emacs/lisp/files.el
ViewVC logotype

Diff of /emacs/lisp/files.el

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

revision 1.721 by rms, Thu Nov 4 10:04:16 2004 UTC revision 1.722 by pfeiffer, Thu Nov 4 20:25:08 2004 UTC
# Line 1912  only set the major mode, if that would c Line 1912  only set the major mode, if that would c
1912                  (message "Ignoring unknown mode `%s'" mode)                  (message "Ignoring unknown mode `%s'" mode)
1913                (setq done t)                (setq done t)
1914                (or (set-auto-mode-0 mode keep-mode-if-same)                (or (set-auto-mode-0 mode keep-mode-if-same)
1915                      ;; continuing would call minor modes again, toggling them off
1916                    (throw 'nop nil)))))                    (throw 'nop nil)))))
1917        ;; If we didn't, look for an interpreter specified in the first line.        ;; If we didn't, look for an interpreter specified in the first line.
1918        ;; As a special case, allow for things like "#!/bin/env perl", which        ;; As a special case, allow for things like "#!/bin/env perl", which
# Line 1924  only set the major mode, if that would c Line 1925  only set the major mode, if that would c
1925              ;; Map interpreter name to a mode, signalling we're done at the              ;; Map interpreter name to a mode, signalling we're done at the
1926              ;; same time.              ;; same time.
1927              done (assoc (file-name-nondirectory mode)              done (assoc (file-name-nondirectory mode)
1928                          interpreter-mode-alist)))                          interpreter-mode-alist))
1929          (if done
1930              (set-auto-mode-0 (cdr done) keep-mode-if-same)))
1931      ;; If we found an interpreter mode to use, invoke it now.      ;; If we found an interpreter mode to use, invoke it now.
1932      (if done      (unless done
         (set-auto-mode-0 (cdr done) keep-mode-if-same)  
1933        (if (setq done (save-excursion        (if (setq done (save-excursion
1934                         (goto-char (point-min))                         (goto-char (point-min))
1935                         (assoc-default nil magic-mode-alist                         (assoc-default nil magic-mode-alist

Legend:
Removed from v.1.721  
changed lines
  Added in v.1.722

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