diff options
| author | Mark Oteiza | 2014-11-23 16:40:45 +0100 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 2014-11-23 16:40:45 +0100 |
| commit | 0445aff69108da12e5e445cb2bd11fac16d84945 (patch) | |
| tree | 207a08b0259daf67d9fe16ca62d47637a92b712a | |
| parent | dd01e20628a846a9a75fcd0d6e38ac1c3e9687db (diff) | |
| download | emacs-0445aff69108da12e5e445cb2bd11fac16d84945.tar.gz emacs-0445aff69108da12e5e445cb2bd11fac16d84945.zip | |
* net/eww.el (eww-add-bookmark): Fix bookmark titles.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/net/eww.el | 2 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4b72eb80561..8cabef92ad0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,6 +1,10 @@ | |||
| 1 | 2014-11-20 Mark Oteiza <mvoteiza@udel.edu> (tiny change) | ||
| 2 | |||
| 3 | * net/eww.el (eww-add-bookmark): Fix bookmark titles. | ||
| 4 | |||
| 1 | 2014-11-17 Mark Oteiza <mvoteiza@udel.edu> (tiny change) | 5 | 2014-11-17 Mark Oteiza <mvoteiza@udel.edu> (tiny change) |
| 2 | 6 | ||
| 3 | * net/eww.el (eww-mode-map): Bind backtab to shr-previous-link | 7 | * net/eww.el (eww-mode-map): Bind backtab to shr-previous-link. |
| 4 | 8 | ||
| 5 | 2014-11-23 Kenjiro Nakayama <nakayamakenjiro@gmail.com> | 9 | 2014-11-23 Kenjiro Nakayama <nakayamakenjiro@gmail.com> |
| 6 | 10 | ||
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index f2a1631a5ba..12b27bcd075 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el | |||
| @@ -1339,7 +1339,7 @@ Differences in #targets are ignored." | |||
| 1339 | (if (y-or-n-p "bookmark this page? ") | 1339 | (if (y-or-n-p "bookmark this page? ") |
| 1340 | (progn | 1340 | (progn |
| 1341 | (let ((title (replace-regexp-in-string "[\n\t\r]" " " | 1341 | (let ((title (replace-regexp-in-string "[\n\t\r]" " " |
| 1342 | (plist-get eww-data :url)))) | 1342 | (plist-get eww-data :title)))) |
| 1343 | (setq title (replace-regexp-in-string "\\` +\\| +\\'" "" title)) | 1343 | (setq title (replace-regexp-in-string "\\` +\\| +\\'" "" title)) |
| 1344 | (push (list :url (plist-get eww-data :url) | 1344 | (push (list :url (plist-get eww-data :url) |
| 1345 | :title title | 1345 | :title title |