aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog.320
-rw-r--r--doc/emacs/custom.texi2
-rw-r--r--doc/emacs/frames.texi10
-rw-r--r--doc/emacs/xresources.texi7
-rw-r--r--etc/NEWS.264
-rw-r--r--lisp/dired-aux.el3
-rw-r--r--lisp/mwheel.el30
-rw-r--r--lisp/net/eww.el3
-rw-r--r--lisp/vc/add-log.el2
-rw-r--r--src/window.c3
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
209312017-04-24 Alan Third <alan@idiocy.org> 209312017-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
381422016-09-12 Michal Nazarewicz <mina86@mina86.com> 381422016-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
435642016-06-08 Michal Nazarewicz <mina86@mina86.com> 435642016-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
496362016-02-27 Jan Moringen <jan.moringen@uni-bielefeld.de> 496362016-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
1417explains how to customize key bindings, which is done by editing your 1417explains how to customize key bindings, which is done by editing your
1418init file (@pxref{Init Rebinding}). 1418init 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
1421might override your custom key bindings. A small number of keys are 1423might override your custom key bindings. A small number of keys are
1422reserved for user-defined bindings, and should not be used by modes, 1424reserved 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
208speed is linked to how fast you move the wheel. 208speed 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
212Emacs can also support horizontal scrolling if your mouse's wheel can 212Emacs can also support horizontal scrolling if your mouse's wheel can
213be tilted. This feature is off by default; the variable 213be 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
215direction of horizontal scrolling, customize the variable 215the 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.
142excluding those that control the appearance of graphical widgets like 142Note that some of the resources have no effect in Emacs compiled with
143the menu bar: 143various X toolkits (GTK+, Lucid, etc.)---we indicate below when this
144is 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.
434You can enable this by customizing 'mwheel-tilt-scroll-p'. If you 434You can enable this by customizing 'mouse-wheel-tilt-scroll'. If you
435want to reverse the direction of the scroll, customize 435want 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