aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/xwidget.el16
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index 5fdb7405270..a407a2f61bb 100644
--- a/lisp/xwidget.el
+++ b/lisp/xwidget.el
@@ -153,27 +153,27 @@ defaults to the string looking like a url around the cursor position."
153 "Scroll webkit up,either native or like image mode." 153 "Scroll webkit up,either native or like image mode."
154 (interactive) 154 (interactive)
155 (if (eq xwidget-webkit-scroll-behaviour 'native) 155 (if (eq xwidget-webkit-scroll-behaviour 'native)
156 (xwidget-set-adjustment (xwidget-webkit-last-session) 'vertical t 50) ) 156 (xwidget-set-adjustment (xwidget-webkit-last-session) 'vertical t 50)
157 (image-scroll-up)) 157 (image-scroll-up)))
158 158
159(defun xwidget-webkit-scroll-down () 159(defun xwidget-webkit-scroll-down ()
160 "Scroll webkit down,either native or like image mode." 160 "Scroll webkit down,either native or like image mode."
161 (interactive) 161 (interactive)
162 (if (eq xwidget-webkit-scroll-behaviour 'native) 162 (if (eq xwidget-webkit-scroll-behaviour 'native)
163 (xwidget-set-adjustment (xwidget-webkit-last-session) 'vertical t -50) ) 163 (xwidget-set-adjustment (xwidget-webkit-last-session) 'vertical t -50)
164 (image-scroll-down)) 164 (image-scroll-down)))
165 165
166(defun xwidget-webkit-scroll-forward () 166(defun xwidget-webkit-scroll-forward ()
167 (interactive) 167 (interactive)
168 (if (eq xwidget-webkit-scroll-behaviour 'native) 168 (if (eq xwidget-webkit-scroll-behaviour 'native)
169 (xwidget-set-adjustment (xwidget-webkit-last-session) 'horizontal t 50) ) 169 (xwidget-set-adjustment (xwidget-webkit-last-session) 'horizontal t 50)
170 (xwidget-webkit-scroll-forward)) 170 (xwidget-webkit-scroll-forward)))
171 171
172(defun xwidget-webkit-scroll-backward () 172(defun xwidget-webkit-scroll-backward ()
173 (interactive) 173 (interactive)
174 (if (eq xwidget-webkit-scroll-behaviour 'native) 174 (if (eq xwidget-webkit-scroll-behaviour 'native)
175 (xwidget-set-adjustment (xwidget-webkit-last-session) 'horizontal t -50) ) 175 (xwidget-set-adjustment (xwidget-webkit-last-session) 'horizontal t -50)
176 (xwidget-webkit-scroll-backward)) 176 (xwidget-webkit-scroll-backward)))
177 177
178 178
179;;the xwidget event needs to go into a higher level handler 179;;the xwidget event needs to go into a higher level handler