1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index 7ca7ad94423..0a1d22b9224 100644
--- a/lisp/xwidget.el
+++ b/lisp/xwidget.el
@@ -101,6 +101,13 @@ defaults to the string looking like a url around the cursor position."
    ;;TODO theres something wrong with the macro
    (define-key map (kbd "SPC")       (xwidget-image-mode-navigation-adaptor   'image-scroll-up))
    (define-key map (kbd "DEL")       (xwidget-image-mode-navigation-adaptor   'image-scroll-down))
+    (define-key map [remap scroll-up]          (xwidget-image-mode-navigation-adaptor 'image-scroll-up))
+    (define-key map [remap scroll-up-command]  (xwidget-image-mode-navigation-adaptor 'image-scroll-up))
+    
+    (define-key map [remap scroll-down]       (xwidget-image-mode-navigation-adaptor  'image-scroll-down))
+    (define-key map [remap scroll-down-command]       (xwidget-image-mode-navigation-adaptor  'image-scroll-down))
    
    (define-key map [remap forward-char]       (xwidget-image-mode-navigation-adaptor  'image-forward-hscroll))
    (define-key map [remap backward-char]       (xwidget-image-mode-navigation-adaptor  'image-backward-hscroll))
@@ -108,12 +115,8 @@ defaults to the string looking like a url around the cursor position."
    (define-key map [remap left-char]       (xwidget-image-mode-navigation-adaptor  'image-backward-hscroll))
    (define-key map [remap previous-line]       (xwidget-image-mode-navigation-adaptor  'image-previous-line))
    (define-key map [remap next-line]       (xwidget-image-mode-navigation-adaptor  'image-next-line))
-    (define-key map [remap scroll-up]          (xwidget-image-mode-navigation-adaptor 'image-scroll-up))
-    (define-key map [remap scroll-up-command]  (xwidget-image-mode-navigation-adaptor 'image-scroll-up))
-    
-    (define-key map [remap scroll-down]       (xwidget-image-mode-navigation-adaptor  'image-scroll-down))
-    (define-key map [remap scroll-down-command]       (xwidget-image-mode-navigation-adaptor  'image-scroll-down))
    (define-key map [remap move-beginning-of-line]       (xwidget-image-mode-navigation-adaptor  'image-bol))
    (define-key map [remap move-end-of-line]       (xwidget-image-mode-navigation-adaptor  'image-eol))
    (define-key map [remap beginning-of-buffer]       (xwidget-image-mode-navigation-adaptor  'image-bob))

diff --git a/lisp/xwidget.el b/lisp/xwidget.el index 7ca7ad94423..0a1d22b9224 100644 --- a/lisp/xwidget.el +++ b/lisp/xwidget.el
@@ -101,6 +101,13 @@ defaults to the string looking like a url around the cursor position."
101	;;TODO theres something wrong with the macro	101	;;TODO theres something wrong with the macro
102	(define-key map (kbd "SPC") (xwidget-image-mode-navigation-adaptor 'image-scroll-up))	102	(define-key map (kbd "SPC") (xwidget-image-mode-navigation-adaptor 'image-scroll-up))
103	(define-key map (kbd "DEL") (xwidget-image-mode-navigation-adaptor 'image-scroll-down))	103	(define-key map (kbd "DEL") (xwidget-image-mode-navigation-adaptor 'image-scroll-down))
		104
		105	(define-key map [remap scroll-up] (xwidget-image-mode-navigation-adaptor 'image-scroll-up))
		106	(define-key map [remap scroll-up-command] (xwidget-image-mode-navigation-adaptor 'image-scroll-up))
		107
		108	(define-key map [remap scroll-down] (xwidget-image-mode-navigation-adaptor 'image-scroll-down))
		109	(define-key map [remap scroll-down-command] (xwidget-image-mode-navigation-adaptor 'image-scroll-down))
		110
104		111
105	(define-key map [remap forward-char] (xwidget-image-mode-navigation-adaptor 'image-forward-hscroll))	112	(define-key map [remap forward-char] (xwidget-image-mode-navigation-adaptor 'image-forward-hscroll))
106	(define-key map [remap backward-char] (xwidget-image-mode-navigation-adaptor 'image-backward-hscroll))	113	(define-key map [remap backward-char] (xwidget-image-mode-navigation-adaptor 'image-backward-hscroll))
@@ -108,12 +115,8 @@ defaults to the string looking like a url around the cursor position."
108	(define-key map [remap left-char] (xwidget-image-mode-navigation-adaptor 'image-backward-hscroll))	115	(define-key map [remap left-char] (xwidget-image-mode-navigation-adaptor 'image-backward-hscroll))
109	(define-key map [remap previous-line] (xwidget-image-mode-navigation-adaptor 'image-previous-line))	116	(define-key map [remap previous-line] (xwidget-image-mode-navigation-adaptor 'image-previous-line))
110	(define-key map [remap next-line] (xwidget-image-mode-navigation-adaptor 'image-next-line))	117	(define-key map [remap next-line] (xwidget-image-mode-navigation-adaptor 'image-next-line))
111	(define-key map [remap scroll-up] (xwidget-image-mode-navigation-adaptor 'image-scroll-up))
112	(define-key map [remap scroll-up-command] (xwidget-image-mode-navigation-adaptor 'image-scroll-up))
113
114	(define-key map [remap scroll-down] (xwidget-image-mode-navigation-adaptor 'image-scroll-down))
115		118
116	(define-key map [remap scroll-down-command] (xwidget-image-mode-navigation-adaptor 'image-scroll-down))	119
117	(define-key map [remap move-beginning-of-line] (xwidget-image-mode-navigation-adaptor 'image-bol))	120	(define-key map [remap move-beginning-of-line] (xwidget-image-mode-navigation-adaptor 'image-bol))
118	(define-key map [remap move-end-of-line] (xwidget-image-mode-navigation-adaptor 'image-eol))	121	(define-key map [remap move-end-of-line] (xwidget-image-mode-navigation-adaptor 'image-eol))
119	(define-key map [remap beginning-of-buffer] (xwidget-image-mode-navigation-adaptor 'image-bob))	122	(define-key map [remap beginning-of-buffer] (xwidget-image-mode-navigation-adaptor 'image-bob))