[Emacs-diffs] Changes to emacs/lisp/files.el

[Stefan Monnier]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.754 emacs/lisp/files.el:1.755
*** emacs/lisp/files.el:1.754   Fri Apr  1 04:44:04 2005
--- emacs/lisp/files.el Sun Apr 10 20:50:48 2005
***************
*** 2113,2134 ****
         (setq temp (cdr temp)))
         (not temp))
  
!      (search-forward "-*-" (save-excursion
!                            ;; If the file begins with "#!"
!                            ;; (exec interpreter magic), look
!                            ;; for mode frobs in the first two
!                            ;; lines.  You cannot necessarily
!                            ;; put them in the first line of
!                            ;; such a file without screwing up
!                            ;; the interpreter invocation.
!                            (end-of-line (and (looking-at "^#!") 2))
!                            (point)) t)
       (progn
         (skip-chars-forward " \t")
         (setq beg (point))
!        (search-forward "-*-"
!                      (save-excursion (end-of-line) (point))
!                      t))
       (progn
         (forward-char -3)
         (skip-chars-backward " \t")
--- 2113,2131 ----
         (setq temp (cdr temp)))
         (not temp))
  
!      (search-forward "-*-" (line-end-position
!                             ;; If the file begins with "#!"
!                             ;; (exec interpreter magic), look
!                             ;; for mode frobs in the first two
!                             ;; lines.  You cannot necessarily
!                             ;; put them in the first line of
!                             ;; such a file without screwing up
!                             ;; the interpreter invocation.
!                             (and (looking-at "^#!") 2)) t)
       (progn
         (skip-chars-forward " \t")
         (setq beg (point))
!        (search-forward "-*-" (line-end-position) t))
       (progn
         (forward-char -3)
         (skip-chars-backward " \t")