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

[Richard M . Stallman]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.734 emacs/lisp/files.el:1.735
*** emacs/lisp/files.el:1.734   Mon Dec 27 17:29:34 2004
--- emacs/lisp/files.el Thu Dec 30 01:49:12 2004
***************
*** 2183,2189 ****
                                                   buffer-file-name)
                                                (concat "buffer "
                                                        (buffer-name))))))))))
!         (let (prefix prefixlen suffix beg
                (enable-local-eval enable-local-eval))
            ;; The prefix is what comes before "local variables:" in its line.
            ;; The suffix is what comes after "local variables:" in its line.
--- 2183,2189 ----
                                                   buffer-file-name)
                                                (concat "buffer "
                                                        (buffer-name))))))))))
!         (let (prefix suffix beg
                (enable-local-eval enable-local-eval))
            ;; The prefix is what comes before "local variables:" in its line.
            ;; The suffix is what comes after "local variables:" in its line.
***************
*** 2197,2204 ****
                      (buffer-substring (point)
                                        (progn (beginning-of-line) (point)))))
  
!           (if prefix (setq prefixlen (length prefix)
!                            prefix (regexp-quote prefix)))
            (if suffix (setq suffix (concat (regexp-quote suffix) "$")))
            (forward-line 1)
            (let ((startpos (point))
--- 2197,2203 ----
                      (buffer-substring (point)
                                        (progn (beginning-of-line) (point)))))
  
!           (setq prefix (if prefix (regexp-quote prefix) "^"))
            (if suffix (setq suffix (concat (regexp-quote suffix) "$")))
            (forward-line 1)
            (let ((startpos (point))