From: "積丹尼 Dan Jacobson" <jidanni@jidanni.org>
To: Richard Stallman <rms@gnu.org>
Cc: 35373@debbugs.gnu.org
Subject: bug#35373: [PATCH] (info "(emacs) Safe File Variables")
Date: Wed, 24 Apr 2019 06:05:25 +0800 [thread overview]
Message-ID: <87h8aofkd6.5.fsf@jidanni.org> (raw)
In-Reply-To: <87v9z67slb.2.fsf@jidanni.org>
(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)
next prev parent reply other threads:[~2019-04-23 22:05 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2019-04-22 1:10 bug#35373: [PATCH] (info "(emacs) Safe File Variables") 積丹尼 Dan Jacobson
2019-04-23 1:34 ` Richard Stallman
2019-04-23 19:29 ` 積丹尼 Dan Jacobson
2019-04-23 22:05 ` 積丹尼 Dan Jacobson [this message]
2019-04-24 22:26 ` 積丹尼 Dan Jacobson
2019-04-25 2:11 ` 積丹尼 Dan Jacobson
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87h8aofkd6.5.fsf@jidanni.org \
--to=jidanni@jidanni.org \
--cc=35373@debbugs.gnu.org \
--cc=rms@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).