/[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.734 by rms, Mon Dec 27 17:29:34 2004 UTC revision 1.735 by rms, Thu Dec 30 01:49:12 2004 UTC
# Line 2183  is specified, returning t if it is speci Line 2183  is specified, returning t if it is speci
2183                                                     buffer-file-name)                                                     buffer-file-name)
2184                                                  (concat "buffer "                                                  (concat "buffer "
2185                                                          (buffer-name))))))))))                                                          (buffer-name))))))))))
2186            (let (prefix prefixlen suffix beg            (let (prefix suffix beg
2187                  (enable-local-eval enable-local-eval))                  (enable-local-eval enable-local-eval))
2188              ;; The prefix is what comes before "local variables:" in its line.              ;; The prefix is what comes before "local variables:" in its line.
2189              ;; The suffix is what comes after "local variables:" in its line.              ;; The suffix is what comes after "local variables:" in its line.
# Line 2197  is specified, returning t if it is speci Line 2197  is specified, returning t if it is speci
2197                        (buffer-substring (point)                        (buffer-substring (point)
2198                                          (progn (beginning-of-line) (point)))))                                          (progn (beginning-of-line) (point)))))
2199    
2200              (if prefix (setq prefixlen (length prefix)              (setq prefix (if prefix (regexp-quote prefix) "^"))
                              prefix (regexp-quote prefix)))  
2201              (if suffix (setq suffix (concat (regexp-quote suffix) "$")))              (if suffix (setq suffix (concat (regexp-quote suffix) "$")))
2202              (forward-line 1)              (forward-line 1)
2203              (let ((startpos (point))              (let ((startpos (point))

Legend:
Removed from v.1.734  
changed lines
  Added in v.1.735

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