[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master edfdd0a: Make prettier unique file names in eww
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master edfdd0a: Make prettier unique file names in eww |
Date: |
Thu, 24 Dec 2015 21:48:05 +0000 |
branch: master
commit edfdd0a6cbdfa9e5e4bd0553e2b489401ca39266
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Make prettier unique file names in eww
(eww-make-unique-file-name): Make unique file names by making
files like foo(2).jpg instead of foo(1)(2).jpg.
---
lisp/net/eww.el | 13 +++++++------
1 files changed, 7 insertions(+), 6 deletions(-)
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index d560636..8ea17e0 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -1442,13 +1442,14 @@ Differences in #targets are ignored."
(setq file "!"))
((string-match "\\`[.]" file)
(setq file (concat "!" file))))
- (let ((count 1))
+ (let ((count 1)
+ (stem file)
+ (suffix ""))
+ (when (string-match "\\`\\(.*\\)\\([.][^.]+\\)" file)
+ (setq stem (match-string 1)
+ suffix (match-string 2)))
(while (file-exists-p (expand-file-name file directory))
- (setq file
- (if (string-match "\\`\\(.*\\)\\([.][^.]+\\)" file)
- (format "%s(%d)%s" (match-string 1 file)
- count (match-string 2 file))
- (format "%s(%d)" file count)))
+ (setq file (format "%s(%d)%s" stem count suffix))
(setq count (1+ count)))
(expand-file-name file directory)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master edfdd0a: Make prettier unique file names in eww,
Lars Ingebrigtsen <=