From a55b3c599b9260b8496a902bba68940bd30f95fe Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 19 Apr 2016 22:08:59 -0400 Subject: [PATCH] Better string checks in associate! macro --- core/core-defuns.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/core-defuns.el b/core/core-defuns.el index 67a17afd6..327d20316 100644 --- a/core/core-defuns.el +++ b/core/core-defuns.el @@ -96,7 +96,7 @@ Examples: (let ((hook-name (intern (format "narf--init-mode-%s" mode)))) `(progn (defun ,hook-name () - (when (and ,(if match `(string-match-p ,match buffer-file-name) t) + (when (and ,(if match `(if buffer-file-name (string-match-p ,match buffer-file-name)) t) (or ,(not files) (and (boundp ',mode) (not ,mode)