[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: patch for sb-ibm-dev.el
- From: YAMASHITA Junji (
山下 純司
) <ysjj@xxxxxxxxxxxx>
- Date: Thu, 13 Dec 2001 20:56:41 +0900
- X-ml-name: emacs-w3m
- X-mail-count: 02425
- References: <87heqwegi6.wl@do-johodai.ac.jp>
山下 純司です。
目次サイドバーを含まないページを正しく扱えないようです。
このパッチで期待通りの表示が得られましたが、
これで正しくない HTML を作り出している可能性があります。
また内容の終了目印が想定しているものと違うページがありました。
イレギュラーなページである可能性もありますが
とりあえず終了目印に含めてみました。
--- sb-ibm-dev.el.orig Thu Dec 13 20:46:55 2001
+++ sb-ibm-dev.el Thu Dec 13 20:22:11 2001
@@ -143,10 +143,12 @@
(match-string 1) (match-string 2))))))
(delete-region beg end))
(goto-char (point-min))
+ ;; Remove sidebar if exist
(if (re-search-forward "<!--[ ]*Contents[ ]*-->" nil t nil)
(delete-region (progn (beginning-of-line) (point))
- (progn (re-search-forward "</table>" nil t nil))))
- (if (re-search-forward "<!--[ ]*End of Contents[ ]*-->" nil t nil)
+ (progn (re-search-forward "<h2>" nil t nil)
+ (beginning-of-line) (1- (point)))))
+ (if (re-search-forward "<!--[ ]*\\(End of Contents\\|END PAPER BODY\\)[ ]*-->" nil t nil)
(progn
(beginning-of-line)
(delete-region (point) (point-max)))
--
山下 純司 mailto:ysjj@unixuser.org