/[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.745 by kfstorm, Wed Feb 9 15:50:42 2005 UTC revision 1.746 by dpe, Fri Mar 18 08:07:55 2005 UTC
# Line 2247  is specified, returning t if it is speci Line 2247  is specified, returning t if it is speci
2247                  endpos                  endpos
2248                  (thisbuf (current-buffer)))                  (thisbuf (current-buffer)))
2249              (save-excursion              (save-excursion
2250                (if (not (re-search-forward                (unless (let ((case-fold-search t))
2251                          (concat prefix "[ \t]*End:[ \t]*" suffix)                          (re-search-forward
2252                          nil t))                           (concat prefix "[ \t]*End:[ \t]*" suffix)
2253                    (error "Local variables list is not properly terminated"))                           nil t))
2254                    (error "Local variables list is not properly terminated"))
2255                (beginning-of-line)                (beginning-of-line)
2256                (setq endpos (point)))                (setq endpos (point)))
2257    

Legend:
Removed from v.1.745  
changed lines
  Added in v.1.746

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