From: HIRAOKA Kazuyuki <khi@users.osdn.me>
Date: Tue, 13 Feb 2018 14:04:43 +0000 (+0900)
Subject: fix (void-function caddr)
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=b08d2cb8175686773b148149ac7f7707357e9f3a;p=howm%2Fhowm.git

fix (void-function caddr)
---

diff --git a/ChangeLog b/ChangeLog
index f7df504..945e5ed 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2018-02-13  HIRAOKA Kazuyuki  <khi@users.osdn.me>
+
+	* howm-vars.el (howm-menu-lang): fix "Lisp error: (void-function caddr)"
+	thx > dareka (2018-02-13 13:51:08)
+	http://howm.osdn.jp/cgi-bin/hiki/hiki.cgi?BugReportPaste
+
 2018-02-12  HIRAOKA Kazuyuki  <khi@users.osdn.me>
 
 	* howm-lang-fr.el: added for French menu
diff --git a/howm-vars.el b/howm-vars.el
index 991d453..f93e10b 100644
--- a/howm-vars.el
+++ b/howm-vars.el
@@ -248,7 +248,7 @@ A file is excluded iff this regexp matches with all the relative paths."
           (ret 'en))
       (mapc (lambda (rule)
               (if (or (string= lang (cadr rule))
-                      (string-match (caddr rule) locale))
+                      (string-match (cl-caddr rule) locale))
                   (setq ret (car rule))))
             lang-table)
       ret))