diff options
| author | Akira Kyle | 2020-11-29 11:40:47 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2020-11-29 11:40:59 +0100 |
| commit | 9939c435c108b099d3362ecbfa1cba6cc0bbd8f9 (patch) | |
| tree | d2e5a52f86244976769d6d0900ee0afa24c5fa71 | |
| parent | 17fa17be3d93fc10f6ca91d738d5056b1b9f1f1e (diff) | |
| download | emacs-9939c435c108b099d3362ecbfa1cba6cc0bbd8f9.tar.gz emacs-9939c435c108b099d3362ecbfa1cba6cc0bbd8f9.zip | |
Return the correct suffix in eww-make-unique-file-name
* lisp/net/eww.el (eww-make-unique-file-name): Return the correct
suffix (bug#44936).
| -rw-r--r-- | lisp/net/eww.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index d6f850ca3ba..13b90588651 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el | |||
| @@ -1661,7 +1661,7 @@ Use link at point if there is one, else the current page's URL." | |||
| 1661 | (suffix "")) | 1661 | (suffix "")) |
| 1662 | (when (string-match "\\`\\(.*\\)\\([.][^.]+\\)" file) | 1662 | (when (string-match "\\`\\(.*\\)\\([.][^.]+\\)" file) |
| 1663 | (setq stem (match-string 1 file) | 1663 | (setq stem (match-string 1 file) |
| 1664 | suffix (match-string 2))) | 1664 | suffix (match-string 2 file))) |
| 1665 | (while (file-exists-p (expand-file-name file directory)) | 1665 | (while (file-exists-p (expand-file-name file directory)) |
| 1666 | (setq file (format "%s(%d)%s" stem count suffix)) | 1666 | (setq file (format "%s(%d)%s" stem count suffix)) |
| 1667 | (setq count (1+ count))) | 1667 | (setq count (1+ count))) |