bug#35373: [PATCH] (info "(emacs) Safe File Variables")

[積丹尼 Dan Jacobson]

(Alas my personal implementation sometimes runs into problems...)

Debugger entered--Lisp error: (wrong-type-argument stringp (save-excursion 
(beginning-of-line) (if (or (looking-at makefile-macroassign-regex) (looking-at 
makefile-dependency-regex) (makefile-previous-dependency)) (concat "make " 
(match-string-no-properties 1)) (or (car compile-history) "make "))))
  string-match("@FILE@" (save-excursion (beginning-of-line) (if (or (looking-at 
makefile-macroassign-regex) (looking-at makefile-dependency-regex) 
(makefile-previous-dependency)) (concat "make " (match-string-no-properties 1)) 
(or (car compile-history) "make "))) 0)
  replace-regexp-in-string("@FILE@" "Makefile" (save-excursion 
(beginning-of-line) (if (or (looking-at makefile-macroassign-regex) (looking-at 
makefile-dependency-regex) (makefile-previous-dependency)) (concat "make " 
(match-string-no-properties 1)) (or (car compile-history) "make "))) t)
  (setq compile-command (replace-regexp-in-string "@FILE@" 
(file-name-nondirectory buffer-file-name) compile-command t))
  (if (and compile-command (local-variable-if-set-p 'compile-command)) (setq 
compile-command (replace-regexp-in-string "@FILE@" (file-name-nondirectory 
buffer-file-name) compile-command t)))
  (lambda nil (if (and compile-command (local-variable-if-set-p 
'compile-command)) (setq compile-command (replace-regexp-in-string "@FILE@" 
(file-name-nondirectory buffer-file-name) compile-command t))))()
  run-hooks(hack-local-variables-hook)
  hack-local-variables-apply()
  hack-local-variables(no-mode)
  run-mode-hooks(makefile-gmake-mode-hook)
  makefile-gmake-mode()
  set-auto-mode-0(makefile-gmake-mode nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(t t)
  find-file-noselect-1(#<buffer Makefile> "/tmp/Makefile" nil nil 
"/tmp/Makefile" nil)
  find-file-noselect("/tmp/Makefile" nil nil nil)
  find-file("/tmp/Makefile")
  find-file-at-point(nil)
  (let ((ffap-url-fetcher (if current-prefix-arg (function 
my-browse-url-default-browser) (function w3m-browse-url))) (current-prefix-arg 
nil)) (find-file-at-point filename))
  my-ffap()
  funcall-interactively(my-ffap)
  call-interactively(my-ffap nil nil)
  command-execute(my-ffap)