truncate-lines

[Naohiro Aota <nao.aota@xxxxxxxxx>]

青田です。

ささいな問題なのですが、ソースを表示して履歴を戻り履歴を進む(\BN)と
初めのソース表示では、truncate-linesがnilなのが
履歴から表示するとtruncate-linesがtになっています。

今のソースでは、w3m-view-source・w3m-view-headerの中で
(setq truncate-lines nil)していますが
履歴を辿った時、w3m-goto-urlを直接呼び出す時に対応できてないので
w3m-goto-urlの中で(setq truncate-lines nil)したほうがよいのではないでしょうか。

w3m-view-source・w3m-view-headerから(setq truncate-lines nil)を削除、
w3m-goto-urlに(setq truncate-lines nil)を追加するパッチを添付します。
w3m-goto-urlはちゃんと読めてないかもしれないので、変なところがありましたら
修正お願いします。

Index: w3m.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m.el,v
retrieving revision 1.1266
diff -u -r1.1266 w3m.el
--- w3m.el	6 Apr 2007 01:01:41 -0000	1.1266
+++ w3m.el	24 Apr 2007 01:52:25 -0000
@@ -8131,7 +8131,9 @@
 	      ;; restore position must call after hooks for localcgi.
 	      (when (or reload redisplay)
 		(w3m-history-restore-position))
-	      (w3m-refresh-at-time)))))))
+	      (w3m-refresh-at-time)
+	      (if (string-match "\\`about://\\(?:header\\|source\\)/" url)
+		  (setq truncate-lines nil))))))))
    (t (w3m-message "Invalid URL: %s" url))))
 
 (defun w3m-current-directory (url)
@@ -8597,11 +8599,9 @@
 	  (w3m-goto-url (substring w3m-current-url (match-end 0))))
 	 ((string-match "\\`about://header/" w3m-current-url)
 	  (w3m-goto-url (concat "about://source/"
-				(substring w3m-current-url (match-end 0))))
-	  (setq truncate-lines nil))
+				(substring w3m-current-url (match-end 0)))))
 	 (t
-	  (w3m-goto-url  (concat "about://source/" w3m-current-url))
-	  (setq truncate-lines nil))))
+	  (w3m-goto-url  (concat "about://source/" w3m-current-url)))))
     (w3m-message "Can't view page source")))
 
 (defun w3m-make-separator ()
@@ -8675,13 +8675,11 @@
 	  (w3m-goto-url (substring w3m-current-url (match-end 0))))
 	 ((string-match "\\`about://source/" w3m-current-url)
 	  (w3m-goto-url (concat "about://header/"
-				(substring w3m-current-url (match-end 0))))
-	  (setq truncate-lines nil))
+				(substring w3m-current-url (match-end 0)))))
 	 ((string-match "\\`about:" w3m-current-url)
 	  (error "Can't load a header for %s" w3m-current-url))
 	 (t
-	  (w3m-goto-url (concat "about://header/" w3m-current-url))
-	  (setq truncate-lines nil))))
+	  (w3m-goto-url (concat "about://header/" w3m-current-url)))))
     (w3m-message "Can't view page header")))
 
 (defvar w3m-about-history-max-indentation '(/ (* (window-width) 2) 3)