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

Preserve current column, going up/down in thumbnail view.

Browse Source
This commit is contained in:
Mathias Dahl 2016-02-27 14:11:02 +01:00
parent 71dc8213b1
commit b08b2e9e12
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/image-dired.el
View File

@ -1143,7 +1143,8 @@ image."
(defun image-dired-next-line ()
"Move to next line and display properties."
(interactive)
(forward-line 1)
(let ((goal-column (current-column)))
(next-line))
;; If we end up in an empty spot, back up to the next thumbnail.
(if (not (image-dired-image-at-point-p))
(image-dired-backward-image))
@ -1155,7 +1156,8 @@ image."
(defun image-dired-previous-line ()
"Move to previous line and display properties."
(interactive)
(forward-line -1)
(let ((goal-column (current-column)))
(previous-line))
;; If we end up in an empty spot, back up to the next
;; thumbnail. This should only happen if the user deleted a
;; thumbnail and did not refresh, so it is not very common. But we