diff options
| author | Joakim Verona | 2015-01-21 23:17:19 +0100 |
|---|---|---|
| committer | Joakim Verona | 2015-01-21 23:17:19 +0100 |
| commit | 487d6cdc4dfc6500885dfa57a7c2fac8a1760fec (patch) | |
| tree | 66cd8c870bd25f161181501aae7c995f5daa41d0 | |
| parent | 069f101ecf15ee9c589d1e172743412eac38318f (diff) | |
| download | emacs-487d6cdc4dfc6500885dfa57a7c2fac8a1760fec.tar.gz emacs-487d6cdc4dfc6500885dfa57a7c2fac8a1760fec.zip | |
webkit scrolling bugfix
| -rw-r--r-- | lisp/xwidget.el | 16 |
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 |