projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Support #anchors
[gnus]
/
lisp
/
eww.el
diff --git
a/lisp/eww.el
b/lisp/eww.el
index
cca59f9
..
aa23e97
100644
(file)
--- a/
lisp/eww.el
+++ b/
lisp/eww.el
@@
-72,6
+72,9
@@
(when redirect
(setq url redirect)))
(let* ((headers (eww-parse-headers))
(when redirect
(setq url redirect)))
(let* ((headers (eww-parse-headers))
+ (shr-target-id
+ (and (string-match "#\\(.*\\)" url)
+ (match-string 1 url)))
(content-type
(mail-header-parse-content-type
(or (cdr (assoc "content-type" headers))
(content-type
(mail-header-parse-content-type
(or (cdr (assoc "content-type" headers))
@@
-92,8
+95,14
@@
(eww-display-image))
(t
(eww-display-raw charset)))
(eww-display-image))
(t
(eww-display-raw charset)))
- (when point
- (goto-char point)))
+ (cond
+ (point
+ (goto-char point))
+ (shr-target-id
+ (let ((point (next-single-property-change
+ (point-min) 'shr-target-id)))
+ (when point
+ (goto-char (1+ point)))))))
(kill-buffer data-buffer))))
(defun eww-parse-headers ()
(kill-buffer data-buffer))))
(defun eww-parse-headers ()