diff options
| author | Glenn Morris | 2018-03-02 11:59:46 -0800 |
|---|---|---|
| committer | Glenn Morris | 2018-03-02 11:59:46 -0800 |
| commit | 762ea10d7ff483d3528c2c85b42596178ccc2a34 (patch) | |
| tree | 00154b726c2bd73c85d47f89a2912bd2ff389b92 | |
| parent | e943b9b514fcc82a47364a35e4af9f46e30e7346 (diff) | |
| parent | 0213c8bf472b196d995d92a52b44458ac8226e42 (diff) | |
| download | emacs-762ea10d7ff483d3528c2c85b42596178ccc2a34.tar.gz emacs-762ea10d7ff483d3528c2c85b42596178ccc2a34.zip | |
Merge from origin/emacs-26
0213c8b (origin/emacs-26) mwheel minor consistency fix
82f12b2 * src/window.c (Frecenter): Improve commentary.
04da8f4 Fix downloading non-text files in EWW
832b9ec ; Spelling fixes
dd88499 ; Spelling fixes
3968f72 Rename some mwheel options, for consistency
d6e78de * lisp/vc/add-log.el (add-change-log-entry): Replace obsolete...
5fe0387 Improve the Emacs manual
56ab8e3 * lisp/dired-aux.el (dired-do-create-files): Doc fix. (Bug#3...
Conflicts:
etc/NEWS
lisp/mwheel.el
| -rw-r--r-- | ChangeLog.3 | 20 | ||||
| -rw-r--r-- | doc/emacs/custom.texi | 2 | ||||
| -rw-r--r-- | doc/emacs/frames.texi | 10 | ||||
| -rw-r--r-- | doc/emacs/xresources.texi | 7 | ||||
| -rw-r--r-- | etc/NEWS.26 | 4 | ||||
| -rw-r--r-- | lisp/dired-aux.el | 3 | ||||
| -rw-r--r-- | lisp/mwheel.el | 30 | ||||
| -rw-r--r-- | lisp/net/eww.el | 3 | ||||
| -rw-r--r-- | lisp/vc/add-log.el | 2 | ||||
| -rw-r--r-- | src/window.c | 3 |
10 files changed, 43 insertions, 41 deletions
diff --git a/ChangeLog.3 b/ChangeLog.3 index f68ba58cacd..5b68559f430 100644 --- a/ChangeLog.3 +++ b/ChangeLog.3 | |||
| @@ -20930,7 +20930,7 @@ | |||
| 20930 | 20930 | ||
| 20931 | 2017-04-24 Alan Third <alan@idiocy.org> | 20931 | 2017-04-24 Alan Third <alan@idiocy.org> |
| 20932 | 20932 | ||
| 20933 | Fix XBM colour rendering in NS port (bug#22060) | 20933 | Fix XBM color rendering in NS port (bug#22060) |
| 20934 | 20934 | ||
| 20935 | src/nsimage.m (setXBMColor): Fix calculation of xbm_fg. | 20935 | src/nsimage.m (setXBMColor): Fix calculation of xbm_fg. |
| 20936 | 20936 | ||
| @@ -38136,7 +38136,7 @@ | |||
| 38136 | ^ | 38136 | ^ |
| 38137 | 38137 | ||
| 38138 | * src/frame.c (x_set_frame_parameters): Drop width_changed and | 38138 | * src/frame.c (x_set_frame_parameters): Drop width_changed and |
| 38139 | height_changed variables in favour of storing that information in | 38139 | height_changed variables in favor of storing that information in |
| 38140 | width and height variables. | 38140 | width and height variables. |
| 38141 | 38141 | ||
| 38142 | 2016-09-12 Michal Nazarewicz <mina86@mina86.com> | 38142 | 2016-09-12 Michal Nazarewicz <mina86@mina86.com> |
| @@ -38193,7 +38193,7 @@ | |||
| 38193 | 38193 | ||
| 38194 | Refactor common code in {upcase,downcase,capitalize}-word functions | 38194 | Refactor common code in {upcase,downcase,capitalize}-word functions |
| 38195 | 38195 | ||
| 38196 | * src/casefiddle.c (operate_on_word): Removed in favour of… | 38196 | * src/casefiddle.c (operate_on_word): Removed in favor of… |
| 38197 | (casify_word) …new function which does what operate_on_word did plus | 38197 | (casify_word) …new function which does what operate_on_word did plus |
| 38198 | what all of the common code from *-word functions. | 38198 | what all of the common code from *-word functions. |
| 38199 | (upcase-word, downcase-word, capitalize-word): Move code common between | 38199 | (upcase-word, downcase-word, capitalize-word): Move code common between |
| @@ -38418,9 +38418,9 @@ | |||
| 38418 | alphabeticp. Because both of those functions require Unicode general | 38418 | alphabeticp. Because both of those functions require Unicode general |
| 38419 | category lookup, this resulted in unnecessary lookups (if alphabeticp | 38419 | category lookup, this resulted in unnecessary lookups (if alphabeticp |
| 38420 | return false decimalp had to perform another lookup). Drop decimalnump | 38420 | return false decimalp had to perform another lookup). Drop decimalnump |
| 38421 | in favour of alphanumericp which combines decimelnump with alphabeticp. | 38421 | in favor of alphanumericp which combines decimelnump with alphabeticp. |
| 38422 | 38422 | ||
| 38423 | * src/character.c (decimalnump): Remove in favour of… | 38423 | * src/character.c (decimalnump): Remove in favor of… |
| 38424 | (alphanumericp): …new function. | 38424 | (alphanumericp): …new function. |
| 38425 | 38425 | ||
| 38426 | * src/regex.c (ISALNUM): Use alphanumericp. | 38426 | * src/regex.c (ISALNUM): Use alphanumericp. |
| @@ -42329,9 +42329,9 @@ | |||
| 42329 | 42329 | ||
| 42330 | Enable dividers in NS (bug#22973) | 42330 | Enable dividers in NS (bug#22973) |
| 42331 | 42331 | ||
| 42332 | src/nsfns.m: Add colour settings functions to ns_frame_park_handlers. | 42332 | src/nsfns.m: Add color settings functions to ns_frame_park_handlers. |
| 42333 | src/nsterm.m (ns_draw_window_divider): ns_focus has to go before the | 42333 | src/nsterm.m (ns_draw_window_divider): ns_focus has to go before the |
| 42334 | attempt to set the colour. | 42334 | attempt to set the color. |
| 42335 | src/nsterm.m (ns_draw_vertical_window_border): This had the same bug as | 42335 | src/nsterm.m (ns_draw_vertical_window_border): This had the same bug as |
| 42336 | above, although I didn't see any errors. | 42336 | above, although I didn't see any errors. |
| 42337 | 42337 | ||
| @@ -43563,10 +43563,10 @@ | |||
| 43563 | 43563 | ||
| 43564 | 2016-06-08 Michal Nazarewicz <mina86@mina86.com> | 43564 | 2016-06-08 Michal Nazarewicz <mina86@mina86.com> |
| 43565 | 43565 | ||
| 43566 | Remove ‘ert-with-function-mocked’ macro in favour of ‘cl-letf’ macro | 43566 | Remove ‘ert-with-function-mocked’ macro in favor of ‘cl-letf’ macro |
| 43567 | 43567 | ||
| 43568 | * lisp/emacs-lisp/ert-x.el (ert-with-function-mocked): Remove macro | 43568 | * lisp/emacs-lisp/ert-x.el (ert-with-function-mocked): Remove macro |
| 43569 | in favour of ‘cl-letf’ macro which is more generic. All existing | 43569 | in favor of ‘cl-letf’ macro which is more generic. All existing |
| 43570 | uses are migrated accordingly. The macro has not been included in | 43570 | uses are migrated accordingly. The macro has not been included in |
| 43571 | an official release yet so it should be fine to delete it. | 43571 | an official release yet so it should be fine to delete it. |
| 43572 | 43572 | ||
| @@ -49635,7 +49635,7 @@ | |||
| 49635 | 49635 | ||
| 49636 | 2016-02-27 Jan Moringen <jan.moringen@uni-bielefeld.de> | 49636 | 2016-02-27 Jan Moringen <jan.moringen@uni-bielefeld.de> |
| 49637 | 49637 | ||
| 49638 | Show the face colours when completing in `read-color' | 49638 | Show the face colors when completing in `read-color' |
| 49639 | 49639 | ||
| 49640 | * lisp/faces.el (defined-colors-with-face-attributes): New function. | 49640 | * lisp/faces.el (defined-colors-with-face-attributes): New function. |
| 49641 | (readable-foreground-color, defined-colors-with-face-attributes) | 49641 | (readable-foreground-color, defined-colors-with-face-attributes) |
diff --git a/doc/emacs/custom.texi b/doc/emacs/custom.texi index 7d90c20a2a9..0905ae7bb12 100644 --- a/doc/emacs/custom.texi +++ b/doc/emacs/custom.texi | |||
| @@ -1417,6 +1417,8 @@ commands, and @dfn{keymaps}, which record key bindings. It also | |||
| 1417 | explains how to customize key bindings, which is done by editing your | 1417 | explains how to customize key bindings, which is done by editing your |
| 1418 | init file (@pxref{Init Rebinding}). | 1418 | init file (@pxref{Init Rebinding}). |
| 1419 | 1419 | ||
| 1420 | @cindex reserved key bindings | ||
| 1421 | @cindex keys, reserved | ||
| 1420 | Since most modes define their own key bindings, activating a mode | 1422 | Since most modes define their own key bindings, activating a mode |
| 1421 | might override your custom key bindings. A small number of keys are | 1423 | might override your custom key bindings. A small number of keys are |
| 1422 | reserved for user-defined bindings, and should not be used by modes, | 1424 | reserved for user-defined bindings, and should not be used by modes, |
diff --git a/doc/emacs/frames.texi b/doc/emacs/frames.texi index 17f6f35a8a3..11611e73516 100644 --- a/doc/emacs/frames.texi +++ b/doc/emacs/frames.texi | |||
| @@ -207,13 +207,13 @@ buffers are scrolled. The variable | |||
| 207 | @code{mouse-wheel-progressive-speed} determines whether the scroll | 207 | @code{mouse-wheel-progressive-speed} determines whether the scroll |
| 208 | speed is linked to how fast you move the wheel. | 208 | speed is linked to how fast you move the wheel. |
| 209 | 209 | ||
| 210 | @vindex mwheel-tilt-scroll-p | 210 | @vindex mouse-wheel-tilt-scroll |
| 211 | @vindex mwheel-flip-direction | 211 | @vindex mouse-wheel-flip-direction |
| 212 | Emacs can also support horizontal scrolling if your mouse's wheel can | 212 | Emacs can also support horizontal scrolling if your mouse's wheel can |
| 213 | be tilted. This feature is off by default; the variable | 213 | be tilted. This feature is off by default; the variable |
| 214 | @code{mwheel-tilt-scroll-p} turns it on. If you'd like to reverse the | 214 | @code{mouse-wheel-tilt-scroll} turns it on. If you'd like to reverse |
| 215 | direction of horizontal scrolling, customize the variable | 215 | the direction of horizontal scrolling, customize the variable |
| 216 | @code{mwheel-flip-direction} to a non-@code{nil} value. | 216 | @code{mouse-wheel-flip-direction} to a non-@code{nil} value. |
| 217 | 217 | ||
| 218 | 218 | ||
| 219 | @node Word and Line Mouse | 219 | @node Word and Line Mouse |
diff --git a/doc/emacs/xresources.texi b/doc/emacs/xresources.texi index 8d0127f9103..db2c6ffafd2 100644 --- a/doc/emacs/xresources.texi +++ b/doc/emacs/xresources.texi | |||
| @@ -138,9 +138,10 @@ specifications. | |||
| 138 | @node Table of Resources | 138 | @node Table of Resources |
| 139 | @appendixsec Table of X Resources for Emacs | 139 | @appendixsec Table of X Resources for Emacs |
| 140 | 140 | ||
| 141 | This table lists the X resource names that Emacs recognizes, | 141 | The table below lists the X resource names that Emacs recognizes. |
| 142 | excluding those that control the appearance of graphical widgets like | 142 | Note that some of the resources have no effect in Emacs compiled with |
| 143 | the menu bar: | 143 | various X toolkits (GTK+, Lucid, etc.)---we indicate below when this |
| 144 | is the case. | ||
| 144 | 145 | ||
| 145 | @table @asis | 146 | @table @asis |
| 146 | @item @code{background} (class @code{Background}) | 147 | @item @code{background} (class @code{Background}) |
diff --git a/etc/NEWS.26 b/etc/NEWS.26 index cb4048dee4a..eded00e6554 100644 --- a/etc/NEWS.26 +++ b/etc/NEWS.26 | |||
| @@ -431,9 +431,9 @@ always restricting the margin to a quarter of the window. | |||
| 431 | 431 | ||
| 432 | +++ | 432 | +++ |
| 433 | ** Emacs can scroll horizontally using mouse, touchpad, and trackbar. | 433 | ** Emacs can scroll horizontally using mouse, touchpad, and trackbar. |
| 434 | You can enable this by customizing 'mwheel-tilt-scroll-p'. If you | 434 | You can enable this by customizing 'mouse-wheel-tilt-scroll'. If you |
| 435 | want to reverse the direction of the scroll, customize | 435 | want to reverse the direction of the scroll, customize |
| 436 | 'mwheel-flip-direction'. | 436 | 'mouse-wheel-flip-direction'. |
| 437 | 437 | ||
| 438 | +++ | 438 | +++ |
| 439 | ** The default GnuTLS priority string now includes %DUMBFW. | 439 | ** The default GnuTLS priority string now includes %DUMBFW. |
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index b837fb4e5ea..e8b5e6755ea 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el | |||
| @@ -1842,7 +1842,8 @@ Optional arg HOW-TO determines how to treat the target. | |||
| 1842 | rfn-list - list of the relative names for the marked files. | 1842 | rfn-list - list of the relative names for the marked files. |
| 1843 | fn-list - list of the absolute names for the marked files. | 1843 | fn-list - list of the absolute names for the marked files. |
| 1844 | target - the name of the target itself. | 1844 | target - the name of the target itself. |
| 1845 | The rest of into-dir are optional arguments. | 1845 | The rest of elements of the list returned by HOW-TO are optional |
| 1846 | arguments for the function that is the first element of the list. | ||
| 1846 | For any other return value, TARGET is treated as a directory." | 1847 | For any other return value, TARGET is treated as a directory." |
| 1847 | (or op1 (setq op1 operation)) | 1848 | (or op1 (setq op1 operation)) |
| 1848 | (let* ((fn-list (dired-get-marked-files nil arg nil nil t)) | 1849 | (let* ((fn-list (dired-get-marked-files nil arg nil nil t)) |
diff --git a/lisp/mwheel.el b/lisp/mwheel.el index cbd78137622..44c4989ad06 100644 --- a/lisp/mwheel.el +++ b/lisp/mwheel.el | |||
| @@ -150,30 +150,18 @@ This can be slightly disconcerting, but some people prefer it." | |||
| 150 | 150 | ||
| 151 | ;;; For tilt-scroll | 151 | ;;; For tilt-scroll |
| 152 | ;;; | 152 | ;;; |
| 153 | (defcustom mwheel-tilt-scroll-p nil | 153 | (defcustom mouse-wheel-tilt-scroll nil |
| 154 | "Enable scroll using tilting mouse wheel." | 154 | "Enable scroll using tilting mouse wheel." |
| 155 | :group 'mouse | 155 | :group 'mouse |
| 156 | :type 'boolean | 156 | :type 'boolean |
| 157 | :version "26.1") | 157 | :version "26.1") |
| 158 | 158 | ||
| 159 | (defcustom mwheel-flip-direction nil | 159 | (defcustom mouse-wheel-flip-direction nil |
| 160 | "Swap direction of 'wheel-right and 'wheel-left." | 160 | "Swap direction of 'wheel-right and 'wheel-left." |
| 161 | :group 'mouse | 161 | :group 'mouse |
| 162 | :type 'boolean | 162 | :type 'boolean |
| 163 | :version "26.1") | 163 | :version "26.1") |
| 164 | 164 | ||
| 165 | (defcustom mwheel-scroll-left-function 'scroll-left | ||
| 166 | "Function that does the job of scrolling left." | ||
| 167 | :group 'mouse | ||
| 168 | :type 'function | ||
| 169 | :version "26.1") | ||
| 170 | |||
| 171 | (defcustom mwheel-scroll-right-function 'scroll-right | ||
| 172 | "Function that does the job of scrolling right." | ||
| 173 | :group 'mouse | ||
| 174 | :type 'function | ||
| 175 | :version "26.1") | ||
| 176 | |||
| 177 | (eval-and-compile | 165 | (eval-and-compile |
| 178 | (if (fboundp 'event-button) | 166 | (if (fboundp 'event-button) |
| 179 | (fset 'mwheel-event-button 'event-button) | 167 | (fset 'mwheel-event-button 'event-button) |
| @@ -211,6 +199,12 @@ This can be slightly disconcerting, but some people prefer it." | |||
| 211 | (defvar mwheel-scroll-down-function 'scroll-down | 199 | (defvar mwheel-scroll-down-function 'scroll-down |
| 212 | "Function that does the job of scrolling downward.") | 200 | "Function that does the job of scrolling downward.") |
| 213 | 201 | ||
| 202 | (defvar mwheel-scroll-left-function 'scroll-left | ||
| 203 | "Function that does the job of scrolling left.") | ||
| 204 | |||
| 205 | (defvar mwheel-scroll-right-function 'scroll-right | ||
| 206 | "Function that does the job of scrolling right.") | ||
| 207 | |||
| 214 | (defvar mouse-wheel-left-event | 208 | (defvar mouse-wheel-left-event |
| 215 | (if (or (featurep 'w32-win) (featurep 'ns-win)) | 209 | (if (or (featurep 'w32-win) (featurep 'ns-win)) |
| 216 | 'wheel-left | 210 | 'wheel-left |
| @@ -293,13 +287,13 @@ non-Windows systems." | |||
| 293 | ;; Make sure we do indeed scroll to the end of the buffer. | 287 | ;; Make sure we do indeed scroll to the end of the buffer. |
| 294 | (end-of-buffer (while t (funcall mwheel-scroll-up-function))))) | 288 | (end-of-buffer (while t (funcall mwheel-scroll-up-function))))) |
| 295 | ((eq button mouse-wheel-left-event) ; for tilt scroll | 289 | ((eq button mouse-wheel-left-event) ; for tilt scroll |
| 296 | (when mwheel-tilt-scroll-p | 290 | (when mouse-wheel-tilt-scroll |
| 297 | (funcall (if mwheel-flip-direction | 291 | (funcall (if mouse-wheel-flip-direction |
| 298 | mwheel-scroll-right-function | 292 | mwheel-scroll-right-function |
| 299 | mwheel-scroll-left-function) amt))) | 293 | mwheel-scroll-left-function) amt))) |
| 300 | ((eq button mouse-wheel-right-event) ; for tilt scroll | 294 | ((eq button mouse-wheel-right-event) ; for tilt scroll |
| 301 | (when mwheel-tilt-scroll-p | 295 | (when mouse-wheel-tilt-scroll |
| 302 | (funcall (if mwheel-flip-direction | 296 | (funcall (if mouse-wheel-flip-direction |
| 303 | mwheel-scroll-left-function | 297 | mwheel-scroll-left-function |
| 304 | mwheel-scroll-right-function) amt))) | 298 | mwheel-scroll-right-function) amt))) |
| 305 | (t (error "Bad binding in mwheel-scroll")))) | 299 | (t (error "Bad binding in mwheel-scroll")))) |
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index caac96a4859..66b1767b563 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el | |||
| @@ -1532,7 +1532,8 @@ Differences in #targets are ignored." | |||
| 1532 | eww-download-directory))) | 1532 | eww-download-directory))) |
| 1533 | (goto-char (point-min)) | 1533 | (goto-char (point-min)) |
| 1534 | (re-search-forward "\r?\n\r?\n") | 1534 | (re-search-forward "\r?\n\r?\n") |
| 1535 | (write-region (point) (point-max) file) | 1535 | (let ((coding-system-for-write 'no-conversion)) |
| 1536 | (write-region (point) (point-max) file)) | ||
| 1536 | (message "Saved %s" file)))) | 1537 | (message "Saved %s" file)))) |
| 1537 | 1538 | ||
| 1538 | (defun eww-decode-url-file-name (string) | 1539 | (defun eww-decode-url-file-name (string) |
diff --git a/lisp/vc/add-log.el b/lisp/vc/add-log.el index bc2be4aadb4..175c82f8c00 100644 --- a/lisp/vc/add-log.el +++ b/lisp/vc/add-log.el | |||
| @@ -898,7 +898,7 @@ non-nil, otherwise in local time." | |||
| 898 | (insert (if use-hard-newlines hard-newline "\n") | 898 | (insert (if use-hard-newlines hard-newline "\n") |
| 899 | (if use-hard-newlines hard-newline "\n")) | 899 | (if use-hard-newlines hard-newline "\n")) |
| 900 | (forward-line -2) | 900 | (forward-line -2) |
| 901 | (indent-relative-maybe)) | 901 | (indent-relative-first-indent-point)) |
| 902 | (t | 902 | (t |
| 903 | ;; Make a new item. | 903 | ;; Make a new item. |
| 904 | (while (looking-at "\\sW") | 904 | (while (looking-at "\\sW") |
diff --git a/src/window.c b/src/window.c index 08c3f32dff5..e6d0280d9b0 100644 --- a/src/window.c +++ b/src/window.c | |||
| @@ -5923,6 +5923,9 @@ and redisplay normally--don't erase and redraw the frame. */) | |||
| 5923 | EMACS_INT iarg UNINIT; | 5923 | EMACS_INT iarg UNINIT; |
| 5924 | int this_scroll_margin; | 5924 | int this_scroll_margin; |
| 5925 | 5925 | ||
| 5926 | /* For reasons why we signal an error here, see | ||
| 5927 | http://lists.gnu.org/archive/html/emacs-devel/2014-06/msg00053.html, | ||
| 5928 | http://lists.gnu.org/archive/html/emacs-devel/2014-06/msg00094.html. */ | ||
| 5926 | if (buf != current_buffer) | 5929 | if (buf != current_buffer) |
| 5927 | error ("`recenter'ing a window that does not display current-buffer."); | 5930 | error ("`recenter'ing a window that does not display current-buffer."); |
| 5928 | 5931 | ||