defmacroの「`」の使い方がずいぶん前に変わってるとして少しの修正を試みたが、ちゃんとエラーになる。
===================================================================
RCS file: RCS/hnf-mode.el,v
retrieving revision 1.1
diff -u -r1.1 hnf-mode.el
--- hnf-mode.el 2023/10/23 09:26:09 1.1
+++ hnf-mode.el 2023/10/26 02:54:59
@@ -3,7 +3,7 @@
;; Copyright (C) 1998-2001 by Akihiro Arisawa
;; Author: Akihiro Arisawa <ari@nijino.com>
-;; Version: $Id: hnf-mode.el,v 1.1 2023/10/23 09:26:09 nakaji Exp $
+;; Version: $Id: hnf-mode.el,v 1.2 2023/10/24 05:49:29 nakaji Exp nakaji $
;; Keywords: hnf nikki hns
;; This file is free software; you can redistribute it and/or modify
@@ -23,9 +23,8 @@
;;; Code:
-(defconst hnf-mode-version "2.5")
+(defconst hnf-mode-version "2.5p1")
-(eval-when-compile (require 'cl))
(require 'poe)
(require 'pcustom)
@@ -68,7 +67,7 @@
(defcustom hnf-index-name-list '("index.html" "index.shtml" "index.phtml")
"File name as index."
:group 'hnf
- :type 'list)
+ :type '(list string))
(defcustom hnf-mode-hook nil
"Hook colled by `hnf-mode'."
@@ -88,37 +87,37 @@
(defcustom hnf-variable nil
"Variable name used in hnf."
:group 'hnf
- :type 'list)
+ :type '(list string))
(defcustom hnf-rlink nil
"RLINK name used in hnf."
:group 'hnf
- :type 'list)
+ :type '(list string))
(defcustom hnf-cat nil
"Category name used in hnf."
:group 'hnf
- :type 'list)
+ :type '(list string))
(defcustom hnf-group nil
"Group name used in hnf."
:group 'hnf
- :type 'list)
+ :type '(list string))
(defcustom hnf-class nil
"Class name used in hnf."
:group 'hnf
- :type 'list)
+ :type '(list string))
(defcustom hnf-mark nil
"MARK name used in hnf."
:group 'hnf
- :type 'list)
+ :type '(list string))
(defcustom hnf-alias nil
"ALIAS name used in hnf."
:group 'hnf
- :type 'list)
+ :type '(list string))
(defcustom hnf-font-lock-flag t
"Non-nil means font-lock is used."
@@ -174,7 +173,9 @@
For example, hns-1.03pl0 or earlyer format is \"?%Y%m%h#%Y%m%d%N\",
hns-2.10 or later format is \"?%Y%m%a&to=%Y%m%d%N#%Y%m%d%N\",
-static format is \"%Y%m.html#%Y%m%d%N\".")
+static format is \"%Y%m.html#%Y%m%d%N\"."
+ :group 'hnf
+ :type 'string)
(defcustom hnf-sub-link-name-format "?%Y%m%d%N&to=%Y%m%d%NS%S#%Y%m%d%NS%S"
"The format specification of SUB line link name in `hnf-get-link'.
@@ -182,7 +183,9 @@
For example, hns-1.03pl0 or earlyer format is \"?%Y%m%h#%Y%m%d%NS%S\",
hns-2.10 or later format is \"?%Y%m%a&to=%Y%m%d%NS%S#%Y%m%d%NS%S\",
-static format is \"%Y%m.html#%Y%m%d%NS%S\".")
+static format is \"%Y%m.html#%Y%m%d%NS%S\"."
+ :group 'hnf
+ :type 'string)
(defcustom hnf-hour-not-today 0
"Till the specified hour, considered as the day before.
@@ -279,7 +282,7 @@
(sub . ((outline-level . 2)
(face . hnf-sub-face)))))
(defmacro hnf-command-type-get-variable (type key)
- (` (cdr (assq (, key) (cdr (assq (, type) hnf-command-type-alist))))))
+ `(cdr (assq (, key) (cdr (assq (, type) hnf-command-type-alist)))))
(defvar hnf-commands-table
'(("NEW" . ((type . new)
@@ -373,25 +376,25 @@
"Table of hnf commands.")
(defmacro hnf-command-get-command (command-name)
- (` (assoc (, command-name) hnf-commands-table)))
+ `(assoc (, command-name) hnf-commands-table))
(defmacro hnf-command-get-type (command)
- (` (cdr (assq 'type (cdr (, command))))))
+ `(cdr (assq 'type (cdr (, command)))))
(defmacro hnf-command-get-variable (command key)
- (` (cond ((cdr (assq (, key) (cdr (, command)))))
- ((hnf-command-type-get-variable (hnf-command-get-type (, command))
- (, key))))))
-
+ `(cond ((cdr (assq (, key) (cdr (, command)))))
+ ((hnf-command-type-get-variable (hnf-command-get-type (, command))
+ (, key)))))
+
(defmacro hnf-command-get-arg-detail (command count)
- (` (let ((args (hnf-command-get-variable (, command) 'args)))
- (if (or (eq (nth (, count) args) 'any)
- (eq (nth 1 args) 'any))
- (nth 0 args)
- (nth (, count) args)))))
+ `(let ((args (hnf-command-get-variable (, command) 'args)))
+ (if (or (eq (nth (, count) args) 'any)
+ (eq (nth 1 args) 'any))
+ (nth 0 args)
+ (nth (, count) args))))
(defmacro hnf-command-need-close-p (command)
- (` (assq 'need-close (cdr (, command)))))
+ `(assq 'need-close (cdr (, command))))
(defvar hnf-font-lock-keywords nil
"Expressions to highlight in hnf mode.")
Debugger entered--Lisp error: (invalid-function 'outline-level)
('outline-level)
(assq ('outline-level) (cdr (command)))
(cdr (assq ('outline-level) (cdr (command))))
(cond ((cdr (assq ('outline-level) (cdr (command))))) ((cdr (assq (('outline-level)) (cdr (assq ((hnf-command-get-type ...)) hnf-command-type-alist))))))
(if (cond ((cdr (assq ('outline-level) (cdr (command))))) ((cdr (assq (('outline-level)) (cdr (assq (...) hnf-command-type-alist)))))) (let* ((x (car command))) (if (member x outline-commands) outline-commands (setq outline-commands (cons x outline-commands)))))
(while (setq command (car commands)) (if (cond ((cdr (assq ('outline-level) (cdr (command))))) ((cdr (assq ((...)) (cdr (assq ... hnf-command-type-alist)))))) (let* ((x (car command))) (if (member x outline-commands) outline-commands (setq outline-commands (cons x outline-commands))))) (setq commands (cdr commands)))
(let ((commands hnf-commands-table) command outline-commands) (while (setq command (car commands)) (if (cond ((cdr (assq (...) (cdr ...)))) ((cdr (assq (...) (cdr ...))))) (let* ((x (car command))) (if (member x outline-commands) outline-commands (setq outline-commands (cons x outline-commands))))) (setq commands (cdr commands))) (mapconcat #'identity outline-commands "\\|"))
(defvar hnf-outline-regexp (let ((commands hnf-commands-table) command outline-commands) (while (setq command (car commands)) (if (cond ((cdr (assq ... ...))) ((cdr (assq ... ...)))) (let* ((x (car command))) (if (member x outline-commands) outline-commands (setq outline-commands (cons x outline-commands))))) (setq commands (cdr commands))) (mapconcat #'identity outline-commands "\\|")) "Regular expression to match the beginning of heading.")
eval-buffer(#<buffer *load*> nil "/home/nakaji/elisp/hnf-mode.el" nil t) ; Reading at buffer position 13597
load-with-code-conversion("/home/nakaji/elisp/hnf-mode.el" "/home/nakaji/elisp/hnf-mode.el" nil t)
autoload-do-load((autoload "hnf-mode" "Hyper Nikki File mode" t nil) hnf-mode)
command-execute(hnf-mode record)
execute-extended-command(nil "hnf-mode" "hnf-mo")
funcall-interactively(execute-extended-command nil "hnf-mode" "hnf-mo")
call-interactively(execute-extended-command nil nil)
command-execute(execute-extended-command)