Takeshi UME Imai
takes****@tt*****
2005年 7月 21日 (木) 01:42:49 JST
今井です。 hiki-indexの件、修正ありがとうございました > 柳田さん In Subject:[[Hiki-dev:00960] Re: Hiki 0.8.1 リリース] "Kazuhiko" == <kazuh****@fdiar*****> sez: Kazuhiko> 私のほうでも試してみましたが、以下が変な気がします。 Kazuhiko> * キーワードが保存されない。 以下のpatchで保存されるようになりました。 --- hiki-mode.el.orig 2005-07-21 01:34:52.000000000 +0900 +++ hiki-mode.el 2005-07-21 01:35:57.000000000 +0900 @@ -794,11 +794,13 @@ (or hiki-pagetitle hiki-pagename) nil nil nil (or hiki-pagetitle hiki-pagename))) (goto-char (point-min)) (when (get-text-property (point) 'hiki-special) - (goto-char (next-single-property-change (point) 'hiki-keywords)) - (setq keywords - (buffer-substring-no-properties (point) (next-single-property-change (point) 'hiki-keywords))) + (re-search-forward "^Keywords:$" nil t nil) + (setq start (+ (match-end 0) 1)) + (re-search-forward "^----$" nil t nil) + (setq end (match-beginning 0)) + (setq keywords (buffer-substring-no-properties start end)) (goto-char (next-single-property-change (point) 'hiki-special))) - (setq contents (buffer-substring (point) (point-max))) + (setq contents (buffer-substring-no-properties (point) (point-max))) (add-to-list 'post-data (cons "c" "save")) (add-to-list 'post-data (cons "p" hiki-pagename)) (add-to-list 'post-data (cons "page_title" pagetitle))
