+2005-05-30 Juanma Barranquero <lekktu@gmail.com>
+
+ * thumbs.el (thumbs-thumbname): The resulting thubname now
+ includes a hash value to improve its uniqueness, and has a ".jpg"
+ extension. Also, it is now a valid filename on all systems.
+ (thumbs-make-thumb): Use `let', not `let*'.
+ (thumbs-show-thumbs-list): Check for JPEG availability.
+
2005-05-30 Richard M. Stallman <rms@gnu.org>
* filesets.el (filesets-menu-ensure-use-cached):
* progmodes/gdb-ui.el (gdb-toggle-breakpoint):
Make regexp more robust.
- (gdb-display-assembler-buffer, gdb-frame-assembler-buffer):
+ (gdb-display-assembler-buffer, gdb-frame-assembler-buffer):
Force regeneration of disassembly.
2005-05-29 Jay Belanger <belanger@truman.edu>
2005-05-29 Manuel Serrano <Manuel.Serrano@sophia.inria.fr>
* flyspell.el (flyspell-emacs, flyspell-use-local-map): Vars moved up.
- (flyspell-default-delayed-commands): add backward-delete-char-untabify.
+ (flyspell-default-delayed-commands): Add backward-delete-char-untabify.
(flyspell-abbrev-p): Default to nil.
(flyspell-use-global-abbrev-table-p): Doc fix.
(flyspell-large-region): Allow nil as value.
2005-05-28 Karl Berry <karl@gnu.org>
- * textmodes/tex-mode.el: now that tex-send-command calls
+ * textmodes/tex-mode.el: Now that tex-send-command calls
shell-quote-argument (2005-03-31 change), remove all calls to
shell-quote-argument; they all end up invoking tex-send-command.
The double quoting loses on filenames with non-safe characters,
Toggle display of floating point registers.
(gdb-registers-mode-map): Bind SPC to toggle-gdb-all-registers.
- * progmodes/gud.el (gud-goto-info): Use info. Don't use require.
+ * progmodes/gud.el (gud-goto-info): Use info. Don't use require.
(toggle-gud-tooltip-dereference):
Rename from gud-toggle-tooltip-dereference.
(defun thumbs-thumbname (img)
"Return a thumbnail name for the image IMG."
- (concat thumbs-thumbsdir "/"
- (subst-char-in-string
- ?\ ?\_
- (apply
- 'concat
- (split-string
- (expand-file-name img) "/")))))
+ (convert-standard-filename
+ (let ((filename (expand-file-name img)))
+ (format "%s/%08x-%s.jpg"
+ thumbs-thumbsdir
+ (sxhash filename)
+ (subst-char-in-string
+ ?\s ?\_
+ (apply
+ 'concat
+ (split-string filename "/")))))))
(defun thumbs-make-thumb (img)
"Create the thumbnail for IMG."
- (let* ((fn (expand-file-name img))
- (tn (thumbs-thumbname img)))
+ (let ((fn (expand-file-name img))
+ (tn (thumbs-thumbname img)))
(if (or (not (file-exists-p tn))
;; This is not the right fix, but I don't understand
;; the external program or why it produces a geometry
(unless (bobp) (newline))))
(defun thumbs-show-thumbs-list (L &optional buffer-name same-window)
- (when (not (display-images-p))
- (error "Images are not supported in this Emacs session"))
+ (unless (and (display-images-p)
+ (image-type-available-p 'jpeg))
+ (error "Required image type is not supported in this Emacs session"))
(funcall (if same-window 'switch-to-buffer 'pop-to-buffer)
(or buffer-name "*THUMB-View*"))
(let ((inhibit-read-only t))