mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

Fix gratuitous argument passing error in image-dired (Bug#7817).

Browse Source 
* lisp/image-dired.el (image-dired-mouse-display-image): No-op if
no file is found.
This commit is contained in:
Chong Yidong 2011-01-28 13:09:59 -05:00
parent 65401ee3fe
commit 6fc0aac363
2 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2011-01-28 Chong Yidong <cyd@stupidchicken.com>
* image-dired.el (image-dired-mouse-display-image): No-op if no
file is found (Bug#7817).
* mouse.el (mouse-menu-non-singleton): Doc fix (Bug#7801).
2011-01-28 Kenichi Handa <handa@m17n.org>

18
lisp/image-dired.el
View File

@ -2187,15 +2187,15 @@ matching tag will be marked in the dired buffer."
Track this in associated dired buffer if `image-dired-track-movement' is
non-nil."
(interactive "e")
(let (file)
(mouse-set-point event)
(goto-char (posn-point (event-end event)))
(setq file (image-dired-original-file-name))
(if image-dired-track-movement
(image-dired-track-original-file))
(image-dired-create-display-image-buffer)
(display-buffer image-dired-display-image-buffer)
(image-dired-display-image file)))
(mouse-set-point event)
(goto-char (posn-point (event-end event)))
(let ((file (image-dired-original-file-name)))
(when file
(if image-dired-track-movement
(image-dired-track-original-file))
(image-dired-create-display-image-buffer)
(display-buffer image-dired-display-image-buffer)
(image-dired-display-image file))))
(defun image-dired-mouse-select-thumbnail (event)
"Use mouse EVENT to select thumbnail image.