fix (void-function caddr)

diff --git a/ChangeLog b/ChangeLog
index f7df504..945e5ed 100644 (file)
--- 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 (file)
--- 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))