[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: href "title" attribute



Hideyuki SHIRAI (°×¾®ÐãÐÐ) <shirai@xxxxxxxxxxx> writes:
>
> I've just commited the patch with little modification.

Looks good.  The `=' page info screen too?  Perhaps per below.

Some of the OEIS titles can be long, I was thinking of a paragraph fill
for this "Anchor Title:" line, but maybe showing it unmodified would be
better in general.

2011-01-11  Kevin Ryde  <user42@xxxxxxxxxx>

	* w3m.el (w3m-about-header): Show anchor-title of link at point.

--- w3m.el.~1.1512.~	2011-01-11 09:34:15.000000000 +1100
(B+++ w3m.el	2011-01-11 09:35:12.000000000 +1100
(B@@ -9927,12 +9927,18 @@
(B 	    "\nDocument Type:  " (or (w3m-content-type url) "")
(B 	    "\nLast Modified:  "
(B 	    (let ((time (w3m-last-modified url)))
(B-	      (if time (current-time-string time) ""))
(B-	    (let ((anchor (with-current-buffer w3m-current-buffer
(B-			    (and (equal url w3m-current-url) (w3m-anchor)))))
(B-	      (if anchor
(B-		  (concat "\nCurrent Anchor: " anchor)
(B-		"")))
(B+	      (if time (current-time-string time) "")))
(B+
(B+    (let (anchor anchor-title)
(B+      (with-current-buffer w3m-current-buffer
(B+        (when (equal url w3m-current-url)
(B+          (setq anchor (w3m-anchor))
(B+          (setq anchor-title (w3m-anchor-title))))
(B+      (if anchor
(B+          (insert "\nCurrent Anchor: " anchor))
(B+      (if anchor-title
(B+          (insert "\nAnchor Title:   " anchor-title)))
(B+
(B     (let ((ct (w3m-arrived-content-type url))
(B 	  (charset (w3m-arrived-content-charset url))
(B 	  (separator (w3m-make-separator))