Commit c4cb00d0 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(hack-local-variables): If there is no PREFIX, set it to "^".

Redundant variable PREFIXLEN removed.
parent de653a63
2004-12-29 Milan Zamazal <pdm@zamazal.org>
* files.el (hack-local-variables): If no PREFIX, set it to "^".
Redundant variable PREFIXLEN removed.
2004-12-28 Matt Hodges <MPHodges@member.fsf.org>
* eshell/em-hist.el (eshell-previous-matching-input):
Start the deletion from the end of the output.
2004-12-29 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> 2004-12-29 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
   
* term/mac-win.el: Require x-dnd. * term/mac-win.el: Require x-dnd.
......
...@@ -2183,7 +2183,7 @@ is specified, returning t if it is specified." ...@@ -2183,7 +2183,7 @@ is specified, returning t if it is specified."
buffer-file-name) buffer-file-name)
(concat "buffer " (concat "buffer "
(buffer-name)))))))))) (buffer-name))))))))))
(let (prefix prefixlen suffix beg (let (prefix suffix beg
(enable-local-eval enable-local-eval)) (enable-local-eval enable-local-eval))
;; The prefix is what comes before "local variables:" in its line. ;; The prefix is what comes before "local variables:" in its line.
;; The suffix is what comes after "local variables:" in its line. ;; The suffix is what comes after "local variables:" in its line.
...@@ -2197,8 +2197,7 @@ is specified, returning t if it is specified." ...@@ -2197,8 +2197,7 @@ is specified, returning t if it is specified."
(buffer-substring (point) (buffer-substring (point)
(progn (beginning-of-line) (point))))) (progn (beginning-of-line) (point)))))
(if prefix (setq prefixlen (length prefix) (setq prefix (if prefix (regexp-quote prefix) "^"))
prefix (regexp-quote prefix)))
(if suffix (setq suffix (concat (regexp-quote suffix) "$"))) (if suffix (setq suffix (concat (regexp-quote suffix) "$")))
(forward-line 1) (forward-line 1)
(let ((startpos (point)) (let ((startpos (point))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment