diff options
| author | Paul Eggert | 2017-11-25 22:55:35 -0800 |
|---|---|---|
| committer | Paul Eggert | 2017-11-25 22:55:35 -0800 |
| commit | d20161b25e9cd184d841ba9e36ee5141c01fd75f (patch) | |
| tree | 6026fea9d48e641bf63b23209970efd1f8024e2c /lisp | |
| parent | e27004c5fe3c227476ea210ff5bee2efb783ae17 (diff) | |
| parent | a89f0b6f33f9eb8910a1fceda9028d76ef50b05d (diff) | |
| download | emacs-d20161b25e9cd184d841ba9e36ee5141c01fd75f.tar.gz emacs-d20161b25e9cd184d841ba9e36ee5141c01fd75f.zip | |
Merge from origin/emacs-26
a89f0b6f33 maint: shorten https://lists.gnu.org/archive/html/... links
8be3aee281 Merge from Gnulib
265cee553f Work around GCC bug 80776 on Fedora 27 x86
dc7a97fb84 Tweak copy-file, rename-file doc
cfa2a944d4 Change font-lock-extend-region-multiline handling in mhtml...
a8664cc998 Minor cleanup in tramp-gvfs-handle-file-local-copy
55c5b12fa0 Add test for Bug#29423 in Tramp.
3198a1646e Avoid jumbled order in HTML rendered by shr.el
23bfc2d2db Make sure 'dired-filename' property is always put by ls-lisp
f7fdaea4c0 A better solution for bug#29347
86e6ed8521 ; * src/thread.c (acquire_global_lock): Fix thinko in last...
f300852037 Avoid a hang after C-g while sit-for on a Unix TTY
d7fc719ff1 Improve the doc string of 'list-packages'
b4f67ebb92 Improve discoverability of 'defvar' for suppressing warnings
8a2b204e64 Improve discoverability of 'read-buffer-completion-ignore-...
eea4e9194c Improve documentation of self-insert-uses-region-functions
e6e41dac87 Reflect changes in copy-file and rename-file in doc strings
0ec534070f * lisp/progmodes/cc-vars.el (c-offsets-alist): Doc fix. (...
1d0dbdff6c Reorder type predicates in ELisp manual
b081ec9dd7 Fix backward scrolling in buffers with header-line
8e40429c96 ; Fix some doc typos
ed2c542920 * lisp/bindings.el (buffer-file-coding-system): Add explic...
d82474e452 * src/fns.c (syms_of_fns) <overriding-plist-environment>: ...
292c09ff6d Fix incorrect interaction of drag/drop and double click (b...
d6fadb1d26 * lisp/menu-bar.el (menu-bar-options-save): Add display-li...
daa959efbc * lisp/menu-bar.el (menu-bar-options-save): Add global-dis...
17fc74d1b9 * lisp/follow.el (follow-mode): Restore mode line lighter....
f20c2e2f3d ; Compare process status against 127 exactly
2d203ffb7e Extract the common part of ruby-flymake-simple and ruby-fl...
09944d499a Add Rubocop Flymake backend
c65a0ae7c4 ; Fix a typo
7ab7603125 Update nt/INSTALL.W64 (Bug#28601)
11db253c08 Remove incorrect NEWS item about VC state indicator (Bug#2...
2fdc01c036 * lisp/emacs-lisp/byte-run.el (defsubst): Doc fix.
735c8b516e Make c-defun-name analyze more thoroughly a function type ...
92f0c4cd56 Avoid bogus abbreviated file names if HOME changes
8d450453fa * lisp/emacs-lisp/byte-run.el (inline): Give it a doc.
37a3b4ea40 Fix erc keep-place module with new defaults (Bug#29111)
6c312605bf Add window divider faces to NS (bug#29353)
# Conflicts:
# etc/NEWS
# lisp/ruler-mode.el
Diffstat (limited to 'lisp')
73 files changed, 392 insertions, 245 deletions
diff --git a/lisp/ChangeLog.11 b/lisp/ChangeLog.11 index 52f5189228e..94a3cbfb582 100644 --- a/lisp/ChangeLog.11 +++ b/lisp/ChangeLog.11 | |||
| @@ -6395,7 +6395,7 @@ | |||
| 6395 | * vc-svn.el (vc-svn-checkin): Use `nconc' instead of `list*', | 6395 | * vc-svn.el (vc-svn-checkin): Use `nconc' instead of `list*', |
| 6396 | because the latter is a CL-ism. This fixes the bug reported by | 6396 | because the latter is a CL-ism. This fixes the bug reported by |
| 6397 | Shawn Boyette <mdxi@collapsar.net> in | 6397 | Shawn Boyette <mdxi@collapsar.net> in |
| 6398 | https://lists.gnu.org/archive/html/emacs-devel/2004-05/msg00442.html. | 6398 | https://lists.gnu.org/r/emacs-devel/2004-05/msg00442.html. |
| 6399 | 6399 | ||
| 6400 | 2004-06-04 Miles Bader <miles@gnu.org> | 6400 | 2004-06-04 Miles Bader <miles@gnu.org> |
| 6401 | 6401 | ||
diff --git a/lisp/ChangeLog.13 b/lisp/ChangeLog.13 index 8869cc46eb8..d14325b5ff1 100644 --- a/lisp/ChangeLog.13 +++ b/lisp/ChangeLog.13 | |||
| @@ -4667,7 +4667,7 @@ | |||
| 4667 | 2008-01-02 Karl Fogel <kfogel@red-bean.com> | 4667 | 2008-01-02 Karl Fogel <kfogel@red-bean.com> |
| 4668 | 4668 | ||
| 4669 | Change a return type, for greater extensibility. | 4669 | Change a return type, for greater extensibility. |
| 4670 | See https://lists.gnu.org/archive/html/emacs-devel/2007-12/msg01077.html | 4670 | See https://lists.gnu.org/r/emacs-devel/2007-12/msg01077.html |
| 4671 | and its thread for discussion leading to this change. | 4671 | and its thread for discussion leading to this change. |
| 4672 | 4672 | ||
| 4673 | * bookmark.el (bookmark-jump-noselect): | 4673 | * bookmark.el (bookmark-jump-noselect): |
| @@ -14464,7 +14464,7 @@ | |||
| 14464 | 14464 | ||
| 14465 | * bookmark.el: Revert 2007-07-13T18:16:17Z!kfogel@red-bean.com, | 14465 | * bookmark.el: Revert 2007-07-13T18:16:17Z!kfogel@red-bean.com, |
| 14466 | thus restoring bookmark bindings to three slots under C-x r. See | 14466 | thus restoring bookmark bindings to three slots under C-x r. See |
| 14467 | https://lists.gnu.org/archive/html/emacs-devel/2007-07/msg00705.html. | 14467 | https://lists.gnu.org/r/emacs-devel/2007-07/msg00705.html. |
| 14468 | 14468 | ||
| 14469 | 2007-07-15 Jeff Miller <jmiller@cablespeed.com> (tiny change) | 14469 | 2007-07-15 Jeff Miller <jmiller@cablespeed.com> (tiny change) |
| 14470 | 14470 | ||
| @@ -14511,7 +14511,7 @@ | |||
| 14511 | * bookmark.el (bookmark-jump-other-window): New function. | 14511 | * bookmark.el (bookmark-jump-other-window): New function. |
| 14512 | (bookmark-map): Bind it to "o". | 14512 | (bookmark-map): Bind it to "o". |
| 14513 | 14513 | ||
| 14514 | https://lists.gnu.org/archive/html/emacs-devel/2007-07/msg00633.html | 14514 | https://lists.gnu.org/r/emacs-devel/2007-07/msg00633.html |
| 14515 | and its thread contains discussion about this change. | 14515 | and its thread contains discussion about this change. |
| 14516 | The original patch was slightly tweaked by Karl Fogel | 14516 | The original patch was slightly tweaked by Karl Fogel |
| 14517 | <kfogel@red-bean.com> before committing. | 14517 | <kfogel@red-bean.com> before committing. |
| @@ -14525,7 +14525,7 @@ | |||
| 14525 | * bookmark.el: Don't define bookmark keys under the "C-xr" map; | 14525 | * bookmark.el: Don't define bookmark keys under the "C-xr" map; |
| 14526 | instead, make "C-xp" a prefix for bookmark-map. Patch by Drew | 14526 | instead, make "C-xp" a prefix for bookmark-map. Patch by Drew |
| 14527 | Adams <drew.adams@oracle.com>, mildly tweaked by me. See | 14527 | Adams <drew.adams@oracle.com>, mildly tweaked by me. See |
| 14528 | https://lists.gnu.org/archive/html/emacs-devel/2007-07/msg00633.html. | 14528 | https://lists.gnu.org/r/emacs-devel/2007-07/msg00633.html. |
| 14529 | 14529 | ||
| 14530 | 2007-07-13 Carsten Dominik <dominik@science.uva.nl> | 14530 | 2007-07-13 Carsten Dominik <dominik@science.uva.nl> |
| 14531 | 14531 | ||
diff --git a/lisp/ChangeLog.15 b/lisp/ChangeLog.15 index 3e6d664aa6b..11bc31f3b29 100644 --- a/lisp/ChangeLog.15 +++ b/lisp/ChangeLog.15 | |||
| @@ -9833,7 +9833,7 @@ | |||
| 9833 | * window.el (pop-to-buffer): Remove the conditional that | 9833 | * window.el (pop-to-buffer): Remove the conditional that |
| 9834 | compares new-window and old-window, so it will reselect | 9834 | compares new-window and old-window, so it will reselect |
| 9835 | the selected window unconditionally. | 9835 | the selected window unconditionally. |
| 9836 | https://lists.gnu.org/archive/html/emacs-devel/2010-06/msg00078.html | 9836 | https://lists.gnu.org/r/emacs-devel/2010-06/msg00078.html |
| 9837 | 9837 | ||
| 9838 | 2010-06-07 Stefan Monnier <monnier@iro.umontreal.ca> | 9838 | 2010-06-07 Stefan Monnier <monnier@iro.umontreal.ca> |
| 9839 | 9839 | ||
| @@ -9882,7 +9882,7 @@ | |||
| 9882 | of kill-ring: don't call menu-bar-update-yank-menu, don't push | 9882 | of kill-ring: don't call menu-bar-update-yank-menu, don't push |
| 9883 | interprogram-paste strings to kill-ring, and don't push the input | 9883 | interprogram-paste strings to kill-ring, and don't push the input |
| 9884 | argument `string' to kill-ring. | 9884 | argument `string' to kill-ring. |
| 9885 | https://lists.gnu.org/archive/html/emacs-devel/2010-06/msg00072.html | 9885 | https://lists.gnu.org/r/emacs-devel/2010-06/msg00072.html |
| 9886 | 9886 | ||
| 9887 | 2010-06-04 Juanma Barranquero <lekktu@gmail.com> | 9887 | 2010-06-04 Juanma Barranquero <lekktu@gmail.com> |
| 9888 | 9888 | ||
| @@ -10445,7 +10445,7 @@ | |||
| 10445 | * dired-x.el (dired-jump, dired-jump-other-window): Add arg | 10445 | * dired-x.el (dired-jump, dired-jump-other-window): Add arg |
| 10446 | FILE-NAME to read from the minibuffer when called interactively | 10446 | FILE-NAME to read from the minibuffer when called interactively |
| 10447 | with prefix argument instead of using buffer-file-name. | 10447 | with prefix argument instead of using buffer-file-name. |
| 10448 | https://lists.gnu.org/archive/html/emacs-devel/2010-05/msg00534.html | 10448 | https://lists.gnu.org/r/emacs-devel/2010-05/msg00534.html |
| 10449 | 10449 | ||
| 10450 | * dired.el: Update autoloads. | 10450 | * dired.el: Update autoloads. |
| 10451 | 10451 | ||
| @@ -11998,7 +11998,7 @@ | |||
| 11998 | 2010-04-05 Juri Linkov <juri@jurta.org> | 11998 | 2010-04-05 Juri Linkov <juri@jurta.org> |
| 11999 | 11999 | ||
| 12000 | Scrolling commands which scroll a line instead of full screen. | 12000 | Scrolling commands which scroll a line instead of full screen. |
| 12001 | https://lists.gnu.org/archive/html/emacs-devel/2010-03/msg01452.html | 12001 | https://lists.gnu.org/r/emacs-devel/2010-03/msg01452.html |
| 12002 | 12002 | ||
| 12003 | * simple.el (scroll-up-line, scroll-down-line): New commands. | 12003 | * simple.el (scroll-up-line, scroll-down-line): New commands. |
| 12004 | Put property isearch-scroll=t on them. | 12004 | Put property isearch-scroll=t on them. |
| @@ -12009,7 +12009,7 @@ | |||
| 12009 | 2010-04-05 Juri Linkov <juri@jurta.org> | 12009 | 2010-04-05 Juri Linkov <juri@jurta.org> |
| 12010 | 12010 | ||
| 12011 | Scrolling commands which do not signal errors at top/bottom. | 12011 | Scrolling commands which do not signal errors at top/bottom. |
| 12012 | https://lists.gnu.org/archive/html/emacs-devel/2010-03/msg01452.html | 12012 | https://lists.gnu.org/r/emacs-devel/2010-03/msg01452.html |
| 12013 | 12013 | ||
| 12014 | * simple.el (scroll-up-command, scroll-down-command): New commands. | 12014 | * simple.el (scroll-up-command, scroll-down-command): New commands. |
| 12015 | Put property isearch-scroll=t on them. | 12015 | Put property isearch-scroll=t on them. |
| @@ -12063,7 +12063,7 @@ | |||
| 12063 | (electric-help-mode): Set it to original major-mode. Doc fix. | 12063 | (electric-help-mode): Set it to original major-mode. Doc fix. |
| 12064 | (with-electric-help): Use `electric-help-orig-major-mode' instead | 12064 | (with-electric-help): Use `electric-help-orig-major-mode' instead |
| 12065 | of (default-value 'major-mode). Doc fix. | 12065 | of (default-value 'major-mode). Doc fix. |
| 12066 | https://lists.gnu.org/archive/html/emacs-devel/2010-04/msg00069.html | 12066 | https://lists.gnu.org/r/emacs-devel/2010-04/msg00069.html |
| 12067 | 12067 | ||
| 12068 | 2010-04-02 Sam Steingold <sds@gnu.org> | 12068 | 2010-04-02 Sam Steingold <sds@gnu.org> |
| 12069 | 12069 | ||
| @@ -12089,13 +12089,13 @@ | |||
| 12089 | 12089 | ||
| 12090 | * simple.el (next-line, previous-line): Re-throw a signal | 12090 | * simple.el (next-line, previous-line): Re-throw a signal |
| 12091 | with `signal' instead of using `ding'. | 12091 | with `signal' instead of using `ding'. |
| 12092 | https://lists.gnu.org/archive/html/emacs-devel/2010-03/msg01432.html | 12092 | https://lists.gnu.org/r/emacs-devel/2010-03/msg01432.html |
| 12093 | 12093 | ||
| 12094 | 2010-03-31 Juri Linkov <juri@jurta.org> | 12094 | 2010-03-31 Juri Linkov <juri@jurta.org> |
| 12095 | 12095 | ||
| 12096 | * simple.el (keyboard-escape-quit): Raise deselecting the active | 12096 | * simple.el (keyboard-escape-quit): Raise deselecting the active |
| 12097 | region higher than exiting the minibuffer. | 12097 | region higher than exiting the minibuffer. |
| 12098 | https://lists.gnu.org/archive/html/emacs-devel/2010-03/msg00904.html | 12098 | https://lists.gnu.org/r/emacs-devel/2010-03/msg00904.html |
| 12099 | 12099 | ||
| 12100 | 2010-03-31 Juri Linkov <juri@jurta.org> | 12100 | 2010-03-31 Juri Linkov <juri@jurta.org> |
| 12101 | 12101 | ||
| @@ -12184,7 +12184,7 @@ | |||
| 12184 | 2010-03-30 Juri Linkov <juri@jurta.org> | 12184 | 2010-03-30 Juri Linkov <juri@jurta.org> |
| 12185 | 12185 | ||
| 12186 | Make occur handle multi-line matches cleanly with context. | 12186 | Make occur handle multi-line matches cleanly with context. |
| 12187 | https://lists.gnu.org/archive/html/emacs-devel/2010-03/msg01280.html | 12187 | https://lists.gnu.org/r/emacs-devel/2010-03/msg01280.html |
| 12188 | 12188 | ||
| 12189 | * replace.el (occur-accumulate-lines): Add optional arg `pt'. | 12189 | * replace.el (occur-accumulate-lines): Add optional arg `pt'. |
| 12190 | (occur-engine): Add local variables `ret', `prev-after-lines', | 12190 | (occur-engine): Add local variables `ret', `prev-after-lines', |
| @@ -12379,7 +12379,7 @@ | |||
| 12379 | 2010-03-23 Juri Linkov <juri@jurta.org> | 12379 | 2010-03-23 Juri Linkov <juri@jurta.org> |
| 12380 | 12380 | ||
| 12381 | Implement Occur multi-line matches. | 12381 | Implement Occur multi-line matches. |
| 12382 | https://lists.gnu.org/archive/html/emacs-devel/2010-03/msg01044.html | 12382 | https://lists.gnu.org/r/emacs-devel/2010-03/msg01044.html |
| 12383 | 12383 | ||
| 12384 | * replace.el (occur): Doc fix. | 12384 | * replace.el (occur): Doc fix. |
| 12385 | (occur-engine): Set `begpt' to the beginning of the first line. | 12385 | (occur-engine): Set `begpt' to the beginning of the first line. |
| @@ -12456,7 +12456,7 @@ | |||
| 12456 | 2010-03-21 Juri Linkov <juri@jurta.org> | 12456 | 2010-03-21 Juri Linkov <juri@jurta.org> |
| 12457 | 12457 | ||
| 12458 | Fix message of multi-line occur regexps and multi-buffer header lines. | 12458 | Fix message of multi-line occur regexps and multi-buffer header lines. |
| 12459 | https://lists.gnu.org/archive/html/emacs-devel/2010-03/msg00457.html | 12459 | https://lists.gnu.org/r/emacs-devel/2010-03/msg00457.html |
| 12460 | 12460 | ||
| 12461 | * replace.el (occur-1): Don't display regexp if it is longer | 12461 | * replace.el (occur-1): Don't display regexp if it is longer |
| 12462 | than window-width. Use `query-replace-descr' to display regexp. | 12462 | than window-width. Use `query-replace-descr' to display regexp. |
| @@ -12750,7 +12750,7 @@ | |||
| 12750 | 2010-03-10 Kim F. Storm <storm@cua.dk> | 12750 | 2010-03-10 Kim F. Storm <storm@cua.dk> |
| 12751 | 12751 | ||
| 12752 | Animated image API. | 12752 | Animated image API. |
| 12753 | https://lists.gnu.org/archive/html/emacs-devel/2010-03/msg00211.html | 12753 | https://lists.gnu.org/r/emacs-devel/2010-03/msg00211.html |
| 12754 | 12754 | ||
| 12755 | * image.el (image-animate-max-time): New defcustom. | 12755 | * image.el (image-animate-max-time): New defcustom. |
| 12756 | (image-animated-types): New defconst. | 12756 | (image-animated-types): New defconst. |
| @@ -13908,7 +13908,7 @@ | |||
| 13908 | positions by using `bookmark-bmenu-marks-width', instead of hardcoding. | 13908 | positions by using `bookmark-bmenu-marks-width', instead of hardcoding. |
| 13909 | This fixes the `bookmark-bmenu-execute-deletions' bug reported here: | 13909 | This fixes the `bookmark-bmenu-execute-deletions' bug reported here: |
| 13910 | 13910 | ||
| 13911 | https://lists.gnu.org/archive/html/emacs-devel/2009-12/msg00819.html | 13911 | https://lists.gnu.org/r/emacs-devel/2009-12/msg00819.html |
| 13912 | From: Sun Yijiang <sunyijiang {_AT_} gmail.com> | 13912 | From: Sun Yijiang <sunyijiang {_AT_} gmail.com> |
| 13913 | To: emacs-devel {_AT_} gnu.org | 13913 | To: emacs-devel {_AT_} gnu.org |
| 13914 | Subject: bookmark.el bug report | 13914 | Subject: bookmark.el bug report |
| @@ -19816,7 +19816,7 @@ | |||
| 19816 | * files.el (find-alternate-file): If the old buffer is modified | 19816 | * files.el (find-alternate-file): If the old buffer is modified |
| 19817 | and visiting a file, behave similarly to `kill-buffer' when | 19817 | and visiting a file, behave similarly to `kill-buffer' when |
| 19818 | killing it, thus reverting to the pre-1.878 behavior; see | 19818 | killing it, thus reverting to the pre-1.878 behavior; see |
| 19819 | https://lists.gnu.org/archive/html/emacs-devel/2009-09/msg00101.html | 19819 | https://lists.gnu.org/r/emacs-devel/2009-09/msg00101.html |
| 19820 | for discussion. Also, consult `buffer-file-name' as a variable | 19820 | for discussion. Also, consult `buffer-file-name' as a variable |
| 19821 | not as a function, for consistency with the rest of the code. | 19821 | not as a function, for consistency with the rest of the code. |
| 19822 | 19822 | ||
diff --git a/lisp/ChangeLog.16 b/lisp/ChangeLog.16 index 33bd9a03323..dcf2fd071d0 100644 --- a/lisp/ChangeLog.16 +++ b/lisp/ChangeLog.16 | |||
| @@ -1371,7 +1371,7 @@ | |||
| 1371 | 1371 | ||
| 1372 | * frame.el (toggle-frame-maximized, toggle-frame-fullscreen): | 1372 | * frame.el (toggle-frame-maximized, toggle-frame-fullscreen): |
| 1373 | Use fullboth as an alias for fullscreen. Suggested by Jan Djärv in | 1373 | Use fullboth as an alias for fullscreen. Suggested by Jan Djärv in |
| 1374 | <https://lists.gnu.org/archive/html/emacs-devel/2013-01/msg00203.html>. | 1374 | <https://lists.gnu.org/r/emacs-devel/2013-01/msg00203.html>. |
| 1375 | 1375 | ||
| 1376 | 2013-01-30 Stefan Monnier <monnier@iro.umontreal.ca> | 1376 | 2013-01-30 Stefan Monnier <monnier@iro.umontreal.ca> |
| 1377 | 1377 | ||
| @@ -2422,7 +2422,7 @@ | |||
| 2422 | 2422 | ||
| 2423 | * epg.el: Support pinentry-curses. | 2423 | * epg.el: Support pinentry-curses. |
| 2424 | Suggested by Werner Koch in | 2424 | Suggested by Werner Koch in |
| 2425 | <https://lists.gnu.org/archive/html/emacs-devel/2007-02/msg00755.html>. | 2425 | <https://lists.gnu.org/r/emacs-devel/2007-02/msg00755.html>. |
| 2426 | (epg-agent-file, epg-agent-mtime): New variable. | 2426 | (epg-agent-file, epg-agent-mtime): New variable. |
| 2427 | (epg--start): Record the modified time of gpg-agent socket file, | 2427 | (epg--start): Record the modified time of gpg-agent socket file, |
| 2428 | to restore Emacs frame after pinentry-curses termination. | 2428 | to restore Emacs frame after pinentry-curses termination. |
| @@ -2448,7 +2448,7 @@ | |||
| 2448 | (toggle-frame-maximized): Rewrite and bind to M-<f10>. | 2448 | (toggle-frame-maximized): Rewrite and bind to M-<f10>. |
| 2449 | (toggle-frame-fullscreen): New command bound to <f11> instead of | 2449 | (toggle-frame-fullscreen): New command bound to <f11> instead of |
| 2450 | `toggle-frame-maximized'. | 2450 | `toggle-frame-maximized'. |
| 2451 | https://lists.gnu.org/archive/html/emacs-devel/2012-12/msg00703.html | 2451 | https://lists.gnu.org/r/emacs-devel/2012-12/msg00703.html |
| 2452 | 2452 | ||
| 2453 | 2012-12-27 Michael Albinus <michael.albinus@gmx.de> | 2453 | 2012-12-27 Michael Albinus <michael.albinus@gmx.de> |
| 2454 | 2454 | ||
| @@ -2686,7 +2686,7 @@ | |||
| 2686 | (isearch-insert-char-by-name): New command. | 2686 | (isearch-insert-char-by-name): New command. |
| 2687 | * international/mule-cmds.el (read-char-by-name): Let-bind | 2687 | * international/mule-cmds.el (read-char-by-name): Let-bind |
| 2688 | `enable-recursive-minibuffers' to t. | 2688 | `enable-recursive-minibuffers' to t. |
| 2689 | https://lists.gnu.org/archive/html/emacs-devel/2012-12/msg00234.html | 2689 | https://lists.gnu.org/r/emacs-devel/2012-12/msg00234.html |
| 2690 | 2690 | ||
| 2691 | 2012-12-15 Juri Linkov <juri@jurta.org> | 2691 | 2012-12-15 Juri Linkov <juri@jurta.org> |
| 2692 | 2692 | ||
| @@ -4831,7 +4831,7 @@ | |||
| 4831 | * progmodes/compile.el (compilation-error-regexp-alist-alist): | 4831 | * progmodes/compile.el (compilation-error-regexp-alist-alist): |
| 4832 | Adjust the msft regexp to the output of Studio 2010, and move msft | 4832 | Adjust the msft regexp to the output of Studio 2010, and move msft |
| 4833 | before edg-1. See the discussion on emacs-devel, | 4833 | before edg-1. See the discussion on emacs-devel, |
| 4834 | https://lists.gnu.org/archive/html/emacs-devel/2012-09/msg00579.html, | 4834 | https://lists.gnu.org/r/emacs-devel/2012-09/msg00579.html, |
| 4835 | for the details. | 4835 | for the details. |
| 4836 | 4836 | ||
| 4837 | 2012-10-14 Stefan Monnier <monnier@iro.umontreal.ca> | 4837 | 2012-10-14 Stefan Monnier <monnier@iro.umontreal.ca> |
| @@ -5453,7 +5453,7 @@ | |||
| 5453 | 5453 | ||
| 5454 | * profiler.el (profiler-sampling-interval): Change default back to 1. | 5454 | * profiler.el (profiler-sampling-interval): Change default back to 1. |
| 5455 | See Stefan Monnier in | 5455 | See Stefan Monnier in |
| 5456 | <https://lists.gnu.org/archive/html/emacs-devel/2012-09/msg00863.html>. | 5456 | <https://lists.gnu.org/r/emacs-devel/2012-09/msg00863.html>. |
| 5457 | 5457 | ||
| 5458 | 2012-10-01 Fabián Ezequiel Gallina <fgallina@cuca> | 5458 | 2012-10-01 Fabián Ezequiel Gallina <fgallina@cuca> |
| 5459 | 5459 | ||
| @@ -6641,7 +6641,7 @@ | |||
| 6641 | search-whitespace-regexp if isearch-lax-whitespace or | 6641 | search-whitespace-regexp if isearch-lax-whitespace or |
| 6642 | isearch-regexp-lax-whitespace is non-nil. | 6642 | isearch-regexp-lax-whitespace is non-nil. |
| 6643 | (Info-mode): Don't set local variable search-whitespace-regexp. | 6643 | (Info-mode): Don't set local variable search-whitespace-regexp. |
| 6644 | https://lists.gnu.org/archive/html/emacs-devel/2012-08/msg00811.html | 6644 | https://lists.gnu.org/r/emacs-devel/2012-08/msg00811.html |
| 6645 | 6645 | ||
| 6646 | 2012-09-12 Stefan Monnier <monnier@iro.umontreal.ca> | 6646 | 2012-09-12 Stefan Monnier <monnier@iro.umontreal.ca> |
| 6647 | 6647 | ||
| @@ -7037,7 +7037,7 @@ | |||
| 7037 | 2012-09-02 Juri Linkov <juri@jurta.org> | 7037 | 2012-09-02 Juri Linkov <juri@jurta.org> |
| 7038 | 7038 | ||
| 7039 | Toggle whitespace matching mode with M-s SPC. | 7039 | Toggle whitespace matching mode with M-s SPC. |
| 7040 | https://lists.gnu.org/archive/html/emacs-devel/2012-09/msg00008.html | 7040 | https://lists.gnu.org/r/emacs-devel/2012-09/msg00008.html |
| 7041 | 7041 | ||
| 7042 | * isearch.el (search-whitespace-regexp): Doc fix. | 7042 | * isearch.el (search-whitespace-regexp): Doc fix. |
| 7043 | Remove cons cell customization. | 7043 | Remove cons cell customization. |
| @@ -8109,7 +8109,7 @@ | |||
| 8109 | 8109 | ||
| 8110 | * whitespace.el (whitespace-display-mappings): Use Unicode | 8110 | * whitespace.el (whitespace-display-mappings): Use Unicode |
| 8111 | codepoints, instead of emacs-mule codepoints. See | 8111 | codepoints, instead of emacs-mule codepoints. See |
| 8112 | https://lists.gnu.org/archive/html/help-gnu-emacs/2012-07/msg00366.html | 8112 | https://lists.gnu.org/r/help-gnu-emacs/2012-07/msg00366.html |
| 8113 | for the details. | 8113 | for the details. |
| 8114 | 8114 | ||
| 8115 | * files.el (file-truename): Don't skip symlink-chasing part on | 8115 | * files.el (file-truename): Don't skip symlink-chasing part on |
| @@ -8513,7 +8513,7 @@ | |||
| 8513 | * startup.el (command-line): Don't display an empty user name in | 8513 | * startup.el (command-line): Don't display an empty user name in |
| 8514 | the error message about non-existent home directory, when | 8514 | the error message about non-existent home directory, when |
| 8515 | init-file-user was set to an empty string. See | 8515 | init-file-user was set to an empty string. See |
| 8516 | https://lists.gnu.org/archive/html/bug-gnu-emacs/2012-07/msg00835.html | 8516 | https://lists.gnu.org/r/bug-gnu-emacs/2012-07/msg00835.html |
| 8517 | for the details and context. | 8517 | for the details and context. |
| 8518 | 8518 | ||
| 8519 | 2012-07-22 Vincent Belaïche <vincentb1@users.sourceforge.net> | 8519 | 2012-07-22 Vincent Belaïche <vincentb1@users.sourceforge.net> |
| @@ -9419,7 +9419,7 @@ | |||
| 9419 | 9419 | ||
| 9420 | * calendar/calendar.el (calendar-exit): Don't try to delete or | 9420 | * calendar/calendar.el (calendar-exit): Don't try to delete or |
| 9421 | iconify last frame. See: | 9421 | iconify last frame. See: |
| 9422 | https://lists.gnu.org/archive/html/emacs-devel/2012-06/msg00372.html | 9422 | https://lists.gnu.org/r/emacs-devel/2012-06/msg00372.html |
| 9423 | 9423 | ||
| 9424 | 2012-06-25 Jim Diamond <Jim.Diamond@AcadiaU.ca> (tiny change) | 9424 | 2012-06-25 Jim Diamond <Jim.Diamond@AcadiaU.ca> (tiny change) |
| 9425 | 9425 | ||
| @@ -10430,7 +10430,7 @@ | |||
| 10430 | * descr-text.el (describe-char): Mention how to insert the | 10430 | * descr-text.el (describe-char): Mention how to insert the |
| 10431 | character, if the current input method doesn't support it. | 10431 | character, if the current input method doesn't support it. |
| 10432 | See the discussion in this thread for the details: | 10432 | See the discussion in this thread for the details: |
| 10433 | https://lists.gnu.org/archive/html/emacs-devel/2012-05/msg00533.html. | 10433 | https://lists.gnu.org/r/emacs-devel/2012-05/msg00533.html. |
| 10434 | 10434 | ||
| 10435 | 2012-06-08 Sam Steingold <sds@gnu.org> | 10435 | 2012-06-08 Sam Steingold <sds@gnu.org> |
| 10436 | 10436 | ||
| @@ -13909,7 +13909,7 @@ | |||
| 13909 | Insert invisible LRM characters before each character in a keyboard | 13909 | Insert invisible LRM characters before each character in a keyboard |
| 13910 | layout cell, to prevent their reordering by bidi display engine. | 13910 | layout cell, to prevent their reordering by bidi display engine. |
| 13911 | For details, see the discussion in | 13911 | For details, see the discussion in |
| 13912 | https://lists.gnu.org/archive/html/emacs-devel/2012-03/msg00085.html. | 13912 | https://lists.gnu.org/r/emacs-devel/2012-03/msg00085.html. |
| 13913 | 13913 | ||
| 13914 | 2012-03-08 Alan Mackenzie <acm@muc.de> | 13914 | 2012-03-08 Alan Mackenzie <acm@muc.de> |
| 13915 | 13915 | ||
| @@ -13927,7 +13927,7 @@ | |||
| 13927 | 13927 | ||
| 13928 | * international/quail.el (quail-help): | 13928 | * international/quail.el (quail-help): |
| 13929 | Force bidi-paragraph-direction be left-to-right. See discussion in | 13929 | Force bidi-paragraph-direction be left-to-right. See discussion in |
| 13930 | https://lists.gnu.org/archive/html/emacs-devel/2012-03/msg00062.html | 13930 | https://lists.gnu.org/r/emacs-devel/2012-03/msg00062.html |
| 13931 | for the reason. | 13931 | for the reason. |
| 13932 | 13932 | ||
| 13933 | 2012-03-07 Michael Albinus <michael.albinus@gmx.de> | 13933 | 2012-03-07 Michael Albinus <michael.albinus@gmx.de> |
| @@ -15004,7 +15004,7 @@ | |||
| 15004 | 15004 | ||
| 15005 | * descr-text.el (describe-char): Show the raw character, not only | 15005 | * descr-text.el (describe-char): Show the raw character, not only |
| 15006 | its display form at POS. Suggested by Kenichi Handa <handa@m17n.org>. | 15006 | its display form at POS. Suggested by Kenichi Handa <handa@m17n.org>. |
| 15007 | See https://lists.gnu.org/archive/html/emacs-devel/2012-01/msg00760.html | 15007 | See https://lists.gnu.org/r/emacs-devel/2012-01/msg00760.html |
| 15008 | for the reasons. | 15008 | for the reasons. |
| 15009 | 15009 | ||
| 15010 | 2012-01-28 Phil Hagelberg <phil@hagelb.org> | 15010 | 2012-01-28 Phil Hagelberg <phil@hagelb.org> |
| @@ -15362,7 +15362,7 @@ | |||
| 15362 | * time.el (display-time-load-average) | 15362 | * time.el (display-time-load-average) |
| 15363 | (display-time-default-load-average): Doc fixes. See the thread | 15363 | (display-time-default-load-average): Doc fixes. See the thread |
| 15364 | starting at | 15364 | starting at |
| 15365 | https://lists.gnu.org/archive/html/help-gnu-emacs/2012-01/msg00059.html | 15365 | https://lists.gnu.org/r/help-gnu-emacs/2012-01/msg00059.html |
| 15366 | for the details. | 15366 | for the details. |
| 15367 | 15367 | ||
| 15368 | 2012-01-06 Glenn Morris <rgm@gnu.org> | 15368 | 2012-01-06 Glenn Morris <rgm@gnu.org> |
| @@ -15769,7 +15769,7 @@ | |||
| 15769 | (texinfo-insert-master-menu-list): Improve the error message | 15769 | (texinfo-insert-master-menu-list): Improve the error message |
| 15770 | displayed if there's no menu in the Top node. | 15770 | displayed if there's no menu in the Top node. |
| 15771 | (Bug#2975) See also this thread: | 15771 | (Bug#2975) See also this thread: |
| 15772 | https://lists.gnu.org/archive/html/emacs-devel/2011-12/msg00156.html. | 15772 | https://lists.gnu.org/r/emacs-devel/2011-12/msg00156.html. |
| 15773 | 15773 | ||
| 15774 | 2011-12-09 Manuel Gómez <mgrojo@gmail.com> (tiny change) | 15774 | 2011-12-09 Manuel Gómez <mgrojo@gmail.com> (tiny change) |
| 15775 | 15775 | ||
| @@ -24381,7 +24381,7 @@ | |||
| 24381 | 24381 | ||
| 24382 | * help-fns.el (describe-variable): Complete all variables having | 24382 | * help-fns.el (describe-variable): Complete all variables having |
| 24383 | documentation, including keywords. | 24383 | documentation, including keywords. |
| 24384 | https://lists.gnu.org/archive/html/emacs-devel/2011-04/msg00112.html | 24384 | https://lists.gnu.org/r/emacs-devel/2011-04/msg00112.html |
| 24385 | 24385 | ||
| 24386 | 2011-04-04 Juanma Barranquero <lekktu@gmail.com> | 24386 | 2011-04-04 Juanma Barranquero <lekktu@gmail.com> |
| 24387 | 24387 | ||
diff --git a/lisp/ChangeLog.17 b/lisp/ChangeLog.17 index bb3375be9a6..b2d315c53f3 100644 --- a/lisp/ChangeLog.17 +++ b/lisp/ChangeLog.17 | |||
| @@ -3598,7 +3598,7 @@ | |||
| 3598 | 3598 | ||
| 3599 | * comint.el (comint-history-isearch-message): Use field-beginning | 3599 | * comint.el (comint-history-isearch-message): Use field-beginning |
| 3600 | instead of comint-line-beginning-position - that's more fixes for | 3600 | instead of comint-line-beginning-position - that's more fixes for |
| 3601 | https://lists.gnu.org/archive/html/emacs-devel/2014-12/msg00305.html | 3601 | https://lists.gnu.org/r/emacs-devel/2014-12/msg00305.html |
| 3602 | (comint-history-isearch-message): Fix args of isearch-message-prefix. | 3602 | (comint-history-isearch-message): Fix args of isearch-message-prefix. |
| 3603 | 3603 | ||
| 3604 | 2014-12-29 Juri Linkov <juri@linkov.net> | 3604 | 2014-12-29 Juri Linkov <juri@linkov.net> |
| @@ -3698,7 +3698,7 @@ | |||
| 3698 | 3698 | ||
| 3699 | * language/misc-lang.el (composition-function-table): Add Syriac | 3699 | * language/misc-lang.el (composition-function-table): Add Syriac |
| 3700 | characters and also ZWJ/ZWNJ. | 3700 | characters and also ZWJ/ZWNJ. |
| 3701 | See https://lists.gnu.org/archive/html/help-gnu-emacs/2014-12/msg00248.html | 3701 | See https://lists.gnu.org/r/help-gnu-emacs/2014-12/msg00248.html |
| 3702 | for the details. | 3702 | for the details. |
| 3703 | 3703 | ||
| 3704 | 2014-12-27 Fabián Ezequiel Gallina <fgallina@gnu.org> | 3704 | 2014-12-27 Fabián Ezequiel Gallina <fgallina@gnu.org> |
| @@ -4489,14 +4489,14 @@ | |||
| 4489 | comint-line-beginning-position. | 4489 | comint-line-beginning-position. |
| 4490 | (comint-send-input): Go to the end of the field instead of the end | 4490 | (comint-send-input): Go to the end of the field instead of the end |
| 4491 | of the line to accept whole multi-line input. | 4491 | of the line to accept whole multi-line input. |
| 4492 | https://lists.gnu.org/archive/html/emacs-devel/2014-12/msg00305.html | 4492 | https://lists.gnu.org/r/emacs-devel/2014-12/msg00305.html |
| 4493 | 4493 | ||
| 4494 | 2014-12-05 Juri Linkov <juri@linkov.net> | 4494 | 2014-12-05 Juri Linkov <juri@linkov.net> |
| 4495 | 4495 | ||
| 4496 | * minibuffer.el (minibuffer-completion-help): | 4496 | * minibuffer.el (minibuffer-completion-help): |
| 4497 | Compare selected-window with minibuffer-window to check whether | 4497 | Compare selected-window with minibuffer-window to check whether |
| 4498 | completions should be displayed near the minibuffer. (Bug#17809) | 4498 | completions should be displayed near the minibuffer. (Bug#17809) |
| 4499 | https://lists.gnu.org/archive/html/emacs-devel/2014-12/msg00311.html | 4499 | https://lists.gnu.org/r/emacs-devel/2014-12/msg00311.html |
| 4500 | 4500 | ||
| 4501 | 2014-12-05 Michael Albinus <michael.albinus@gmx.de> | 4501 | 2014-12-05 Michael Albinus <michael.albinus@gmx.de> |
| 4502 | 4502 | ||
| @@ -4605,7 +4605,7 @@ | |||
| 4605 | the remote repository were unreachable, because the VC hooks tried | 4605 | the remote repository were unreachable, because the VC hooks tried |
| 4606 | to run "svn status -u" on the file, where the "-u" tells svn to | 4606 | to run "svn status -u" on the file, where the "-u" tells svn to |
| 4607 | get update information from the remote repository. | 4607 | get update information from the remote repository. |
| 4608 | https://lists.gnu.org/archive/html/emacs-devel/2014-12/msg00174.html | 4608 | https://lists.gnu.org/r/emacs-devel/2014-12/msg00174.html |
| 4609 | 4609 | ||
| 4610 | * vc/vc-svn.el (vc-svn-state): Remove optional `localp' | 4610 | * vc/vc-svn.el (vc-svn-state): Remove optional `localp' |
| 4611 | argument and always pass "-v" to "svn status", never "-u". | 4611 | argument and always pass "-v" to "svn status", never "-u". |
| @@ -5306,7 +5306,7 @@ | |||
| 5306 | (query-replace-read-from): Call custom-reevaluate-setting on | 5306 | (query-replace-read-from): Call custom-reevaluate-setting on |
| 5307 | query-replace-from-to-separator to reevaluate the separator | 5307 | query-replace-from-to-separator to reevaluate the separator |
| 5308 | depending on the return value of char-displayable-p. | 5308 | depending on the return value of char-displayable-p. |
| 5309 | https://lists.gnu.org/archive/html/emacs-devel/2014-11/msg00466.html | 5309 | https://lists.gnu.org/r/emacs-devel/2014-11/msg00466.html |
| 5310 | 5310 | ||
| 5311 | 2014-11-18 Juri Linkov <juri@linkov.net> | 5311 | 2014-11-18 Juri Linkov <juri@linkov.net> |
| 5312 | 5312 | ||
| @@ -5316,7 +5316,7 @@ | |||
| 5316 | 5316 | ||
| 5317 | * simple.el (next-line-or-history-element) | 5317 | * simple.el (next-line-or-history-element) |
| 5318 | (previous-line-or-history-element): New commands. | 5318 | (previous-line-or-history-element): New commands. |
| 5319 | https://lists.gnu.org/archive/html/emacs-devel/2014-11/msg00822.html | 5319 | https://lists.gnu.org/r/emacs-devel/2014-11/msg00822.html |
| 5320 | 5320 | ||
| 5321 | 2014-11-18 Leo Liu <sdl.web@gmail.com> | 5321 | 2014-11-18 Leo Liu <sdl.web@gmail.com> |
| 5322 | 5322 | ||
| @@ -5441,7 +5441,7 @@ | |||
| 5441 | 5441 | ||
| 5442 | Improve time stamp handling, and be more consistent about it. | 5442 | Improve time stamp handling, and be more consistent about it. |
| 5443 | This implements a suggestion made in: | 5443 | This implements a suggestion made in: |
| 5444 | https://lists.gnu.org/archive/html/emacs-devel/2014-10/msg00587.html | 5444 | https://lists.gnu.org/r/emacs-devel/2014-10/msg00587.html |
| 5445 | Among other things, this means timer.el no longer needs to | 5445 | Among other things, this means timer.el no longer needs to |
| 5446 | autoload the time-date module. | 5446 | autoload the time-date module. |
| 5447 | * allout-widgets.el (allout-elapsed-time-seconds): Doc fix. | 5447 | * allout-widgets.el (allout-elapsed-time-seconds): Doc fix. |
| @@ -5682,7 +5682,7 @@ | |||
| 5682 | 2014-11-10 Sylvain Chouleur <sylvain.chouleur@gmail.com> (tiny change) | 5682 | 2014-11-10 Sylvain Chouleur <sylvain.chouleur@gmail.com> (tiny change) |
| 5683 | 5683 | ||
| 5684 | Allow VTIMEZONE where daylight and standard time zones are equal. | 5684 | Allow VTIMEZONE where daylight and standard time zones are equal. |
| 5685 | See: https://lists.gnu.org/archive/html/emacs-devel/2014-11/msg00494.html | 5685 | See: https://lists.gnu.org/r/emacs-devel/2014-11/msg00494.html |
| 5686 | * calendar/icalendar.el (icalendar--convert-tz-offset): | 5686 | * calendar/icalendar.el (icalendar--convert-tz-offset): |
| 5687 | Support timezone without daylight saving time. | 5687 | Support timezone without daylight saving time. |
| 5688 | 5688 | ||
| @@ -5813,7 +5813,7 @@ | |||
| 5813 | to the history variables. | 5813 | to the history variables. |
| 5814 | (query-replace-read-to): Add FROM-TO pairs to query-replace-defaults. | 5814 | (query-replace-read-to): Add FROM-TO pairs to query-replace-defaults. |
| 5815 | (query-replace-regexp-eval): Let-bind query-replace-defaults to nil. | 5815 | (query-replace-regexp-eval): Let-bind query-replace-defaults to nil. |
| 5816 | https://lists.gnu.org/archive/html/emacs-devel/2014-11/msg00253.html | 5816 | https://lists.gnu.org/r/emacs-devel/2014-11/msg00253.html |
| 5817 | 5817 | ||
| 5818 | * isearch.el (isearch-text-char-description): Keep characters | 5818 | * isearch.el (isearch-text-char-description): Keep characters |
| 5819 | intact and put formatted strings with the `display' property. | 5819 | intact and put formatted strings with the `display' property. |
| @@ -7565,7 +7565,7 @@ | |||
| 7565 | (lisp--form-quoted-p): New functions. | 7565 | (lisp--form-quoted-p): New functions. |
| 7566 | (lisp-completion-at-point): Use them to see if we're completing a | 7566 | (lisp-completion-at-point): Use them to see if we're completing a |
| 7567 | variable reference, a function name, or just any symbol. | 7567 | variable reference, a function name, or just any symbol. |
| 7568 | https://lists.gnu.org/archive/html/emacs-devel/2014-02/msg00229.html | 7568 | https://lists.gnu.org/r/emacs-devel/2014-02/msg00229.html |
| 7569 | 7569 | ||
| 7570 | 2014-09-18 Ivan Kanis <ivan@kanis.fr> | 7570 | 2014-09-18 Ivan Kanis <ivan@kanis.fr> |
| 7571 | 7571 | ||
| @@ -9937,7 +9937,7 @@ | |||
| 9937 | `window-configuration-change-hook'. | 9937 | `window-configuration-change-hook'. |
| 9938 | (desktop-auto-save-set-timer): Change REPEAT arg of | 9938 | (desktop-auto-save-set-timer): Change REPEAT arg of |
| 9939 | `run-with-idle-timer' from t to nil. | 9939 | `run-with-idle-timer' from t to nil. |
| 9940 | https://lists.gnu.org/archive/html/emacs-devel/2014-06/msg00147.html | 9940 | https://lists.gnu.org/r/emacs-devel/2014-06/msg00147.html |
| 9941 | 9941 | ||
| 9942 | 2014-06-08 Santiago Payà i Miralta <santiagopim@gmail.com> | 9942 | 2014-06-08 Santiago Payà i Miralta <santiagopim@gmail.com> |
| 9943 | 9943 | ||
| @@ -10488,7 +10488,7 @@ | |||
| 10488 | * emacs-lisp/package.el (package-generate-description-file): | 10488 | * emacs-lisp/package.el (package-generate-description-file): |
| 10489 | Output first-line comment to set buffer-local var `no-byte-compile'. | 10489 | Output first-line comment to set buffer-local var `no-byte-compile'. |
| 10490 | Suggested by Dmitry Gutov: | 10490 | Suggested by Dmitry Gutov: |
| 10491 | <https://lists.gnu.org/archive/html/emacs-devel/2014-05/msg00401.html>. | 10491 | <https://lists.gnu.org/r/emacs-devel/2014-05/msg00401.html>. |
| 10492 | 10492 | ||
| 10493 | 2014-05-25 Thien-Thi Nguyen <ttn@gnu.org> | 10493 | 2014-05-25 Thien-Thi Nguyen <ttn@gnu.org> |
| 10494 | 10494 | ||
| @@ -12170,7 +12170,7 @@ | |||
| 12170 | to `comment-start-skip' if not `comment-use-syntax'. (Bug#16971) | 12170 | to `comment-start-skip' if not `comment-use-syntax'. (Bug#16971) |
| 12171 | (comment-beginning): Use `narrow-to-region' instead of moving back | 12171 | (comment-beginning): Use `narrow-to-region' instead of moving back |
| 12172 | one character. | 12172 | one character. |
| 12173 | (https://lists.gnu.org/archive/html/emacs-devel/2014-03/msg00488.html) | 12173 | (https://lists.gnu.org/r/emacs-devel/2014-03/msg00488.html) |
| 12174 | (comment-start-skip): Update the docstring. | 12174 | (comment-start-skip): Update the docstring. |
| 12175 | 12175 | ||
| 12176 | 2014-03-18 Richard Stallman <rms@gnu.org> | 12176 | 2014-03-18 Richard Stallman <rms@gnu.org> |
| @@ -12467,7 +12467,7 @@ | |||
| 12467 | from `xterm-standard-colors' that look well on the default white | 12467 | from `xterm-standard-colors' that look well on the default white |
| 12468 | background (and also on the black background) to avoid illegible | 12468 | background (and also on the black background) to avoid illegible |
| 12469 | color combinations like yellow-on-white and white-on-white. | 12469 | color combinations like yellow-on-white and white-on-white. |
| 12470 | https://lists.gnu.org/archive/html/emacs-devel/2014-02/msg00157.html | 12470 | https://lists.gnu.org/r/emacs-devel/2014-02/msg00157.html |
| 12471 | 12471 | ||
| 12472 | 2014-03-08 Juanma Barranquero <lekktu@gmail.com> | 12472 | 2014-03-08 Juanma Barranquero <lekktu@gmail.com> |
| 12473 | 12473 | ||
| @@ -13224,7 +13224,7 @@ | |||
| 13224 | 2014-02-12 Dmitry Gutov <dgutov@yandex.ru> | 13224 | 2014-02-12 Dmitry Gutov <dgutov@yandex.ru> |
| 13225 | 13225 | ||
| 13226 | * progmodes/js.el (js-indent-line): Don't widen. | 13226 | * progmodes/js.el (js-indent-line): Don't widen. |
| 13227 | https://lists.gnu.org/archive/html/emacs-devel/2012-06/msg00276.html | 13227 | https://lists.gnu.org/r/emacs-devel/2012-06/msg00276.html |
| 13228 | 13228 | ||
| 13229 | 2014-02-12 Glenn Morris <rgm@gnu.org> | 13229 | 2014-02-12 Glenn Morris <rgm@gnu.org> |
| 13230 | 13230 | ||
| @@ -13965,7 +13965,7 @@ | |||
| 13965 | choices. | 13965 | choices. |
| 13966 | (ruby-smie-rules): Instead of using a hardcoded list of alignable | 13966 | (ruby-smie-rules): Instead of using a hardcoded list of alignable |
| 13967 | keywords, check against the value of `ruby-alignable-keywords' | 13967 | keywords, check against the value of `ruby-alignable-keywords' |
| 13968 | (https://lists.gnu.org/archive/html/emacs-devel/2014-01/msg01439.html). | 13968 | (https://lists.gnu.org/r/emacs-devel/2014-01/msg01439.html). |
| 13969 | 13969 | ||
| 13970 | 2014-01-17 Glenn Morris <rgm@gnu.org> | 13970 | 2014-01-17 Glenn Morris <rgm@gnu.org> |
| 13971 | 13971 | ||
| @@ -15408,7 +15408,7 @@ | |||
| 15408 | * simple.el (blink-matching--overlay): New variable. | 15408 | * simple.el (blink-matching--overlay): New variable. |
| 15409 | (blink-matching-open): Instead of moving point, highlight the | 15409 | (blink-matching-open): Instead of moving point, highlight the |
| 15410 | matching paren with an overlay | 15410 | matching paren with an overlay |
| 15411 | (https://lists.gnu.org/archive/html/emacs-devel/2013-12/msg00333.html). | 15411 | (https://lists.gnu.org/r/emacs-devel/2013-12/msg00333.html). |
| 15412 | 15412 | ||
| 15413 | * faces.el (paren-showing-faces, show-paren-match) | 15413 | * faces.el (paren-showing-faces, show-paren-match) |
| 15414 | (show-paren-mismatch): Move from paren.el. | 15414 | (show-paren-mismatch): Move from paren.el. |
| @@ -16628,7 +16628,7 @@ | |||
| 16628 | 16628 | ||
| 16629 | * textmodes/ispell.el (ispell-lookup-words): When `look' is not | 16629 | * textmodes/ispell.el (ispell-lookup-words): When `look' is not |
| 16630 | available and the word has no wildcards, append one to the grep pattern. | 16630 | available and the word has no wildcards, append one to the grep pattern. |
| 16631 | https://lists.gnu.org/archive/html/emacs-devel/2013-11/msg00258.html | 16631 | https://lists.gnu.org/r/emacs-devel/2013-11/msg00258.html |
| 16632 | (ispell-complete-word): Call `ispell-lookup-words' with the value | 16632 | (ispell-complete-word): Call `ispell-lookup-words' with the value |
| 16633 | independent of `ispell-look-p'. | 16633 | independent of `ispell-look-p'. |
| 16634 | 16634 | ||
| @@ -18282,7 +18282,7 @@ | |||
| 18282 | 18282 | ||
| 18283 | * emacs-lisp/package.el (package-buffer-info, describe-package-1): | 18283 | * emacs-lisp/package.el (package-buffer-info, describe-package-1): |
| 18284 | Use :url instead of :homepage, as per | 18284 | Use :url instead of :homepage, as per |
| 18285 | https://lists.gnu.org/archive/html/emacs-devel/2013-09/msg00622.html | 18285 | https://lists.gnu.org/r/emacs-devel/2013-09/msg00622.html |
| 18286 | 18286 | ||
| 18287 | * newcomment.el (comment-beginning): When `comment-use-syntax' is | 18287 | * newcomment.el (comment-beginning): When `comment-use-syntax' is |
| 18288 | non-nil, use `syntax-ppss' (Bug#15251). | 18288 | non-nil, use `syntax-ppss' (Bug#15251). |
| @@ -19828,7 +19828,7 @@ | |||
| 19828 | 19828 | ||
| 19829 | * xml.el (xml-parse-tag-1): Use looking-at (this reverts change in | 19829 | * xml.el (xml-parse-tag-1): Use looking-at (this reverts change in |
| 19830 | 2013-08-11T00:07:48Z!lekktu@gmail.com, which breaks the test suite). | 19830 | 2013-08-11T00:07:48Z!lekktu@gmail.com, which breaks the test suite). |
| 19831 | https://lists.gnu.org/archive/html/emacs-devel/2013-08/msg00263.html | 19831 | https://lists.gnu.org/r/emacs-devel/2013-08/msg00263.html |
| 19832 | 19832 | ||
| 19833 | 2013-08-12 Eli Zaretskii <eliz@gnu.org> | 19833 | 2013-08-12 Eli Zaretskii <eliz@gnu.org> |
| 19834 | 19834 | ||
| @@ -21942,7 +21942,7 @@ | |||
| 21942 | 2013-06-25 Martin Rudalics <rudalics@gmx.at> | 21942 | 2013-06-25 Martin Rudalics <rudalics@gmx.at> |
| 21943 | 21943 | ||
| 21944 | * window.el (window--state-get-1): Workaround for bug#14527. | 21944 | * window.el (window--state-get-1): Workaround for bug#14527. |
| 21945 | https://lists.gnu.org/archive/html/emacs-devel/2013-06/msg00941.html | 21945 | https://lists.gnu.org/r/emacs-devel/2013-06/msg00941.html |
| 21946 | 21946 | ||
| 21947 | 2013-06-25 Lars Magne Ingebrigtsen <larsi@gnus.org> | 21947 | 2013-06-25 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 21948 | 21948 | ||
| @@ -22055,7 +22055,7 @@ | |||
| 22055 | 22055 | ||
| 22056 | * progmodes/ruby-mode.el (ruby-font-lock-keywords): Move `catch', | 22056 | * progmodes/ruby-mode.el (ruby-font-lock-keywords): Move `catch', |
| 22057 | add some more keyword-like methods. | 22057 | add some more keyword-like methods. |
| 22058 | https://lists.gnu.org/archive/html/emacs-devel/2013-06/msg00911.html | 22058 | https://lists.gnu.org/r/emacs-devel/2013-06/msg00911.html |
| 22059 | 22059 | ||
| 22060 | 2013-06-22 Juanma Barranquero <lekktu@gmail.com> | 22060 | 2013-06-22 Juanma Barranquero <lekktu@gmail.com> |
| 22061 | 22061 | ||
| @@ -22674,7 +22674,7 @@ | |||
| 22674 | 2013-06-18 Matthias Meulien <orontee@gmail.com> | 22674 | 2013-06-18 Matthias Meulien <orontee@gmail.com> |
| 22675 | 22675 | ||
| 22676 | * tabify.el (untabify, tabify): With prefix, apply to entire buffer. | 22676 | * tabify.el (untabify, tabify): With prefix, apply to entire buffer. |
| 22677 | <https://lists.gnu.org/archive/html/emacs-devel/2013-03/msg00545.html> | 22677 | <https://lists.gnu.org/r/emacs-devel/2013-03/msg00545.html> |
| 22678 | 22678 | ||
| 22679 | 2013-06-18 Glenn Morris <rgm@gnu.org> | 22679 | 2013-06-18 Glenn Morris <rgm@gnu.org> |
| 22680 | 22680 | ||
| @@ -22704,7 +22704,7 @@ | |||
| 22704 | 22704 | ||
| 22705 | * emacs-lisp/package.el (package-load-descriptor): | 22705 | * emacs-lisp/package.el (package-load-descriptor): |
| 22706 | Remove `with-syntax-table' call, `read' doesn't need it. | 22706 | Remove `with-syntax-table' call, `read' doesn't need it. |
| 22707 | https://lists.gnu.org/archive/html/emacs-devel/2013-06/msg00539.html | 22707 | https://lists.gnu.org/r/emacs-devel/2013-06/msg00539.html |
| 22708 | 22708 | ||
| 22709 | 2013-06-17 Juanma Barranquero <lekktu@gmail.com> | 22709 | 2013-06-17 Juanma Barranquero <lekktu@gmail.com> |
| 22710 | 22710 | ||
| @@ -25118,7 +25118,7 @@ | |||
| 25118 | (desktop-auto-save, desktop-auto-save-set-timer): New functions. | 25118 | (desktop-auto-save, desktop-auto-save-set-timer): New functions. |
| 25119 | (after-init-hook): Call `desktop-auto-save-set-timer'. | 25119 | (after-init-hook): Call `desktop-auto-save-set-timer'. |
| 25120 | Suggested by Reuben Thomas <rrt@sc3d.org> in | 25120 | Suggested by Reuben Thomas <rrt@sc3d.org> in |
| 25121 | <https://lists.gnu.org/archive/html/emacs-devel/2013-04/msg00327.html>. | 25121 | <https://lists.gnu.org/r/emacs-devel/2013-04/msg00327.html>. |
| 25122 | 25122 | ||
| 25123 | 2013-04-27 Leo Liu <sdl.web@gmail.com> | 25123 | 2013-04-27 Leo Liu <sdl.web@gmail.com> |
| 25124 | 25124 | ||
| @@ -25144,7 +25144,7 @@ | |||
| 25144 | 25144 | ||
| 25145 | * ls-lisp.el (ls-lisp-insert-directory): If no files are | 25145 | * ls-lisp.el (ls-lisp-insert-directory): If no files are |
| 25146 | displayed, move point to after the totals line. | 25146 | displayed, move point to after the totals line. |
| 25147 | See https://lists.gnu.org/archive/html/emacs-devel/2013-04/msg00677.html | 25147 | See https://lists.gnu.org/r/emacs-devel/2013-04/msg00677.html |
| 25148 | for the details. | 25148 | for the details. |
| 25149 | 25149 | ||
| 25150 | 2013-04-27 Stefan Monnier <monnier@iro.umontreal.ca> | 25150 | 2013-04-27 Stefan Monnier <monnier@iro.umontreal.ca> |
| @@ -25757,7 +25757,7 @@ | |||
| 25757 | 25757 | ||
| 25758 | Do not set x-display-name until X connection is established. | 25758 | Do not set x-display-name until X connection is established. |
| 25759 | This is needed to prevent from weird situation described at | 25759 | This is needed to prevent from weird situation described at |
| 25760 | <https://lists.gnu.org/archive/html/emacs-devel/2013-04/msg00212.html>. | 25760 | <https://lists.gnu.org/r/emacs-devel/2013-04/msg00212.html>. |
| 25761 | * frame.el (make-frame): Set x-display-name after call to | 25761 | * frame.el (make-frame): Set x-display-name after call to |
| 25762 | window system initialization function, not before. | 25762 | window system initialization function, not before. |
| 25763 | * term/x-win.el (x-initialize-window-system): Add optional | 25763 | * term/x-win.el (x-initialize-window-system): Add optional |
| @@ -26079,7 +26079,7 @@ | |||
| 26079 | (batch-skkdic-convert): Suppress most of the chatter. | 26079 | (batch-skkdic-convert): Suppress most of the chatter. |
| 26080 | It's not needed so much now that machines are faster, | 26080 | It's not needed so much now that machines are faster, |
| 26081 | and its non-ASCII component was confusing; see Dmitry Gutov in | 26081 | and its non-ASCII component was confusing; see Dmitry Gutov in |
| 26082 | <https://lists.gnu.org/archive/html/emacs-devel/2013-03/msg00508.html>. | 26082 | <https://lists.gnu.org/r/emacs-devel/2013-03/msg00508.html>. |
| 26083 | 26083 | ||
| 26084 | 2013-03-20 Leo Liu <sdl.web@gmail.com> | 26084 | 2013-03-20 Leo Liu <sdl.web@gmail.com> |
| 26085 | 26085 | ||
| @@ -26223,7 +26223,7 @@ | |||
| 26223 | * startup.el (command-line-normalize-file-name): Fix handling of | 26223 | * startup.el (command-line-normalize-file-name): Fix handling of |
| 26224 | backslashes in DOS and Windows file names. Reported by Xue Fuqiao | 26224 | backslashes in DOS and Windows file names. Reported by Xue Fuqiao |
| 26225 | <xfq.free@gmail.com> in | 26225 | <xfq.free@gmail.com> in |
| 26226 | https://lists.gnu.org/archive/html/help-gnu-emacs/2013-03/msg00245.html. | 26226 | https://lists.gnu.org/r/help-gnu-emacs/2013-03/msg00245.html. |
| 26227 | 26227 | ||
| 26228 | 2013-03-15 Michael Albinus <michael.albinus@gmx.de> | 26228 | 2013-03-15 Michael Albinus <michael.albinus@gmx.de> |
| 26229 | 26229 | ||
diff --git a/lisp/Makefile.in b/lisp/Makefile.in index b628444aad1..de3dc186170 100644 --- a/lisp/Makefile.in +++ b/lisp/Makefile.in | |||
| @@ -132,13 +132,13 @@ PHONY_EXTRAS = | |||
| 132 | # This could lead to problems in parallel builds if automatically | 132 | # This could lead to problems in parallel builds if automatically |
| 133 | # generated *.el files (eg loaddefs etc) were being changed at the same time. | 133 | # generated *.el files (eg loaddefs etc) were being changed at the same time. |
| 134 | # One solution was to add autoloads as a prerequisite: | 134 | # One solution was to add autoloads as a prerequisite: |
| 135 | # https://lists.gnu.org/archive/html/emacs-pretest-bug/2007-01/msg00469.html | 135 | # https://lists.gnu.org/r/emacs-pretest-bug/2007-01/msg00469.html |
| 136 | # https://lists.gnu.org/archive/html/bug-gnu-emacs/2007-12/msg00171.html | 136 | # https://lists.gnu.org/r/bug-gnu-emacs/2007-12/msg00171.html |
| 137 | # However, this meant that running these targets modified loaddefs.el, | 137 | # However, this meant that running these targets modified loaddefs.el, |
| 138 | # every time (due to time-stamping). Calling these rules from | 138 | # every time (due to time-stamping). Calling these rules from |
| 139 | # bootstrap-after would modify loaddefs after src/emacs, resulting | 139 | # bootstrap-after would modify loaddefs after src/emacs, resulting |
| 140 | # in make install remaking src/emacs for no real reason: | 140 | # in make install remaking src/emacs for no real reason: |
| 141 | # https://lists.gnu.org/archive/html/emacs-devel/2008-02/msg00311.html | 141 | # https://lists.gnu.org/r/emacs-devel/2008-02/msg00311.html |
| 142 | # Nowadays these commands don't scan automatically generated files, | 142 | # Nowadays these commands don't scan automatically generated files, |
| 143 | # since they will never contain any useful information | 143 | # since they will never contain any useful information |
| 144 | # (see finder-no-scan-regexp and custom-dependencies-no-scan-regexp). | 144 | # (see finder-no-scan-regexp and custom-dependencies-no-scan-regexp). |
diff --git a/lisp/bindings.el b/lisp/bindings.el index 3a679f778ab..2b664044de8 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el | |||
| @@ -689,6 +689,7 @@ okay. See `mode-line-format'.") | |||
| 689 | ;; `kill-all-local-variables', because they have no default value. | 689 | ;; `kill-all-local-variables', because they have no default value. |
| 690 | ;; For consistency, we give them the `permanent-local' property, even | 690 | ;; For consistency, we give them the `permanent-local' property, even |
| 691 | ;; though `kill-all-local-variables' does not actually consult it. | 691 | ;; though `kill-all-local-variables' does not actually consult it. |
| 692 | ;; See init_buffer_once in buffer.c for the origins of this list. | ||
| 692 | 693 | ||
| 693 | (mapc (lambda (sym) (put sym 'permanent-local t)) | 694 | (mapc (lambda (sym) (put sym 'permanent-local t)) |
| 694 | '(buffer-file-name default-directory buffer-backed-up | 695 | '(buffer-file-name default-directory buffer-backed-up |
| @@ -697,7 +698,8 @@ okay. See `mode-line-format'.") | |||
| 697 | point-before-scroll buffer-file-truename | 698 | point-before-scroll buffer-file-truename |
| 698 | buffer-file-format buffer-auto-save-file-format | 699 | buffer-file-format buffer-auto-save-file-format |
| 699 | buffer-display-count buffer-display-time | 700 | buffer-display-count buffer-display-time |
| 700 | enable-multibyte-characters)) | 701 | enable-multibyte-characters |
| 702 | buffer-file-coding-system)) | ||
| 701 | 703 | ||
| 702 | ;; We have base64, md5 and sha1 functions built in now. | 704 | ;; We have base64, md5 and sha1 functions built in now. |
| 703 | (provide 'base64) | 705 | (provide 'base64) |
diff --git a/lisp/calendar/cal-dst.el b/lisp/calendar/cal-dst.el index 6a4054d73fa..301dc29c56a 100644 --- a/lisp/calendar/cal-dst.el +++ b/lisp/calendar/cal-dst.el | |||
| @@ -248,7 +248,7 @@ The result has the proper form for `calendar-daylight-savings-starts'." | |||
| 248 | ;; TODO it might be better to extract this information directly from | 248 | ;; TODO it might be better to extract this information directly from |
| 249 | ;; the system timezone database. But cross-platform...? | 249 | ;; the system timezone database. But cross-platform...? |
| 250 | ;; See thread | 250 | ;; See thread |
| 251 | ;; https://lists.gnu.org/archive/html/emacs-pretest-bug/2006-11/msg00060.html | 251 | ;; https://lists.gnu.org/r/emacs-pretest-bug/2006-11/msg00060.html |
| 252 | (defun calendar-dst-find-data (&optional time) | 252 | (defun calendar-dst-find-data (&optional time) |
| 253 | "Find data on the first daylight saving time transitions after TIME. | 253 | "Find data on the first daylight saving time transitions after TIME. |
| 254 | TIME defaults to `current-time'. Return value is as described | 254 | TIME defaults to `current-time'. Return value is as described |
diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index 32769332df5..b2079797b6c 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el | |||
| @@ -100,7 +100,7 @@ | |||
| 100 | ;; Show 11 years--5 before, 5 after year of middle month. | 100 | ;; Show 11 years--5 before, 5 after year of middle month. |
| 101 | ;; We used to use :suffix rather than :label and bumped into | 101 | ;; We used to use :suffix rather than :label and bumped into |
| 102 | ;; an easymenu bug: | 102 | ;; an easymenu bug: |
| 103 | ;; https://lists.gnu.org/archive/html/emacs-devel/2007-11/msg01813.html | 103 | ;; https://lists.gnu.org/r/emacs-devel/2007-11/msg01813.html |
| 104 | ;; The bug has since been fixed. | 104 | ;; The bug has since been fixed. |
| 105 | (dotimes (i 11) | 105 | (dotimes (i 11) |
| 106 | (push (vector (format "hol-year-%d" i) | 106 | (push (vector (format "hol-year-%d" i) |
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index d8d2dd4aafa..e45f8b27622 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el | |||
| @@ -425,7 +425,7 @@ Only used if `diary-header-line-flag' is non-nil." | |||
| 425 | ;; display does not create the fancy buffer, nor does it set | 425 | ;; display does not create the fancy buffer, nor does it set |
| 426 | ;; diary-selective-display in the diary buffer. This means some | 426 | ;; diary-selective-display in the diary buffer. This means some |
| 427 | ;; customizations will not take effect, eg: | 427 | ;; customizations will not take effect, eg: |
| 428 | ;; https://lists.gnu.org/archive/html/emacs-pretest-bug/2007-03/msg00466.html | 428 | ;; https://lists.gnu.org/r/emacs-pretest-bug/2007-03/msg00466.html |
| 429 | ;; So the check for diary-selective-display was dropped. This means the | 429 | ;; So the check for diary-selective-display was dropped. This means the |
| 430 | ;; diary will be displayed if one customizes a diary variable while | 430 | ;; diary will be displayed if one customizes a diary variable while |
| 431 | ;; just visiting the diary-file. This is i) unlikely, and ii) no great loss. | 431 | ;; just visiting the diary-file. This is i) unlikely, and ii) no great loss. |
| @@ -814,8 +814,8 @@ LIST-ONLY is non-nil, in which case it just returns the list." | |||
| 814 | ;; diary-header-line-flag after diary has been displayed | 814 | ;; diary-header-line-flag after diary has been displayed |
| 815 | ;; take effect. Unconditionally calling (diary-mode) | 815 | ;; take effect. Unconditionally calling (diary-mode) |
| 816 | ;; clobbers file local variables. | 816 | ;; clobbers file local variables. |
| 817 | ;; https://lists.gnu.org/archive/html/emacs-pretest-bug/2007-03/msg00363.html | 817 | ;; https://lists.gnu.org/r/emacs-pretest-bug/2007-03/msg00363.html |
| 818 | ;; https://lists.gnu.org/archive/html/emacs-pretest-bug/2007-04/msg00404.html | 818 | ;; https://lists.gnu.org/r/emacs-pretest-bug/2007-04/msg00404.html |
| 819 | (if (eq major-mode 'diary-mode) | 819 | (if (eq major-mode 'diary-mode) |
| 820 | (setq header-line-format (and diary-header-line-flag | 820 | (setq header-line-format (and diary-header-line-flag |
| 821 | diary-header-line-format))))) | 821 | diary-header-line-format))))) |
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index 3e568213a63..0ae59c58804 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el | |||
| @@ -5210,7 +5210,7 @@ If the category's done items are visible, this command called | |||
| 5210 | with a prefix argument only moves point to a higher item, e.g., | 5210 | with a prefix argument only moves point to a higher item, e.g., |
| 5211 | with point on the first done item and called with prefix 1, it | 5211 | with point on the first done item and called with prefix 1, it |
| 5212 | moves to the last todo item; but if called with point on the | 5212 | moves to the last todo item; but if called with point on the |
| 5213 | first done item without a prefix argument, it moves point the the | 5213 | first done item without a prefix argument, it moves point to the |
| 5214 | empty line above the done items separator." | 5214 | empty line above the done items separator." |
| 5215 | (let* ((done (todo-done-item-p))) | 5215 | (let* ((done (todo-done-item-p))) |
| 5216 | (todo-item-start) | 5216 | (todo-item-start) |
diff --git a/lisp/char-fold.el b/lisp/char-fold.el index 18ce5bea4f6..b24363530f3 100644 --- a/lisp/char-fold.el +++ b/lisp/char-fold.el | |||
| @@ -196,7 +196,7 @@ from which to start." | |||
| 196 | ;;; If N suffixes match, we "branch" out into N+1 executions for the | 196 | ;;; If N suffixes match, we "branch" out into N+1 executions for the |
| 197 | ;;; length of the longest match. This means "fix" will match "fix" but | 197 | ;;; length of the longest match. This means "fix" will match "fix" but |
| 198 | ;;; not "fⅸ", but it's necessary to keep the regexp size from scaling | 198 | ;;; not "fⅸ", but it's necessary to keep the regexp size from scaling |
| 199 | ;;; exponentially. See https://lists.gnu.org/archive/html/emacs-devel/2015-11/msg02562.html | 199 | ;;; exponentially. See https://lists.gnu.org/r/emacs-devel/2015-11/msg02562.html |
| 200 | (let ((subs (substring string (1+ i) (+ i 1 max-length)))) | 200 | (let ((subs (substring string (1+ i) (+ i 1 max-length)))) |
| 201 | ;; `i' is still going to inc by 1 below. | 201 | ;; `i' is still going to inc by 1 below. |
| 202 | (setq i (+ i max-length)) | 202 | (setq i (+ i max-length)) |
diff --git a/lisp/comint.el b/lisp/comint.el index 9bbb362d9ce..aa7dab28f32 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -678,7 +678,7 @@ Entry to this mode runs the hooks on `comint-mode-hook'." | |||
| 678 | ;; comint-scroll-show-maximum-output is nil, and no-one can remember | 678 | ;; comint-scroll-show-maximum-output is nil, and no-one can remember |
| 679 | ;; what the original problem was. If there are problems with point | 679 | ;; what the original problem was. If there are problems with point |
| 680 | ;; not going to the end, consider re-enabling this. | 680 | ;; not going to the end, consider re-enabling this. |
| 681 | ;; https://lists.gnu.org/archive/html/emacs-devel/2007-08/msg00827.html | 681 | ;; https://lists.gnu.org/r/emacs-devel/2007-08/msg00827.html |
| 682 | ;; | 682 | ;; |
| 683 | ;; This makes it really work to keep point at the bottom. | 683 | ;; This makes it really work to keep point at the bottom. |
| 684 | ;; (make-local-variable 'scroll-conservatively) | 684 | ;; (make-local-variable 'scroll-conservatively) |
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index edf3545cadd..4965adfd56c 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -2799,7 +2799,7 @@ If STATE is nil, the value is computed by `custom-variable-state'." | |||
| 2799 | ;; init-file-user rather than user-init-file. This is in case | 2799 | ;; init-file-user rather than user-init-file. This is in case |
| 2800 | ;; cus-edit is loaded by something in site-start.el, because | 2800 | ;; cus-edit is loaded by something in site-start.el, because |
| 2801 | ;; user-init-file is not set at that stage. | 2801 | ;; user-init-file is not set at that stage. |
| 2802 | ;; https://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00310.html | 2802 | ;; https://lists.gnu.org/r/emacs-devel/2007-10/msg00310.html |
| 2803 | ,@(when (or custom-file init-file-user) | 2803 | ,@(when (or custom-file init-file-user) |
| 2804 | '(("Save for Future Sessions" custom-variable-save | 2804 | '(("Save for Future Sessions" custom-variable-save |
| 2805 | (lambda (widget) | 2805 | (lambda (widget) |
diff --git a/lisp/delsel.el b/lisp/delsel.el index 17b46efc7cb..65b2cb85cea 100644 --- a/lisp/delsel.el +++ b/lisp/delsel.el | |||
| @@ -256,12 +256,18 @@ See `delete-selection-helper'." | |||
| 256 | (get this-command 'delete-selection))))) | 256 | (get this-command 'delete-selection))))) |
| 257 | 257 | ||
| 258 | (defun delete-selection-uses-region-p () | 258 | (defun delete-selection-uses-region-p () |
| 259 | "Return t when the current command will be using the region | 259 | "Return t when `delete-selection-mode' should not delete the region. |
| 260 | rather than having `delete-selection' delete it, nil otherwise. | 260 | |
| 261 | The `self-insert-command' could be the current command or may be | ||
| 262 | called by the current command. If this function returns nil, | ||
| 263 | then `delete-selection' is allowed to delete the region. | ||
| 261 | 264 | ||
| 262 | This function is intended for use as the value of the | 265 | This function is intended for use as the value of the |
| 263 | `delete-selection' property of a command, and shouldn't be used | 266 | `delete-selection' property of a command, and shouldn't be used |
| 264 | for anything else." | 267 | for anything else. In particular, `self-insert-command' has this |
| 268 | function as its `delete-selection' property, so that \"electric\" | ||
| 269 | self-insert commands that act on the region could adapt themselves | ||
| 270 | to `delete-selection-mode'." | ||
| 265 | (not (run-hook-with-args-until-success | 271 | (not (run-hook-with-args-until-success |
| 266 | 'self-insert-uses-region-functions))) | 272 | 'self-insert-uses-region-functions))) |
| 267 | 273 | ||
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 3f9912980ba..f1f7cf0b0ef 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el | |||
| @@ -1014,7 +1014,7 @@ ARGS are command switches passed to PROGRAM.") | |||
| 1014 | "Control the compression shell command for `dired-do-compress-to'. | 1014 | "Control the compression shell command for `dired-do-compress-to'. |
| 1015 | 1015 | ||
| 1016 | Each element is (REGEXP . CMD), where REGEXP is the name of the | 1016 | Each element is (REGEXP . CMD), where REGEXP is the name of the |
| 1017 | archive to which you want to compress, and CMD the the | 1017 | archive to which you want to compress, and CMD is the |
| 1018 | corresponding command. | 1018 | corresponding command. |
| 1019 | 1019 | ||
| 1020 | Within CMD, %i denotes the input file(s), and %o denotes the | 1020 | Within CMD, %i denotes the input file(s), and %o denotes the |
diff --git a/lisp/dnd.el b/lisp/dnd.el index a0c91b13742..c5ee8975ac6 100644 --- a/lisp/dnd.el +++ b/lisp/dnd.el | |||
| @@ -144,7 +144,7 @@ Return nil if URI is not a local file." | |||
| 144 | str)) | 144 | str)) |
| 145 | uri t t)) | 145 | uri t t)) |
| 146 | 146 | ||
| 147 | ;; https://lists.gnu.org/archive/html/emacs-devel/2006-05/msg01060.html | 147 | ;; https://lists.gnu.org/r/emacs-devel/2006-05/msg01060.html |
| 148 | (defun dnd-get-local-file-name (uri &optional must-exist) | 148 | (defun dnd-get-local-file-name (uri &optional must-exist) |
| 149 | "Return file name converted from file:/// or file: syntax. | 149 | "Return file name converted from file:/// or file: syntax. |
| 150 | URI is the uri for the file. If MUST-EXIST is given and non-nil, | 150 | URI is the uri for the file. If MUST-EXIST is given and non-nil, |
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index abfcdb347a3..d6c43ecf462 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el | |||
| @@ -286,8 +286,12 @@ The return value is undefined. | |||
| 286 | 286 | ||
| 287 | 287 | ||
| 288 | ;; Redefined in byte-opt.el. | 288 | ;; Redefined in byte-opt.el. |
| 289 | ;; This is not documented--it's not clear that we should promote it. | 289 | ;; This was undocumented and unused for decades. |
| 290 | (fset 'inline 'progn) | 290 | (defalias 'inline 'progn |
| 291 | "Like `progn', but when compiled inline top-level function calls in body. | ||
| 292 | You don't need this. (See bytecomp.el commentary for more details.) | ||
| 293 | |||
| 294 | \(fn BODY...)") | ||
| 291 | 295 | ||
| 292 | ;;; Interface to inline functions. | 296 | ;;; Interface to inline functions. |
| 293 | 297 | ||
| @@ -318,6 +322,7 @@ The return value is undefined. | |||
| 318 | 322 | ||
| 319 | (defmacro defsubst (name arglist &rest body) | 323 | (defmacro defsubst (name arglist &rest body) |
| 320 | "Define an inline function. The syntax is just like that of `defun'. | 324 | "Define an inline function. The syntax is just like that of `defun'. |
| 325 | |||
| 321 | \(fn NAME ARGLIST &optional DOCSTRING DECL &rest BODY)" | 326 | \(fn NAME ARGLIST &optional DOCSTRING DECL &rest BODY)" |
| 322 | (declare (debug defun) (doc-string 3)) | 327 | (declare (debug defun) (doc-string 3)) |
| 323 | (or (memq (get name 'byte-optimizer) | 328 | (or (memq (get name 'byte-optimizer) |
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index c54828e7b43..6952ef4cf49 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el | |||
| @@ -402,7 +402,7 @@ is called as a function to find the defun's beginning." | |||
| 402 | "Return non-nil if the point is in an \"emptyish\" line. | 402 | "Return non-nil if the point is in an \"emptyish\" line. |
| 403 | This means a line that consists entirely of comments and/or | 403 | This means a line that consists entirely of comments and/or |
| 404 | whitespace." | 404 | whitespace." |
| 405 | ;; See https://lists.gnu.org/archive/html/help-gnu-emacs/2016-08/msg00141.html | 405 | ;; See https://lists.gnu.org/r/help-gnu-emacs/2016-08/msg00141.html |
| 406 | (save-excursion | 406 | (save-excursion |
| 407 | (forward-line 0) | 407 | (forward-line 0) |
| 408 | (< (line-end-position) | 408 | (< (line-end-position) |
| @@ -525,7 +525,7 @@ the one(s) already marked." | |||
| 525 | (interactive "p") | 525 | (interactive "p") |
| 526 | (setq arg (or arg 1)) | 526 | (setq arg (or arg 1)) |
| 527 | ;; There is no `mark-defun-back' function - see | 527 | ;; There is no `mark-defun-back' function - see |
| 528 | ;; https://lists.gnu.org/archive/html/bug-gnu-emacs/2016-11/msg00079.html | 528 | ;; https://lists.gnu.org/r/bug-gnu-emacs/2016-11/msg00079.html |
| 529 | ;; for explanation | 529 | ;; for explanation |
| 530 | (when (eq last-command 'mark-defun-back) | 530 | (when (eq last-command 'mark-defun-back) |
| 531 | (setq arg (- arg))) | 531 | (setq arg (- arg))) |
| @@ -574,7 +574,7 @@ the one(s) already marked." | |||
| 574 | (goto-char beg) | 574 | (goto-char beg) |
| 575 | (unless (= arg -1) ; beginning-of-defun behaves | 575 | (unless (= arg -1) ; beginning-of-defun behaves |
| 576 | ; strange with zero arg - see | 576 | ; strange with zero arg - see |
| 577 | ; https://lists.gnu.org/archive/html/bug-gnu-emacs/2017-02/msg00196.html | 577 | ; https://lists.gnu.org/r/bug-gnu-emacs/2017-02/msg00196.html |
| 578 | (beginning-of-defun (1- (- arg)))) | 578 | (beginning-of-defun (1- (- arg)))) |
| 579 | (push-mark end nil t)))))) | 579 | (push-mark end nil t)))))) |
| 580 | (skip-chars-backward "[:space:]\n") | 580 | (skip-chars-backward "[:space:]\n") |
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 68ca1972d1e..61bff5cfbca 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el | |||
| @@ -3397,7 +3397,9 @@ This function is called after `package-refresh-contents'." | |||
| 3397 | "Display a list of packages. | 3397 | "Display a list of packages. |
| 3398 | This first fetches the updated list of packages before | 3398 | This first fetches the updated list of packages before |
| 3399 | displaying, unless a prefix argument NO-FETCH is specified. | 3399 | displaying, unless a prefix argument NO-FETCH is specified. |
| 3400 | The list is displayed in a buffer named `*Packages*'." | 3400 | The list is displayed in a buffer named `*Packages*', and |
| 3401 | includes the package's version, availability status, and a | ||
| 3402 | short description." | ||
| 3401 | (interactive "P") | 3403 | (interactive "P") |
| 3402 | (require 'finder-inf nil t) | 3404 | (require 'finder-inf nil t) |
| 3403 | ;; Initialize the package system if necessary. | 3405 | ;; Initialize the package system if necessary. |
diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el index 8ed29d8659d..9ff742c4331 100644 --- a/lisp/emacs-lisp/subr-x.el +++ b/lisp/emacs-lisp/subr-x.el | |||
| @@ -28,7 +28,7 @@ | |||
| 28 | ;; in subr.el. | 28 | ;; in subr.el. |
| 29 | 29 | ||
| 30 | ;; Do not document these functions in the lispref. | 30 | ;; Do not document these functions in the lispref. |
| 31 | ;; https://lists.gnu.org/archive/html/emacs-devel/2014-01/msg01006.html | 31 | ;; https://lists.gnu.org/r/emacs-devel/2014-01/msg01006.html |
| 32 | 32 | ||
| 33 | ;; NB If you want to use this library, it's almost always correct to use: | 33 | ;; NB If you want to use this library, it's almost always correct to use: |
| 34 | ;; (eval-when-compile (require 'subr-x)) | 34 | ;; (eval-when-compile (require 'subr-x)) |
diff --git a/lisp/epg.el b/lisp/epg.el index 903cbd62eeb..b2d80023f0f 100644 --- a/lisp/epg.el +++ b/lisp/epg.el | |||
| @@ -608,7 +608,7 @@ callback data (if any)." | |||
| 608 | ;; Record modified time of gpg-agent socket to restore the Emacs | 608 | ;; Record modified time of gpg-agent socket to restore the Emacs |
| 609 | ;; frame on text terminal in `epg-wait-for-completion'. | 609 | ;; frame on text terminal in `epg-wait-for-completion'. |
| 610 | ;; See | 610 | ;; See |
| 611 | ;; <https://lists.gnu.org/archive/html/emacs-devel/2007-02/msg00755.html> | 611 | ;; <https://lists.gnu.org/r/emacs-devel/2007-02/msg00755.html> |
| 612 | ;; for more details. | 612 | ;; for more details. |
| 613 | (when (and agent-info (string-match "\\(.*\\):[0-9]+:[0-9]+" agent-info)) | 613 | (when (and agent-info (string-match "\\(.*\\):[0-9]+:[0-9]+" agent-info)) |
| 614 | (setq agent-file (match-string 1 agent-info) | 614 | (setq agent-file (match-string 1 agent-info) |
diff --git a/lisp/erc/erc-goodies.el b/lisp/erc/erc-goodies.el index a655d48a6ac..8906da1e47d 100644 --- a/lisp/erc/erc-goodies.el +++ b/lisp/erc/erc-goodies.el | |||
| @@ -147,7 +147,19 @@ Put this function on `erc-insert-post-hook' and/or `erc-send-post-hook'." | |||
| 147 | (>= (point) erc-insert-marker)) | 147 | (>= (point) erc-insert-marker)) |
| 148 | (deactivate-mark) | 148 | (deactivate-mark) |
| 149 | (goto-char (erc-beg-of-input-line)) | 149 | (goto-char (erc-beg-of-input-line)) |
| 150 | (forward-line -1))) | 150 | (forward-line -1) |
| 151 | ;; if `switch-to-buffer-preserve-window-point' is set, | ||
| 152 | ;; we cannot rely on point being saved, and must commit | ||
| 153 | ;; it to window-prev-buffers. | ||
| 154 | (when switch-to-buffer-preserve-window-point | ||
| 155 | (dolist (frame (frame-list)) | ||
| 156 | (walk-window-tree | ||
| 157 | (lambda (window) | ||
| 158 | (let ((prev (assq (current-buffer) | ||
| 159 | (window-prev-buffers window)))) | ||
| 160 | (when prev | ||
| 161 | (setf (nth 2 prev) (point-marker))))) | ||
| 162 | frame nil 'nominibuf))))) | ||
| 151 | 163 | ||
| 152 | ;;; Distinguish non-commands | 164 | ;;; Distinguish non-commands |
| 153 | (defvar erc-noncommands-list '(erc-cmd-ME | 165 | (defvar erc-noncommands-list '(erc-cmd-ME |
diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el index c486d2c51d1..e5c799ea167 100644 --- a/lisp/eshell/em-unix.el +++ b/lisp/eshell/em-unix.el | |||
| @@ -961,7 +961,7 @@ Show wall-clock time elapsed during execution of COMMAND.") | |||
| 961 | ;; after setting | 961 | ;; after setting |
| 962 | (throw 'eshell-replace-command | 962 | (throw 'eshell-replace-command |
| 963 | (eshell-parse-command (car time-args) | 963 | (eshell-parse-command (car time-args) |
| 964 | ;;; https://lists.gnu.org/archive/html/bug-gnu-emacs/2007-08/msg00205.html | 964 | ;;; https://lists.gnu.org/r/bug-gnu-emacs/2007-08/msg00205.html |
| 965 | (eshell-stringify-list | 965 | (eshell-stringify-list |
| 966 | (eshell-flatten-list (cdr time-args)))))))) | 966 | (eshell-flatten-list (cdr time-args)))))))) |
| 967 | 967 | ||
diff --git a/lisp/faces.el b/lisp/faces.el index a5f1d1dd328..d8ec454e626 100644 --- a/lisp/faces.el +++ b/lisp/faces.el | |||
| @@ -2361,7 +2361,7 @@ If you set `term-file-prefix' to nil, this function does nothing." | |||
| 2361 | (defface variable-pitch | 2361 | (defface variable-pitch |
| 2362 | '((((type w32)) | 2362 | '((((type w32)) |
| 2363 | ;; This is a workaround for an issue discussed in | 2363 | ;; This is a workaround for an issue discussed in |
| 2364 | ;; https://lists.gnu.org/archive/html/emacs-devel/2016-04/msg00746.html. | 2364 | ;; https://lists.gnu.org/r/emacs-devel/2016-04/msg00746.html. |
| 2365 | ;; We need (a) the splash screen not to pick up bold-italics variant of | 2365 | ;; We need (a) the splash screen not to pick up bold-italics variant of |
| 2366 | ;; the font, and (b) still be able to request bold/italic/larger size | 2366 | ;; the font, and (b) still be able to request bold/italic/larger size |
| 2367 | ;; variants in the likes of EWW. | 2367 | ;; variants in the likes of EWW. |
diff --git a/lisp/ffap.el b/lisp/ffap.el index 810afd5739b..a776668d109 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el | |||
| @@ -786,7 +786,7 @@ This uses `ffap-file-exists-string', which may try adding suffixes from | |||
| 786 | ("\\`~/" . ffap-lcd) ; |~/misc/ffap.el.Z| | 786 | ("\\`~/" . ffap-lcd) ; |~/misc/ffap.el.Z| |
| 787 | ;; This used to have a blank, but ffap-string-at-point doesn't | 787 | ;; This used to have a blank, but ffap-string-at-point doesn't |
| 788 | ;; handle blanks. | 788 | ;; handle blanks. |
| 789 | ;; https://lists.gnu.org/archive/html/emacs-devel/2008-01/msg01058.html | 789 | ;; https://lists.gnu.org/r/emacs-devel/2008-01/msg01058.html |
| 790 | ("\\`[Rr][Ff][Cc][-#]?\\([0-9]+\\)" ; no $ | 790 | ("\\`[Rr][Ff][Cc][-#]?\\([0-9]+\\)" ; no $ |
| 791 | . ffap-rfc) ; "100% RFC2100 compliant" | 791 | . ffap-rfc) ; "100% RFC2100 compliant" |
| 792 | (dired-mode . ffap-dired) ; maybe in a subdirectory | 792 | (dired-mode . ffap-dired) ; maybe in a subdirectory |
diff --git a/lisp/files.el b/lisp/files.el index 63dd509eab8..5d78cd07b6e 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -1859,9 +1859,9 @@ home directory is a root directory) and removes automounter prefixes | |||
| 1859 | 1859 | ||
| 1860 | When this function is first called, it caches the user's home | 1860 | When this function is first called, it caches the user's home |
| 1861 | directory as a regexp in `abbreviated-home-dir', and reuses it | 1861 | directory as a regexp in `abbreviated-home-dir', and reuses it |
| 1862 | afterwards. Lisp programs that temporarily set the home directory | 1862 | afterwards (so long as the home directory does not change; |
| 1863 | to a different value should let-bind `abbreviated-home-dir' for | 1863 | if you want to permanently change your home directory after having |
| 1864 | the modified home directory to take effect." | 1864 | started Emacs, set `abbreviated-home-dir' to nil so it will be recalculated)." |
| 1865 | ;; Get rid of the prefixes added by the automounter. | 1865 | ;; Get rid of the prefixes added by the automounter. |
| 1866 | (save-match-data | 1866 | (save-match-data |
| 1867 | (if (and automount-dir-prefix | 1867 | (if (and automount-dir-prefix |
| @@ -1883,29 +1883,37 @@ the modified home directory to take effect." | |||
| 1883 | ;; give time for directory-abbrev-alist to be set properly. | 1883 | ;; give time for directory-abbrev-alist to be set properly. |
| 1884 | ;; We include a slash at the end, to avoid spurious matches | 1884 | ;; We include a slash at the end, to avoid spurious matches |
| 1885 | ;; such as `/usr/foobar' when the home dir is `/usr/foo'. | 1885 | ;; such as `/usr/foobar' when the home dir is `/usr/foo'. |
| 1886 | (or abbreviated-home-dir | 1886 | (unless abbreviated-home-dir |
| 1887 | (setq abbreviated-home-dir | 1887 | (put 'abbreviated-home-dir 'home (expand-file-name "~")) |
| 1888 | (let ((abbreviated-home-dir "$foo")) | 1888 | (setq abbreviated-home-dir |
| 1889 | (setq abbreviated-home-dir | 1889 | (let ((abbreviated-home-dir "$foo")) |
| 1890 | (concat "\\`" | 1890 | (setq abbreviated-home-dir |
| 1891 | (abbreviate-file-name (expand-file-name "~")) | 1891 | (concat "\\`" |
| 1892 | "\\(/\\|\\'\\)")) | 1892 | (abbreviate-file-name |
| 1893 | ;; Depending on whether default-directory does or | 1893 | (get 'abbreviated-home-dir 'home)) |
| 1894 | ;; doesn't include non-ASCII characters, the value | 1894 | "\\(/\\|\\'\\)")) |
| 1895 | ;; of abbreviated-home-dir could be multibyte or | 1895 | ;; Depending on whether default-directory does or |
| 1896 | ;; unibyte. In the latter case, we need to decode | 1896 | ;; doesn't include non-ASCII characters, the value |
| 1897 | ;; it. Note that this function is called for the | 1897 | ;; of abbreviated-home-dir could be multibyte or |
| 1898 | ;; first time (from startup.el) when | 1898 | ;; unibyte. In the latter case, we need to decode |
| 1899 | ;; locale-coding-system is already set up. | 1899 | ;; it. Note that this function is called for the |
| 1900 | (if (multibyte-string-p abbreviated-home-dir) | 1900 | ;; first time (from startup.el) when |
| 1901 | abbreviated-home-dir | 1901 | ;; locale-coding-system is already set up. |
| 1902 | (decode-coding-string abbreviated-home-dir | 1902 | (if (multibyte-string-p abbreviated-home-dir) |
| 1903 | (if (eq system-type 'windows-nt) | 1903 | abbreviated-home-dir |
| 1904 | 'utf-8 | 1904 | (decode-coding-string abbreviated-home-dir |
| 1905 | locale-coding-system)))))) | 1905 | (if (eq system-type 'windows-nt) |
| 1906 | 'utf-8 | ||
| 1907 | locale-coding-system)))))) | ||
| 1906 | 1908 | ||
| 1907 | ;; If FILENAME starts with the abbreviated homedir, | 1909 | ;; If FILENAME starts with the abbreviated homedir, |
| 1910 | ;; and ~ hasn't changed since abbreviated-home-dir was set, | ||
| 1908 | ;; make it start with `~' instead. | 1911 | ;; make it start with `~' instead. |
| 1912 | ;; If ~ has changed, we ignore abbreviated-home-dir rather than | ||
| 1913 | ;; invalidating it, on the assumption that a change in HOME | ||
| 1914 | ;; is likely temporary (eg for testing). | ||
| 1915 | ;; FIXME Is it even worth caching abbreviated-home-dir? | ||
| 1916 | ;; Ref: https://debbugs.gnu.org/19657#20 | ||
| 1909 | (if (and (string-match abbreviated-home-dir filename) | 1917 | (if (and (string-match abbreviated-home-dir filename) |
| 1910 | ;; If the home dir is just /, don't change it. | 1918 | ;; If the home dir is just /, don't change it. |
| 1911 | (not (and (= (match-end 0) 1) | 1919 | (not (and (= (match-end 0) 1) |
| @@ -1914,7 +1922,9 @@ the modified home directory to take effect." | |||
| 1914 | ;; Novell Netware allows drive letters beyond `Z:'. | 1922 | ;; Novell Netware allows drive letters beyond `Z:'. |
| 1915 | (not (and (memq system-type '(ms-dos windows-nt cygwin)) | 1923 | (not (and (memq system-type '(ms-dos windows-nt cygwin)) |
| 1916 | (save-match-data | 1924 | (save-match-data |
| 1917 | (string-match "^[a-zA-`]:/$" filename))))) | 1925 | (string-match "^[a-zA-`]:/$" filename)))) |
| 1926 | (equal (get 'abbreviated-home-dir 'home) | ||
| 1927 | (expand-file-name "~"))) | ||
| 1918 | (setq filename | 1928 | (setq filename |
| 1919 | (concat "~" | 1929 | (concat "~" |
| 1920 | (match-string 1 filename) | 1930 | (match-string 1 filename) |
diff --git a/lisp/finder.el b/lisp/finder.el index ab37ed7fc24..1cebad7b546 100644 --- a/lisp/finder.el +++ b/lisp/finder.el | |||
| @@ -129,7 +129,7 @@ Keywords and package names both should be symbols.") | |||
| 129 | ;; Skip autogenerated files, because they will never contain anything | 129 | ;; Skip autogenerated files, because they will never contain anything |
| 130 | ;; useful, and because in parallel builds of Emacs they may get | 130 | ;; useful, and because in parallel builds of Emacs they may get |
| 131 | ;; modified while we are trying to read them. | 131 | ;; modified while we are trying to read them. |
| 132 | ;; https://lists.gnu.org/archive/html/emacs-pretest-bug/2007-01/msg00469.html | 132 | ;; https://lists.gnu.org/r/emacs-pretest-bug/2007-01/msg00469.html |
| 133 | ;; ldefs-boot is not auto-generated, but has nothing useful. | 133 | ;; ldefs-boot is not auto-generated, but has nothing useful. |
| 134 | (defvar finder-no-scan-regexp "\\(^\\.#\\|\\(loaddefs\\|ldefs-boot\\|\ | 134 | (defvar finder-no-scan-regexp "\\(^\\.#\\|\\(loaddefs\\|ldefs-boot\\|\ |
| 135 | cus-load\\|finder-inf\\|esh-groups\\|subdirs\\|leim-list\\)\\.el$\\)" | 135 | cus-load\\|finder-inf\\|esh-groups\\|subdirs\\|leim-list\\)\\.el$\\)" |
diff --git a/lisp/follow.el b/lisp/follow.el index 4893cad3fdc..1ec6ff30f26 100644 --- a/lisp/follow.el +++ b/lisp/follow.el | |||
| @@ -416,6 +416,7 @@ This command runs the normal hook `follow-mode-hook'. | |||
| 416 | 416 | ||
| 417 | Keys specific to Follow mode: | 417 | Keys specific to Follow mode: |
| 418 | \\{follow-mode-map}" | 418 | \\{follow-mode-map}" |
| 419 | :lighter follow-mode-line-text | ||
| 419 | :keymap follow-mode-map | 420 | :keymap follow-mode-map |
| 420 | (if follow-mode | 421 | (if follow-mode |
| 421 | (progn | 422 | (progn |
diff --git a/lisp/frame.el b/lisp/frame.el index b6c066462b0..2e925325a9e 100644 --- a/lisp/frame.el +++ b/lisp/frame.el | |||
| @@ -1075,7 +1075,7 @@ is given and non-nil, the unwanted frames are iconified instead." | |||
| 1075 | (when mini (setq parms (delq mini parms))) | 1075 | (when mini (setq parms (delq mini parms))) |
| 1076 | ;; Leave name in iff it was set explicitly. | 1076 | ;; Leave name in iff it was set explicitly. |
| 1077 | ;; This should fix the behavior reported in | 1077 | ;; This should fix the behavior reported in |
| 1078 | ;; https://lists.gnu.org/archive/html/emacs-devel/2007-08/msg01632.html | 1078 | ;; https://lists.gnu.org/r/emacs-devel/2007-08/msg01632.html |
| 1079 | (when (and name (not explicit-name)) | 1079 | (when (and name (not explicit-name)) |
| 1080 | (setq parms (delq name parms))) | 1080 | (setq parms (delq name parms))) |
| 1081 | parms)) | 1081 | parms)) |
diff --git a/lisp/gnus/ChangeLog.3 b/lisp/gnus/ChangeLog.3 index 43681f6eb7d..2d030b61b99 100644 --- a/lisp/gnus/ChangeLog.3 +++ b/lisp/gnus/ChangeLog.3 | |||
| @@ -3819,7 +3819,7 @@ | |||
| 3819 | 2012-02-15 Paul Eggert <eggert@cs.ucla.edu> | 3819 | 2012-02-15 Paul Eggert <eggert@cs.ucla.edu> |
| 3820 | 3820 | ||
| 3821 | * shr.el (shr-rescale-image): Undo previous change; see | 3821 | * shr.el (shr-rescale-image): Undo previous change; see |
| 3822 | <https://lists.gnu.org/archive/html/emacs-devel/2012-02/msg00540.html>. | 3822 | <https://lists.gnu.org/r/emacs-devel/2012-02/msg00540.html>. |
| 3823 | 3823 | ||
| 3824 | 2012-02-13 Lars Ingebrigtsen <larsi@gnus.org> | 3824 | 2012-02-13 Lars Ingebrigtsen <larsi@gnus.org> |
| 3825 | 3825 | ||
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index f6777c5e884..445911fc6d5 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el | |||
| @@ -4095,7 +4095,7 @@ Instead, just auto-save the buffer and then bury it." | |||
| 4095 | "Bury this mail BUFFER." | 4095 | "Bury this mail BUFFER." |
| 4096 | ;; Note that this is not quite the same as (bury-buffer buffer), | 4096 | ;; Note that this is not quite the same as (bury-buffer buffer), |
| 4097 | ;; since bury-buffer does extra stuff with a nil argument. | 4097 | ;; since bury-buffer does extra stuff with a nil argument. |
| 4098 | ;; Eg https://lists.gnu.org/archive/html/emacs-devel/2014-01/msg00539.html | 4098 | ;; Eg https://lists.gnu.org/r/emacs-devel/2014-01/msg00539.html |
| 4099 | (with-current-buffer buffer (bury-buffer)) | 4099 | (with-current-buffer buffer (bury-buffer)) |
| 4100 | (if message-return-action | 4100 | (if message-return-action |
| 4101 | (apply (car message-return-action) (cdr message-return-action)))) | 4101 | (apply (car message-return-action) (cdr message-return-action)))) |
| @@ -6679,7 +6679,7 @@ is a function used to switch to and display the mail buffer." | |||
| 6679 | ;; C-h f compose-mail says that headers should be specified as | 6679 | ;; C-h f compose-mail says that headers should be specified as |
| 6680 | ;; (string . value); however all the rest of message expects | 6680 | ;; (string . value); however all the rest of message expects |
| 6681 | ;; headers to be symbols, not strings (eg message-header-format-alist). | 6681 | ;; headers to be symbols, not strings (eg message-header-format-alist). |
| 6682 | ;; https://lists.gnu.org/archive/html/emacs-devel/2011-01/msg00337.html | 6682 | ;; https://lists.gnu.org/r/emacs-devel/2011-01/msg00337.html |
| 6683 | ;; We need to convert any string input, eg from rmail-start-mail. | 6683 | ;; We need to convert any string input, eg from rmail-start-mail. |
| 6684 | (dolist (h other-headers other-headers) | 6684 | (dolist (h other-headers other-headers) |
| 6685 | (if (stringp (car h)) (setcar h (intern (capitalize (car h))))))) | 6685 | (if (stringp (car h)) (setcar h (intern (capitalize (car h))))))) |
diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el index 791b110bf49..a4c68d329b7 100644 --- a/lisp/htmlfontify.el +++ b/lisp/htmlfontify.el | |||
| @@ -650,7 +650,7 @@ STYLE is the inline CSS stylesheet (or tag referring to an external sheet)." | |||
| 650 | var even = false; | 650 | var even = false; |
| 651 | 651 | ||
| 652 | // if arguments are provided to specify the colors | 652 | // if arguments are provided to specify the colors |
| 653 | // of the even & odd rows, then use the them; | 653 | // of the even & odd rows, then use them; |
| 654 | // otherwise use the following defaults: | 654 | // otherwise use the following defaults: |
| 655 | var evenColor = arguments[1] ? arguments[1] : \"#fff\"; | 655 | var evenColor = arguments[1] ? arguments[1] : \"#fff\"; |
| 656 | var oddColor = arguments[2] ? arguments[2] : \"#ddd\"; | 656 | var oddColor = arguments[2] ? arguments[2] : \"#ddd\"; |
diff --git a/lisp/info.el b/lisp/info.el index e2f9953f7c7..0a4f672b9f2 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -1347,7 +1347,7 @@ is non-nil)." | |||
| 1347 | ;; Shouldn't really happen, but sometimes does, | 1347 | ;; Shouldn't really happen, but sometimes does, |
| 1348 | ;; eg on Debian systems with buggy packages; | 1348 | ;; eg on Debian systems with buggy packages; |
| 1349 | ;; so may as well try it. | 1349 | ;; so may as well try it. |
| 1350 | ;; https://lists.gnu.org/archive/html/emacs-devel/2012-03/msg00005.html | 1350 | ;; https://lists.gnu.org/r/emacs-devel/2012-03/msg00005.html |
| 1351 | (progn (setq file (expand-file-name "dir.gz" truename)) | 1351 | (progn (setq file (expand-file-name "dir.gz" truename)) |
| 1352 | (file-attributes file))))) | 1352 | (file-attributes file))))) |
| 1353 | (setq dirs-done | 1353 | (setq dirs-done |
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index f2c7bcb1f77..1bbbb174d49 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el | |||
| @@ -2513,7 +2513,7 @@ package to describe." | |||
| 2513 | (setq buffer-read-only nil) | 2513 | (setq buffer-read-only nil) |
| 2514 | ;; Without this, a keyboard layout with R2L characters might be | 2514 | ;; Without this, a keyboard layout with R2L characters might be |
| 2515 | ;; displayed reversed, right to left. See the thread starting at | 2515 | ;; displayed reversed, right to left. See the thread starting at |
| 2516 | ;; https://lists.gnu.org/archive/html/emacs-devel/2012-03/msg00062.html | 2516 | ;; https://lists.gnu.org/r/emacs-devel/2012-03/msg00062.html |
| 2517 | ;; for a description of one such situation. | 2517 | ;; for a description of one such situation. |
| 2518 | (setq bidi-paragraph-direction 'left-to-right) | 2518 | (setq bidi-paragraph-direction 'left-to-right) |
| 2519 | (insert "Input method: " (quail-name) | 2519 | (insert "Input method: " (quail-name) |
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el index caddc7f760b..ad2a770430f 100644 --- a/lisp/ls-lisp.el +++ b/lisp/ls-lisp.el | |||
| @@ -713,23 +713,26 @@ SWITCHES is a list of characters. Default sorting is alphabetic." | |||
| 713 | (defun ls-lisp-classify-file (filename fattr) | 713 | (defun ls-lisp-classify-file (filename fattr) |
| 714 | "Append a character to FILENAME indicating the file type. | 714 | "Append a character to FILENAME indicating the file type. |
| 715 | 715 | ||
| 716 | This function puts the `dired-filename' property on FILENAME, but | ||
| 717 | not on the character indicator it appends. | ||
| 716 | FATTR is the file attributes returned by `file-attributes' for the file. | 718 | FATTR is the file attributes returned by `file-attributes' for the file. |
| 717 | The file type indicators are `/' for directories, `@' for symbolic | 719 | The file type indicators are `/' for directories, `@' for symbolic |
| 718 | links, `|' for FIFOs, `=' for sockets, `*' for regular files that | 720 | links, `|' for FIFOs, `=' for sockets, `*' for regular files that |
| 719 | are executable, and nothing for other types of files." | 721 | are executable, and nothing for other types of files." |
| 720 | (let* ((type (car fattr)) | 722 | (let* ((type (car fattr)) |
| 721 | (modestr (nth 8 fattr)) | 723 | (modestr (nth 8 fattr)) |
| 722 | (typestr (substring modestr 0 1))) | 724 | (typestr (substring modestr 0 1)) |
| 725 | (file-name (propertize filename 'dired-filename t))) | ||
| 723 | (cond | 726 | (cond |
| 724 | (type | 727 | (type |
| 725 | (concat filename (if (eq type t) "/" "@"))) | 728 | (concat file-name (if (eq type t) "/" "@"))) |
| 726 | ((string-match "x" modestr) | 729 | ((string-match "x" modestr) |
| 727 | (concat filename "*")) | 730 | (concat file-name "*")) |
| 728 | ((string= "p" typestr) | 731 | ((string= "p" typestr) |
| 729 | (concat filename "|")) | 732 | (concat file-name "|")) |
| 730 | ((string= "s" typestr) | 733 | ((string= "s" typestr) |
| 731 | (concat filename "=")) | 734 | (concat file-name "=")) |
| 732 | (t filename)))) | 735 | (t file-name)))) |
| 733 | 736 | ||
| 734 | (defun ls-lisp-classify (filedata) | 737 | (defun ls-lisp-classify (filedata) |
| 735 | "Append a character to file name in FILEDATA indicating the file type. | 738 | "Append a character to file name in FILEDATA indicating the file type. |
| @@ -742,7 +745,6 @@ links, `|' for FIFOs, `=' for sockets, `*' for regular files that | |||
| 742 | are executable, and nothing for other types of files." | 745 | are executable, and nothing for other types of files." |
| 743 | (let ((file-name (car filedata)) | 746 | (let ((file-name (car filedata)) |
| 744 | (fattr (cdr filedata))) | 747 | (fattr (cdr filedata))) |
| 745 | (setq file-name (propertize file-name 'dired-filename t)) | ||
| 746 | (cons (ls-lisp-classify-file file-name fattr) fattr))) | 748 | (cons (ls-lisp-classify-file file-name fattr) fattr))) |
| 747 | 749 | ||
| 748 | (defun ls-lisp-extension (filename) | 750 | (defun ls-lisp-extension (filename) |
| @@ -841,7 +843,7 @@ SWITCHES and TIME-INDEX give the full switch list and time data." | |||
| 841 | " " | 843 | " " |
| 842 | (ls-lisp-format-time file-attr time-index) | 844 | (ls-lisp-format-time file-attr time-index) |
| 843 | " " | 845 | " " |
| 844 | (if (not (memq ?F switches)) ; ls-lisp-classify already did that | 846 | (if (not (memq ?F switches)) ; ls-lisp-classify-file already did that |
| 845 | (propertize file-name 'dired-filename t) | 847 | (propertize file-name 'dired-filename t) |
| 846 | file-name) | 848 | file-name) |
| 847 | (if (stringp file-type) ; is a symbolic link | 849 | (if (stringp file-type) ; is a symbolic link |
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index dc25e8005ce..92f39659360 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el | |||
| @@ -179,7 +179,7 @@ Prompts for bug subject. Leaves you in a mail buffer." | |||
| 179 | 'face 'link | 179 | 'face 'link |
| 180 | 'help-echo (concat "mouse-2, RET: Follow this link") | 180 | 'help-echo (concat "mouse-2, RET: Follow this link") |
| 181 | 'action (lambda (button) | 181 | 'action (lambda (button) |
| 182 | (browse-url "https://lists.gnu.org/archive/html/bug-gnu-emacs/")) | 182 | (browse-url "https://lists.gnu.org/r/bug-gnu-emacs/")) |
| 183 | 'follow-link t) | 183 | 'follow-link t) |
| 184 | (insert " mailing list\nand the GNU bug tracker at ") | 184 | (insert " mailing list\nand the GNU bug tracker at ") |
| 185 | (insert-text-button | 185 | (insert-text-button |
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 1a24d87addd..994570edcb2 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -278,7 +278,7 @@ Otherwise, look for `movemail' in the directories in | |||
| 278 | ;; rmail-insert-inbox-text before r1.439 fell back to using | 278 | ;; rmail-insert-inbox-text before r1.439 fell back to using |
| 279 | ;; (expand-file-name "movemail" exec-directory) and just | 279 | ;; (expand-file-name "movemail" exec-directory) and just |
| 280 | ;; assuming it would work. | 280 | ;; assuming it would work. |
| 281 | ;; https://lists.gnu.org/archive/html/bug-gnu-emacs/2008-02/msg00087.html | 281 | ;; https://lists.gnu.org/r/bug-gnu-emacs/2008-02/msg00087.html |
| 282 | (let ((progname (expand-file-name | 282 | (let ((progname (expand-file-name |
| 283 | (concat "movemail" | 283 | (concat "movemail" |
| 284 | (if (memq system-type '(ms-dos windows-nt)) | 284 | (if (memq system-type '(ms-dos windows-nt)) |
| @@ -534,7 +534,7 @@ still the current message in the Rmail buffer.") | |||
| 534 | ;; It's not clear what it should do now, since there is nothing that | 534 | ;; It's not clear what it should do now, since there is nothing that |
| 535 | ;; records when a message is shown for the first time (unseen is not | 535 | ;; records when a message is shown for the first time (unseen is not |
| 536 | ;; necessarily the same thing). | 536 | ;; necessarily the same thing). |
| 537 | ;; See https://lists.gnu.org/archive/html/emacs-devel/2009-03/msg00013.html | 537 | ;; See https://lists.gnu.org/r/emacs-devel/2009-03/msg00013.html |
| 538 | (defcustom rmail-message-filter nil | 538 | (defcustom rmail-message-filter nil |
| 539 | "If non-nil, a filter function for new messages in RMAIL. | 539 | "If non-nil, a filter function for new messages in RMAIL. |
| 540 | Called with region narrowed to the message, including headers, | 540 | Called with region narrowed to the message, including headers, |
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index 0cb8a1791ff..4a424ece0b1 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el | |||
| @@ -713,7 +713,7 @@ the list should be unique." | |||
| 713 | 713 | ||
| 714 | ;; regi functions | 714 | ;; regi functions |
| 715 | 715 | ||
| 716 | ;; https://lists.gnu.org/archive/html/emacs-devel/2009-02/msg00691.html | 716 | ;; https://lists.gnu.org/r/emacs-devel/2009-02/msg00691.html |
| 717 | ;; When rmail replies to a message with full headers visible, the "From " | 717 | ;; When rmail replies to a message with full headers visible, the "From " |
| 718 | ;; line can be included. | 718 | ;; line can be included. |
| 719 | (defun sc-mail-check-from () | 719 | (defun sc-mail-check-from () |
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 972f84ee6c7..2b38cb5f2b0 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -669,7 +669,8 @@ The selected font will be the default on both the existing and future frames." | |||
| 669 | (let ((need-save nil)) | 669 | (let ((need-save nil)) |
| 670 | ;; These are set with menu-bar-make-mm-toggle, which does not | 670 | ;; These are set with menu-bar-make-mm-toggle, which does not |
| 671 | ;; put on a customized-value property. | 671 | ;; put on a customized-value property. |
| 672 | (dolist (elt '(line-number-mode column-number-mode size-indication-mode | 672 | (dolist (elt '(global-display-line-numbers-mode display-line-numbers-type |
| 673 | line-number-mode column-number-mode size-indication-mode | ||
| 673 | cua-mode show-paren-mode transient-mark-mode | 674 | cua-mode show-paren-mode transient-mark-mode |
| 674 | blink-cursor-mode display-time-mode display-battery-mode | 675 | blink-cursor-mode display-time-mode display-battery-mode |
| 675 | ;; These are set by other functions that don't set | 676 | ;; These are set by other functions that don't set |
diff --git a/lisp/net/rlogin.el b/lisp/net/rlogin.el index 297aa0230c8..2843833a27a 100644 --- a/lisp/net/rlogin.el +++ b/lisp/net/rlogin.el | |||
| @@ -38,7 +38,7 @@ | |||
| 38 | 38 | ||
| 39 | ;; FIXME? | 39 | ;; FIXME? |
| 40 | ;; Maybe this file should be obsolete. | 40 | ;; Maybe this file should be obsolete. |
| 41 | ;; https://lists.gnu.org/archive/html/emacs-devel/2013-02/msg00517.html | 41 | ;; https://lists.gnu.org/r/emacs-devel/2013-02/msg00517.html |
| 42 | ;; It only adds rlogin-directory-tracking-mode. Is that useful? | 42 | ;; It only adds rlogin-directory-tracking-mode. Is that useful? |
| 43 | 43 | ||
| 44 | (require 'comint) | 44 | (require 'comint) |
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 4ba452e4b94..ab7240c8c3d 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el | |||
| @@ -2289,8 +2289,10 @@ flags that control whether to collect or render objects." | |||
| 2289 | (<= (car (cdr attr)) width)) | 2289 | (<= (car (cdr attr)) width)) |
| 2290 | (setq result (cdr attr))))))) | 2290 | (setq result (cdr attr))))))) |
| 2291 | result)) | 2291 | result)) |
| 2292 | (let ((result (shr-render-td-1 dom width fill))) | 2292 | (let* ((pt (point)) |
| 2293 | (result (shr-render-td-1 dom width fill))) | ||
| 2293 | (dom-set-attribute dom cache result) | 2294 | (dom-set-attribute dom cache result) |
| 2295 | (goto-char pt) | ||
| 2294 | result)))) | 2296 | result)))) |
| 2295 | 2297 | ||
| 2296 | (defun shr-render-td-1 (dom width fill) | 2298 | (defun shr-render-td-1 (dom width fill) |
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el index 424e77b0eba..404af983b50 100644 --- a/lisp/net/tramp-gvfs.el +++ b/lisp/net/tramp-gvfs.el | |||
| @@ -1056,11 +1056,11 @@ If FILE-SYSTEM is non-nil, return file system attributes." | |||
| 1056 | (defun tramp-gvfs-handle-file-local-copy (filename) | 1056 | (defun tramp-gvfs-handle-file-local-copy (filename) |
| 1057 | "Like `file-local-copy' for Tramp files." | 1057 | "Like `file-local-copy' for Tramp files." |
| 1058 | (with-parsed-tramp-file-name filename nil | 1058 | (with-parsed-tramp-file-name filename nil |
| 1059 | (unless (file-exists-p filename) | ||
| 1060 | (tramp-error | ||
| 1061 | v tramp-file-missing | ||
| 1062 | "Cannot make local copy of non-existing file `%s'" filename)) | ||
| 1059 | (let ((tmpfile (tramp-compat-make-temp-file filename))) | 1063 | (let ((tmpfile (tramp-compat-make-temp-file filename))) |
| 1060 | (unless (file-exists-p filename) | ||
| 1061 | (tramp-error | ||
| 1062 | v tramp-file-missing | ||
| 1063 | "Cannot make local copy of non-existing file `%s'" filename)) | ||
| 1064 | (copy-file filename tmpfile 'ok-if-already-exists 'keep-time) | 1064 | (copy-file filename tmpfile 'ok-if-already-exists 'keep-time) |
| 1065 | tmpfile))) | 1065 | tmpfile))) |
| 1066 | 1066 | ||
diff --git a/lisp/obsolete/complete.el b/lisp/obsolete/complete.el index 40123ccacaf..1f154a4d2e9 100644 --- a/lisp/obsolete/complete.el +++ b/lisp/obsolete/complete.el | |||
| @@ -924,7 +924,7 @@ or properties are considered." | |||
| 924 | (or (boundp sym) (fboundp sym) | 924 | (or (boundp sym) (fboundp sym) |
| 925 | (symbol-plist sym)))))) | 925 | (symbol-plist sym)))))) |
| 926 | (PC-not-minibuffer t)) | 926 | (PC-not-minibuffer t)) |
| 927 | ;; https://lists.gnu.org/archive/html/emacs-devel/2007-03/msg01211.html | 927 | ;; https://lists.gnu.org/r/emacs-devel/2007-03/msg01211.html |
| 928 | ;; | 928 | ;; |
| 929 | ;; This deals with cases like running PC-l-c-s on "M-: (n-f". | 929 | ;; This deals with cases like running PC-l-c-s on "M-: (n-f". |
| 930 | ;; The first call to PC-l-c-s expands this to "(ne-f", and moves | 930 | ;; The first call to PC-l-c-s expands this to "(ne-f", and moves |
diff --git a/lisp/org/ChangeLog.1 b/lisp/org/ChangeLog.1 index ee5f01479a8..b7cfd1e4aa1 100644 --- a/lisp/org/ChangeLog.1 +++ b/lisp/org/ChangeLog.1 | |||
| @@ -11560,7 +11560,7 @@ | |||
| 11560 | break after the last footnote definition. This is an an implicit | 11560 | break after the last footnote definition. This is an an implicit |
| 11561 | assumption made by the org-lparse.el library. With this change, | 11561 | assumption made by the org-lparse.el library. With this change, |
| 11562 | footnote definitions can reliably be exported with ODT backend. | 11562 | footnote definitions can reliably be exported with ODT backend. |
| 11563 | See https://lists.gnu.org/archive/html/emacs-orgmode/2012-02/msg01013.html. | 11563 | See https://lists.gnu.org/r/emacs-orgmode/2012-02/msg01013.html. |
| 11564 | 11564 | ||
| 11565 | 2012-04-01 Eric Schulte <eric.schulte@gmx.com> | 11565 | 2012-04-01 Eric Schulte <eric.schulte@gmx.com> |
| 11566 | 11566 | ||
| @@ -13952,7 +13952,7 @@ | |||
| 13952 | 13952 | ||
| 13953 | * org.el (org-mode): Force left-to-right paragraphs in Org | 13953 | * org.el (org-mode): Force left-to-right paragraphs in Org |
| 13954 | buffers. For a related discussions, see | 13954 | buffers. For a related discussions, see |
| 13955 | https://lists.gnu.org/archive/html/emacs-devel/2011-09/msg00349.html. | 13955 | https://lists.gnu.org/r/emacs-devel/2011-09/msg00349.html. |
| 13956 | 13956 | ||
| 13957 | 2012-01-03 Nicolas Goaziou <n.goaziou@gmail.com> | 13957 | 2012-01-03 Nicolas Goaziou <n.goaziou@gmail.com> |
| 13958 | 13958 | ||
| @@ -14933,7 +14933,7 @@ | |||
| 14933 | 14933 | ||
| 14934 | * org.el (org-mode): Force left-to-right paragraphs in Org | 14934 | * org.el (org-mode): Force left-to-right paragraphs in Org |
| 14935 | buffers. For a related discussions, see | 14935 | buffers. For a related discussions, see |
| 14936 | https://lists.gnu.org/archive/html/emacs-devel/2011-09/msg00349.html. | 14936 | https://lists.gnu.org/r/emacs-devel/2011-09/msg00349.html. |
| 14937 | 14937 | ||
| 14938 | 2011-09-17 Juanma Barranquero <lekktu@gmail.com> | 14938 | 2011-09-17 Juanma Barranquero <lekktu@gmail.com> |
| 14939 | 14939 | ||
diff --git a/lisp/org/ox-odt.el b/lisp/org/ox-odt.el index f00fd99fc3e..7355eaab6de 100644 --- a/lisp/org/ox-odt.el +++ b/lisp/org/ox-odt.el | |||
| @@ -3890,7 +3890,7 @@ contextual information." | |||
| 3890 | ;; themselves and the list can be arbitrarily deep. | 3890 | ;; themselves and the list can be arbitrarily deep. |
| 3891 | ;; | 3891 | ;; |
| 3892 | ;; Inspired by following thread: | 3892 | ;; Inspired by following thread: |
| 3893 | ;; https://lists.gnu.org/archive/html/emacs-orgmode/2011-03/msg01101.html | 3893 | ;; https://lists.gnu.org/r/emacs-orgmode/2011-03/msg01101.html |
| 3894 | 3894 | ||
| 3895 | ;; Translate lists to tables | 3895 | ;; Translate lists to tables |
| 3896 | 3896 | ||
diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el index 2213a0239db..9bfe5c91f57 100644 --- a/lisp/pixel-scroll.el +++ b/lisp/pixel-scroll.el | |||
| @@ -261,7 +261,7 @@ unseen line above the first line, respectively, is provided." | |||
| 261 | ;; obtain height by (line-pixel-height). This is based on | 261 | ;; obtain height by (line-pixel-height). This is based on |
| 262 | ;; expected response from display engine. See following | 262 | ;; expected response from display engine. See following |
| 263 | ;; discussion. | 263 | ;; discussion. |
| 264 | ;; https://lists.gnu.org/archive/html/emacs-devel/2017-10/msg00621.html | 264 | ;; https://lists.gnu.org/r/emacs-devel/2017-10/msg00621.html |
| 265 | ((equal (count-lines (window-start) (point)) 1) | 265 | ((equal (count-lines (window-start) (point)) 1) |
| 266 | (line-pixel-height)) | 266 | (line-pixel-height)) |
| 267 | ;; No char of line is shown and the line is not at the top, | 267 | ;; No char of line is shown and the line is not at the top, |
diff --git a/lisp/plstore.el b/lisp/plstore.el index b49e3d40fc4..da260096eaf 100644 --- a/lisp/plstore.el +++ b/lisp/plstore.el | |||
| @@ -521,7 +521,7 @@ If no one is selected, symmetric encryption will be performed. " | |||
| 521 | t))) | 521 | t))) |
| 522 | 522 | ||
| 523 | (defun plstore-mode-original () | 523 | (defun plstore-mode-original () |
| 524 | "Show the original form of the this buffer." | 524 | "Show the original form of this buffer." |
| 525 | (interactive) | 525 | (interactive) |
| 526 | (when plstore-encoded | 526 | (when plstore-encoded |
| 527 | (if (and (buffer-modified-p) | 527 | (if (and (buffer-modified-p) |
| @@ -533,7 +533,7 @@ If no one is selected, symmetric encryption will be performed. " | |||
| 533 | (setq plstore-encoded nil))) | 533 | (setq plstore-encoded nil))) |
| 534 | 534 | ||
| 535 | (defun plstore-mode-decoded () | 535 | (defun plstore-mode-decoded () |
| 536 | "Show the decoded form of the this buffer." | 536 | "Show the decoded form of this buffer." |
| 537 | (interactive) | 537 | (interactive) |
| 538 | (unless plstore-encoded | 538 | (unless plstore-encoded |
| 539 | (if (and (buffer-modified-p) | 539 | (if (and (buffer-modified-p) |
diff --git a/lisp/proced.el b/lisp/proced.el index aec54b59211..b4bdbb05f0d 100644 --- a/lisp/proced.el +++ b/lisp/proced.el | |||
| @@ -1804,7 +1804,7 @@ supported but discouraged. It will be removed in a future version of Emacs." | |||
| 1804 | 1804 | ||
| 1805 | (let (failures) | 1805 | (let (failures) |
| 1806 | ;; Why not always use `signal-process'? See | 1806 | ;; Why not always use `signal-process'? See |
| 1807 | ;; https://lists.gnu.org/archive/html/emacs-devel/2008-03/msg02955.html | 1807 | ;; https://lists.gnu.org/r/emacs-devel/2008-03/msg02955.html |
| 1808 | (if (functionp proced-signal-function) | 1808 | (if (functionp proced-signal-function) |
| 1809 | ;; use built-in `signal-process' | 1809 | ;; use built-in `signal-process' |
| 1810 | (let ((signal (if (stringp signal) | 1810 | (let ((signal (if (stringp signal) |
diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el index 2b663135932..471560e19d4 100644 --- a/lisp/progmodes/cc-cmds.el +++ b/lisp/progmodes/cc-cmds.el | |||
| @@ -1849,7 +1849,15 @@ with a brace block." | |||
| 1849 | ;; Pick out the defun name, according to the type of defun. | 1849 | ;; Pick out the defun name, according to the type of defun. |
| 1850 | (cond | 1850 | (cond |
| 1851 | ;; struct, union, enum, or similar: | 1851 | ;; struct, union, enum, or similar: |
| 1852 | ((looking-at c-type-prefix-key) | 1852 | ((save-excursion |
| 1853 | (and | ||
| 1854 | (looking-at c-type-prefix-key) | ||
| 1855 | (consp (c-forward-decl-or-cast-1 (c-point 'bosws) 'top nil)) | ||
| 1856 | (or (not (or (eq (char-after) ?{) | ||
| 1857 | (and c-recognize-knr-p | ||
| 1858 | (c-in-knr-argdecl)))) | ||
| 1859 | (progn (c-backward-syntactic-ws) | ||
| 1860 | (not (eq (char-before) ?\))))))) | ||
| 1853 | (let ((key-pos (point))) | 1861 | (let ((key-pos (point))) |
| 1854 | (c-forward-over-token-and-ws) ; over "struct ". | 1862 | (c-forward-over-token-and-ws) ; over "struct ". |
| 1855 | (cond | 1863 | (cond |
| @@ -1897,8 +1905,16 @@ with a brace block." | |||
| 1897 | 1905 | ||
| 1898 | (t | 1906 | (t |
| 1899 | ;; Normal function or initializer. | 1907 | ;; Normal function or initializer. |
| 1900 | (when (c-syntactic-re-search-forward "[{(]" nil t) | 1908 | (when |
| 1901 | (backward-char) | 1909 | (and |
| 1910 | (consp (c-forward-decl-or-cast-1 (c-point 'bosws) 'top nil)) | ||
| 1911 | (or (eq (char-after) ?{) | ||
| 1912 | (and c-recognize-knr-p | ||
| 1913 | (c-in-knr-argdecl))) | ||
| 1914 | (progn | ||
| 1915 | (c-backward-syntactic-ws) | ||
| 1916 | (eq (char-before) ?\))) | ||
| 1917 | (c-go-list-backward)) | ||
| 1902 | (c-backward-syntactic-ws) | 1918 | (c-backward-syntactic-ws) |
| 1903 | (when (eq (char-before) ?\=) ; struct foo bar = {0, 0} ; | 1919 | (when (eq (char-before) ?\=) ; struct foo bar = {0, 0} ; |
| 1904 | (c-backward-token-2) | 1920 | (c-backward-token-2) |
diff --git a/lisp/progmodes/cc-menus.el b/lisp/progmodes/cc-menus.el index 9339dcd83cc..7dae8297fd3 100644 --- a/lisp/progmodes/cc-menus.el +++ b/lisp/progmodes/cc-menus.el | |||
| @@ -117,7 +117,7 @@ A sample value might look like: `\\(_P\\|_PROTO\\)'.") | |||
| 117 | ,(concat | 117 | ,(concat |
| 118 | "^\\<" ; line MUST start with word char | 118 | "^\\<" ; line MUST start with word char |
| 119 | ;; \n added to prevent overflow in regexp matcher. | 119 | ;; \n added to prevent overflow in regexp matcher. |
| 120 | ;; https://lists.gnu.org/archive/html/emacs-pretest-bug/2007-02/msg00021.html | 120 | ;; https://lists.gnu.org/r/emacs-pretest-bug/2007-02/msg00021.html |
| 121 | "[^()\n]*" ; no parentheses before | 121 | "[^()\n]*" ; no parentheses before |
| 122 | "[^" c-alnum "_:<>~]" ; match any non-identifier char | 122 | "[^" c-alnum "_:<>~]" ; match any non-identifier char |
| 123 | "\\([" c-alpha "_][" c-alnum "_:<>~]*\\)" ; match function name | 123 | "\\([" c-alpha "_][" c-alnum "_:<>~]*\\)" ; match function name |
diff --git a/lisp/progmodes/cc-vars.el b/lisp/progmodes/cc-vars.el index df202e9cd2f..c4213797636 100644 --- a/lisp/progmodes/cc-vars.el +++ b/lisp/progmodes/cc-vars.el | |||
| @@ -1227,8 +1227,8 @@ As described below, each cons cell in this list has the form: | |||
| 1227 | 1227 | ||
| 1228 | When a line is indented, CC Mode first determines the syntactic | 1228 | When a line is indented, CC Mode first determines the syntactic |
| 1229 | context of it by generating a list of symbols called syntactic | 1229 | context of it by generating a list of symbols called syntactic |
| 1230 | elements. The global variable `c-syntactic-context' is bound to the | 1230 | elements. The global variable `c-syntactic-context' is bound to that |
| 1231 | that list. Each element in the list is in turn a list where the first | 1231 | list. Each element in the list is in turn a list where the first |
| 1232 | element is a syntactic symbol which tells what kind of construct the | 1232 | element is a syntactic symbol which tells what kind of construct the |
| 1233 | indentation point is located within. More elements in the syntactic | 1233 | indentation point is located within. More elements in the syntactic |
| 1234 | element lists are optional. If there is one more and it isn't nil, | 1234 | element lists are optional. If there is one more and it isn't nil, |
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 0794830fcb8..4cce47e5d8c 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -1740,7 +1740,7 @@ Returns the compilation buffer created." | |||
| 1740 | (setq thisdir default-directory)) | 1740 | (setq thisdir default-directory)) |
| 1741 | (set-buffer-modified-p nil)) | 1741 | (set-buffer-modified-p nil)) |
| 1742 | ;; Pop up the compilation buffer. | 1742 | ;; Pop up the compilation buffer. |
| 1743 | ;; https://lists.gnu.org/archive/html/emacs-devel/2007-11/msg01638.html | 1743 | ;; https://lists.gnu.org/r/emacs-devel/2007-11/msg01638.html |
| 1744 | (setq outwin (display-buffer outbuf '(nil (allow-no-window . t)))) | 1744 | (setq outwin (display-buffer outbuf '(nil (allow-no-window . t)))) |
| 1745 | (with-current-buffer outbuf | 1745 | (with-current-buffer outbuf |
| 1746 | (let ((process-environment | 1746 | (let ((process-environment |
| @@ -2855,7 +2855,7 @@ TRUE-DIRNAME is the `file-truename' of DIRNAME, if given." | |||
| 2855 | ;; The gethash used to not use spec-directory, but | 2855 | ;; The gethash used to not use spec-directory, but |
| 2856 | ;; this leads to errors when files in different | 2856 | ;; this leads to errors when files in different |
| 2857 | ;; directories have the same name: | 2857 | ;; directories have the same name: |
| 2858 | ;; https://lists.gnu.org/archive/html/emacs-devel/2007-08/msg00463.html | 2858 | ;; https://lists.gnu.org/r/emacs-devel/2007-08/msg00463.html |
| 2859 | (or (gethash (cons filename spec-directory) compilation-locs) | 2859 | (or (gethash (cons filename spec-directory) compilation-locs) |
| 2860 | (puthash (cons filename spec-directory) | 2860 | (puthash (cons filename spec-directory) |
| 2861 | (compilation--make-file-struct | 2861 | (compilation--make-file-struct |
diff --git a/lisp/progmodes/flymake-proc.el b/lisp/progmodes/flymake-proc.el index e28451d9417..e207de5da6c 100644 --- a/lisp/progmodes/flymake-proc.el +++ b/lisp/progmodes/flymake-proc.el | |||
| @@ -768,7 +768,7 @@ can also be executed interactively independently of | |||
| 768 | ;; trying if the directory is read-only (bug#8954). | 768 | ;; trying if the directory is read-only (bug#8954). |
| 769 | (file-writable-p (file-name-directory buffer-file-name)) | 769 | (file-writable-p (file-name-directory buffer-file-name)) |
| 770 | (flymake-proc--get-init-function buffer-file-name)))) | 770 | (flymake-proc--get-init-function buffer-file-name)))) |
| 771 | (unless init-f (error "Can find a suitable init function")) | 771 | (unless init-f (error "Can't find a suitable init function")) |
| 772 | (flymake-proc--clear-buildfile-cache) | 772 | (flymake-proc--clear-buildfile-cache) |
| 773 | (flymake-proc--clear-project-include-dirs-cache) | 773 | (flymake-proc--clear-project-include-dirs-cache) |
| 774 | 774 | ||
diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el index 103b6ce7c51..dc6bba44f32 100644 --- a/lisp/progmodes/octave.el +++ b/lisp/progmodes/octave.el | |||
| @@ -1497,7 +1497,7 @@ current buffer file unless called with a prefix arg \\[universal-argument]." | |||
| 1497 | (string (buffer-substring-no-properties beg end)) | 1497 | (string (buffer-substring-no-properties beg end)) |
| 1498 | line) | 1498 | line) |
| 1499 | (with-current-buffer inferior-octave-buffer | 1499 | (with-current-buffer inferior-octave-buffer |
| 1500 | ;; https://lists.gnu.org/archive/html/emacs-devel/2013-10/msg00095.html | 1500 | ;; https://lists.gnu.org/r/emacs-devel/2013-10/msg00095.html |
| 1501 | (compilation-forget-errors) | 1501 | (compilation-forget-errors) |
| 1502 | (setq inferior-octave-output-list nil) | 1502 | (setq inferior-octave-output-list nil) |
| 1503 | (while (not (string-equal string "")) | 1503 | (while (not (string-equal string "")) |
diff --git a/lisp/progmodes/ruby-mode.el b/lisp/progmodes/ruby-mode.el index da08bb0788e..dc1b0f8e2da 100644 --- a/lisp/progmodes/ruby-mode.el +++ b/lisp/progmodes/ruby-mode.el | |||
| @@ -2254,24 +2254,38 @@ See `font-lock-syntax-table'.") | |||
| 2254 | (ruby-match-expression-expansion limit))))) | 2254 | (ruby-match-expression-expansion limit))))) |
| 2255 | 2255 | ||
| 2256 | ;;; Flymake support | 2256 | ;;; Flymake support |
| 2257 | (defcustom ruby-flymake-command '("ruby" "-w" "-c") | ||
| 2258 | "External tool used to check Ruby source code. | ||
| 2259 | This is a non empty list of strings, the checker tool possibly | ||
| 2260 | followed by required arguments. Once launched it will receive | ||
| 2261 | the Ruby source to be checked as its standard input." | ||
| 2262 | :group 'ruby | ||
| 2263 | :type '(repeat string)) | ||
| 2264 | |||
| 2265 | (defvar-local ruby--flymake-proc nil) | 2257 | (defvar-local ruby--flymake-proc nil) |
| 2266 | 2258 | ||
| 2267 | (defun ruby-flymake (report-fn &rest _args) | 2259 | (defun ruby-flymake-simple (report-fn &rest _args) |
| 2268 | "Ruby backend for Flymake. Launches | 2260 | "`ruby -wc' backend for Flymake." |
| 2269 | `ruby-flymake-command' (which see) and passes to its standard | 2261 | (unless (executable-find "ruby") |
| 2270 | input the contents of the current buffer. The output of this | 2262 | (error "Cannot find the ruby executable")) |
| 2271 | command is analyzed for error and warning messages." | 2263 | |
| 2272 | (unless (executable-find (car ruby-flymake-command)) | 2264 | (ruby-flymake--helper |
| 2273 | (error "Cannot find a suitable checker")) | 2265 | "ruby-flymake" |
| 2274 | 2266 | '("ruby" "-w" "-c") | |
| 2267 | (lambda (_proc source) | ||
| 2268 | (goto-char (point-min)) | ||
| 2269 | (cl-loop | ||
| 2270 | while (search-forward-regexp | ||
| 2271 | "^\\(?:.*.rb\\|-\\):\\([0-9]+\\): \\(.*\\)$" | ||
| 2272 | nil t) | ||
| 2273 | for msg = (match-string 2) | ||
| 2274 | for (beg . end) = (flymake-diag-region | ||
| 2275 | source | ||
| 2276 | (string-to-number (match-string 1))) | ||
| 2277 | for type = (if (string-match "^warning" msg) | ||
| 2278 | :warning | ||
| 2279 | :error) | ||
| 2280 | collect (flymake-make-diagnostic source | ||
| 2281 | beg | ||
| 2282 | end | ||
| 2283 | type | ||
| 2284 | msg) | ||
| 2285 | into diags | ||
| 2286 | finally (funcall report-fn diags))))) | ||
| 2287 | |||
| 2288 | (defun ruby-flymake--helper (process-name command parser-fn) | ||
| 2275 | (when (process-live-p ruby--flymake-proc) | 2289 | (when (process-live-p ruby--flymake-proc) |
| 2276 | (kill-process ruby--flymake-proc)) | 2290 | (kill-process ruby--flymake-proc)) |
| 2277 | 2291 | ||
| @@ -2281,40 +2295,97 @@ command is analyzed for error and warning messages." | |||
| 2281 | (setq | 2295 | (setq |
| 2282 | ruby--flymake-proc | 2296 | ruby--flymake-proc |
| 2283 | (make-process | 2297 | (make-process |
| 2284 | :name "ruby-flymake" :noquery t :connection-type 'pipe | 2298 | :name process-name :noquery t :connection-type 'pipe |
| 2285 | :buffer (generate-new-buffer " *ruby-flymake*") | 2299 | :buffer (generate-new-buffer (format " *%s*" process-name)) |
| 2286 | :command ruby-flymake-command | 2300 | :command command |
| 2287 | :sentinel | 2301 | :sentinel |
| 2288 | (lambda (proc _event) | 2302 | (lambda (proc _event) |
| 2289 | (when (eq 'exit (process-status proc)) | 2303 | (when (eq 'exit (process-status proc)) |
| 2290 | (unwind-protect | 2304 | (unwind-protect |
| 2291 | (if (with-current-buffer source (eq proc ruby--flymake-proc)) | 2305 | (if (with-current-buffer source (eq proc ruby--flymake-proc)) |
| 2292 | (with-current-buffer (process-buffer proc) | 2306 | (with-current-buffer (process-buffer proc) |
| 2293 | (goto-char (point-min)) | 2307 | (funcall parser-fn proc source)) |
| 2294 | (cl-loop | ||
| 2295 | while (search-forward-regexp | ||
| 2296 | "^\\(?:.*.rb\\|-\\):\\([0-9]+\\): \\(.*\\)$" | ||
| 2297 | nil t) | ||
| 2298 | for msg = (match-string 2) | ||
| 2299 | for (beg . end) = (flymake-diag-region | ||
| 2300 | source | ||
| 2301 | (string-to-number (match-string 1))) | ||
| 2302 | for type = (if (string-match "^warning" msg) | ||
| 2303 | :warning | ||
| 2304 | :error) | ||
| 2305 | collect (flymake-make-diagnostic source | ||
| 2306 | beg | ||
| 2307 | end | ||
| 2308 | type | ||
| 2309 | msg) | ||
| 2310 | into diags | ||
| 2311 | finally (funcall report-fn diags))) | ||
| 2312 | (flymake-log :debug "Canceling obsolete check %s" | 2308 | (flymake-log :debug "Canceling obsolete check %s" |
| 2313 | proc)) | 2309 | proc)) |
| 2314 | (kill-buffer (process-buffer proc))))))) | 2310 | (kill-buffer (process-buffer proc))))))) |
| 2315 | (process-send-region ruby--flymake-proc (point-min) (point-max)) | 2311 | (process-send-region ruby--flymake-proc (point-min) (point-max)) |
| 2316 | (process-send-eof ruby--flymake-proc)))) | 2312 | (process-send-eof ruby--flymake-proc)))) |
| 2317 | 2313 | ||
| 2314 | (defcustom ruby-flymake-use-rubocop-if-available t | ||
| 2315 | "Non-nil to use the Rubocop Flymake backend. | ||
| 2316 | Only takes effect if Rubocop is installed." | ||
| 2317 | :type 'boolean | ||
| 2318 | :group 'ruby | ||
| 2319 | :safe 'booleanp) | ||
| 2320 | |||
| 2321 | (defcustom ruby-rubocop-config ".rubocop.yml" | ||
| 2322 | "Configuration file for `ruby-flymake-rubocop'." | ||
| 2323 | :type 'string | ||
| 2324 | :group 'ruby | ||
| 2325 | :safe 'stringp) | ||
| 2326 | |||
| 2327 | (defun ruby-flymake-rubocop (report-fn &rest _args) | ||
| 2328 | "Rubocop backend for Flymake." | ||
| 2329 | (unless (executable-find "rubocop") | ||
| 2330 | (error "Cannot find the rubocop executable")) | ||
| 2331 | |||
| 2332 | (let ((command (list "rubocop" "--stdin" buffer-file-name "--format" "emacs" | ||
| 2333 | "--cache" "false" ; Work around a bug in old version. | ||
| 2334 | "--display-cop-names")) | ||
| 2335 | config-dir) | ||
| 2336 | (when buffer-file-name | ||
| 2337 | (setq config-dir (locate-dominating-file buffer-file-name | ||
| 2338 | ruby-rubocop-config)) | ||
| 2339 | (when config-dir | ||
| 2340 | (setq command (append command (list "--config" | ||
| 2341 | (expand-file-name ruby-rubocop-config | ||
| 2342 | config-dir))))) | ||
| 2343 | |||
| 2344 | (ruby-flymake--helper | ||
| 2345 | "rubocop-flymake" | ||
| 2346 | command | ||
| 2347 | (lambda (proc source) | ||
| 2348 | ;; Finding the executable is no guarantee of | ||
| 2349 | ;; rubocop working, especially in the presence | ||
| 2350 | ;; of rbenv shims (which cross ruby versions). | ||
| 2351 | (when (eq (process-exit-status proc) 127) | ||
| 2352 | ;; Not sure what to do in this case. Maybe ideally we'd | ||
| 2353 | ;; switch back to ruby-flymake-simple. | ||
| 2354 | (flymake-log :warning "Rubocop returned status 127: %s" | ||
| 2355 | (buffer-string))) | ||
| 2356 | (goto-char (point-min)) | ||
| 2357 | (cl-loop | ||
| 2358 | while (search-forward-regexp | ||
| 2359 | "^\\(?:.*.rb\\|-\\):\\([0-9]+\\):\\([0-9]+\\): \\(.*\\)$" | ||
| 2360 | nil t) | ||
| 2361 | for msg = (match-string 3) | ||
| 2362 | for (beg . end) = (flymake-diag-region | ||
| 2363 | source | ||
| 2364 | (string-to-number (match-string 1)) | ||
| 2365 | (string-to-number (match-string 2))) | ||
| 2366 | for type = (cond | ||
| 2367 | ((string-match "^[EF]: " msg) | ||
| 2368 | :error) | ||
| 2369 | ((string-match "^W: " msg) | ||
| 2370 | :warning) | ||
| 2371 | (t :note)) | ||
| 2372 | collect (flymake-make-diagnostic source | ||
| 2373 | beg | ||
| 2374 | end | ||
| 2375 | type | ||
| 2376 | (substring msg 3)) | ||
| 2377 | into diags | ||
| 2378 | finally (funcall report-fn diags))))))) | ||
| 2379 | |||
| 2380 | (defun ruby-flymake-auto (report-fn &rest args) | ||
| 2381 | (apply | ||
| 2382 | (if (and ruby-flymake-use-rubocop-if-available | ||
| 2383 | (executable-find "rubocop")) | ||
| 2384 | #'ruby-flymake-rubocop | ||
| 2385 | #'ruby-flymake-simple) | ||
| 2386 | report-fn | ||
| 2387 | args)) | ||
| 2388 | |||
| 2318 | ;;;###autoload | 2389 | ;;;###autoload |
| 2319 | (define-derived-mode ruby-mode prog-mode "Ruby" | 2390 | (define-derived-mode ruby-mode prog-mode "Ruby" |
| 2320 | "Major mode for editing Ruby code." | 2391 | "Major mode for editing Ruby code." |
| @@ -2327,7 +2398,7 @@ command is analyzed for error and warning messages." | |||
| 2327 | 2398 | ||
| 2328 | (add-hook 'after-save-hook 'ruby-mode-set-encoding nil 'local) | 2399 | (add-hook 'after-save-hook 'ruby-mode-set-encoding nil 'local) |
| 2329 | (add-hook 'electric-indent-functions 'ruby--electric-indent-p nil 'local) | 2400 | (add-hook 'electric-indent-functions 'ruby--electric-indent-p nil 'local) |
| 2330 | (add-hook 'flymake-diagnostic-functions 'ruby-flymake nil 'local) | 2401 | (add-hook 'flymake-diagnostic-functions 'ruby-flymake-auto nil 'local) |
| 2331 | 2402 | ||
| 2332 | (setq-local font-lock-defaults '((ruby-font-lock-keywords) nil nil)) | 2403 | (setq-local font-lock-defaults '((ruby-font-lock-keywords) nil nil)) |
| 2333 | (setq-local font-lock-keywords ruby-font-lock-keywords) | 2404 | (setq-local font-lock-keywords ruby-font-lock-keywords) |
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el index a6e3ae54559..e2bd89ec46c 100644 --- a/lisp/progmodes/verilog-mode.el +++ b/lisp/progmodes/verilog-mode.el | |||
| @@ -284,7 +284,7 @@ STRING should be given if the last search was by `string-match' on STRING." | |||
| 284 | ;; This function is lifted directly from emacs's subr.el | 284 | ;; This function is lifted directly from emacs's subr.el |
| 285 | ;; so that it can be used by xemacs. | 285 | ;; so that it can be used by xemacs. |
| 286 | ;; The idea for this was borrowed from org-mode via this link: | 286 | ;; The idea for this was borrowed from org-mode via this link: |
| 287 | ;; https://lists.gnu.org/archive/html/emacs-orgmode/2009-12/msg00032.html | 287 | ;; https://lists.gnu.org/r/emacs-orgmode/2009-12/msg00032.html |
| 288 | (eval-and-compile | 288 | (eval-and-compile |
| 289 | (cond | 289 | (cond |
| 290 | ((fboundp 'looking-back) | 290 | ((fboundp 'looking-back) |
diff --git a/lisp/simple.el b/lisp/simple.el index 41f22b2396d..24ecf6929d9 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -406,9 +406,18 @@ Other major modes are defined by comparison with this one." | |||
| 406 | (defvar self-insert-uses-region-functions nil | 406 | (defvar self-insert-uses-region-functions nil |
| 407 | "Special hook to tell if `self-insert-command' will use the region. | 407 | "Special hook to tell if `self-insert-command' will use the region. |
| 408 | It must be called via `run-hook-with-args-until-success' with no arguments. | 408 | It must be called via `run-hook-with-args-until-success' with no arguments. |
| 409 | Any `post-self-insert-command' which consumes the region should | 409 | |
| 410 | register a function on this hook so that things like `delete-selection-mode' | 410 | If any function on this hook returns a non-nil value, `delete-selection-mode' |
| 411 | can refrain from consuming the region.") | 411 | will act on that value (see `delete-selection-helper'), and will |
| 412 | usually delete the region. If all the functions on this hook return | ||
| 413 | nil, it is an indiction that `self-insert-command' needs the region | ||
| 414 | untouched by `delete-selection-mode', and will itself do whatever is | ||
| 415 | appropriate with the region. | ||
| 416 | Any function on `post-self-insert-hook' which act on the region should | ||
| 417 | add a function to this hook so that `delete-selection-mode' could | ||
| 418 | refrain from deleting the region before `post-self-insert-hook' | ||
| 419 | functions are called. | ||
| 420 | This hook is run by `delete-selection-uses-region-p', which see.") | ||
| 412 | 421 | ||
| 413 | (defvar hard-newline (propertize "\n" 'hard t 'rear-nonsticky '(hard)) | 422 | (defvar hard-newline (propertize "\n" 'hard t 'rear-nonsticky '(hard)) |
| 414 | "Propertized string representing a hard newline character.") | 423 | "Propertized string representing a hard newline character.") |
| @@ -8816,7 +8825,7 @@ If it does not exist, create and it switch it to `messages-buffer-mode'." | |||
| 8816 | ;; rms says this should be done by specifying symbols that define | 8825 | ;; rms says this should be done by specifying symbols that define |
| 8817 | ;; versions together with bad values. This is therefore not as | 8826 | ;; versions together with bad values. This is therefore not as |
| 8818 | ;; flexible as it could be. See the thread: | 8827 | ;; flexible as it could be. See the thread: |
| 8819 | ;; https://lists.gnu.org/archive/html/emacs-devel/2007-08/msg00300.html | 8828 | ;; https://lists.gnu.org/r/emacs-devel/2007-08/msg00300.html |
| 8820 | (defconst bad-packages-alist | 8829 | (defconst bad-packages-alist |
| 8821 | ;; Not sure exactly which semantic versions have problems. | 8830 | ;; Not sure exactly which semantic versions have problems. |
| 8822 | ;; Definitely 2.0pre3, probably all 2.0pre's before this. | 8831 | ;; Definitely 2.0pre3, probably all 2.0pre's before this. |
diff --git a/lisp/startup.el b/lisp/startup.el index 4b538d130e7..a39c8f0fe76 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -513,7 +513,7 @@ It is the default value of the variable `top-level'." | |||
| 513 | (let ((default-directory dir)) | 513 | (let ((default-directory dir)) |
| 514 | (load (expand-file-name "subdirs.el") t t t)) | 514 | (load (expand-file-name "subdirs.el") t t t)) |
| 515 | ;; Do not scan standard directories that won't contain a leim-list.el. | 515 | ;; Do not scan standard directories that won't contain a leim-list.el. |
| 516 | ;; https://lists.gnu.org/archive/html/emacs-devel/2009-10/msg00502.html | 516 | ;; https://lists.gnu.org/r/emacs-devel/2009-10/msg00502.html |
| 517 | ;; (Except the preloaded one in lisp/leim.) | 517 | ;; (Except the preloaded one in lisp/leim.) |
| 518 | (or (string-prefix-p lispdir dir) | 518 | (or (string-prefix-p lispdir dir) |
| 519 | (let ((default-directory dir)) | 519 | (let ((default-directory dir)) |
| @@ -1371,7 +1371,7 @@ the `--debug-init' option to view a complete error backtrace." | |||
| 1371 | ;; trying to load gnus could load the wrong file. | 1371 | ;; trying to load gnus could load the wrong file. |
| 1372 | ;; OK, it would not matter if .emacs.d were at the end of load-path. | 1372 | ;; OK, it would not matter if .emacs.d were at the end of load-path. |
| 1373 | ;; but for the sake of simplicity, we discourage it full-stop. | 1373 | ;; but for the sake of simplicity, we discourage it full-stop. |
| 1374 | ;; Ref eg https://lists.gnu.org/archive/html/emacs-devel/2012-03/msg00056.html | 1374 | ;; Ref eg https://lists.gnu.org/r/emacs-devel/2012-03/msg00056.html |
| 1375 | ;; | 1375 | ;; |
| 1376 | ;; A bad element could come from user-emacs-file, the command line, | 1376 | ;; A bad element could come from user-emacs-file, the command line, |
| 1377 | ;; or EMACSLOADPATH, so we basically always have to check. | 1377 | ;; or EMACSLOADPATH, so we basically always have to check. |
diff --git a/lisp/subr.el b/lisp/subr.el index 01acc336262..7ec727ef19c 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -577,7 +577,7 @@ one is kept." | |||
| 577 | (setq tail (cdr tail)))))) | 577 | (setq tail (cdr tail)))))) |
| 578 | list) | 578 | list) |
| 579 | 579 | ||
| 580 | ;; See https://lists.gnu.org/archive/html/emacs-devel/2013-05/msg00204.html | 580 | ;; See https://lists.gnu.org/r/emacs-devel/2013-05/msg00204.html |
| 581 | (defun delete-consecutive-dups (list &optional circular) | 581 | (defun delete-consecutive-dups (list &optional circular) |
| 582 | "Destructively remove `equal' consecutive duplicates from LIST. | 582 | "Destructively remove `equal' consecutive duplicates from LIST. |
| 583 | First and last elements are considered consecutive if CIRCULAR is | 583 | First and last elements are considered consecutive if CIRCULAR is |
| @@ -2426,7 +2426,7 @@ in milliseconds; this was useful when Emacs was built without | |||
| 2426 | floating point support." | 2426 | floating point support." |
| 2427 | (declare (advertised-calling-convention (seconds &optional nodisp) "22.1")) | 2427 | (declare (advertised-calling-convention (seconds &optional nodisp) "22.1")) |
| 2428 | ;; This used to be implemented in C until the following discussion: | 2428 | ;; This used to be implemented in C until the following discussion: |
| 2429 | ;; https://lists.gnu.org/archive/html/emacs-devel/2006-07/msg00401.html | 2429 | ;; https://lists.gnu.org/r/emacs-devel/2006-07/msg00401.html |
| 2430 | ;; Then it was moved here using an implementation based on an idle timer, | 2430 | ;; Then it was moved here using an implementation based on an idle timer, |
| 2431 | ;; which was then replaced by the use of read-event. | 2431 | ;; which was then replaced by the use of read-event. |
| 2432 | (if (numberp nodisp) | 2432 | (if (numberp nodisp) |
| @@ -2465,7 +2465,7 @@ floating point support." | |||
| 2465 | (read-event nil t seconds)))) | 2465 | (read-event nil t seconds)))) |
| 2466 | (or (null read) | 2466 | (or (null read) |
| 2467 | (progn | 2467 | (progn |
| 2468 | ;; https://lists.gnu.org/archive/html/emacs-devel/2006-10/msg00394.html | 2468 | ;; https://lists.gnu.org/r/emacs-devel/2006-10/msg00394.html |
| 2469 | ;; We want `read' appear in the next command's this-command-event | 2469 | ;; We want `read' appear in the next command's this-command-event |
| 2470 | ;; but not in the current one. | 2470 | ;; but not in the current one. |
| 2471 | ;; By pushing (cons t read), we indicate that `read' has not | 2471 | ;; By pushing (cons t read), we indicate that `read' has not |
| @@ -3098,7 +3098,7 @@ Do nothing if FACE is nil." | |||
| 3098 | (put-text-property start end 'face face))) | 3098 | (put-text-property start end 'face face))) |
| 3099 | 3099 | ||
| 3100 | ;; This removes `mouse-face' properties in *Help* buffer buttons: | 3100 | ;; This removes `mouse-face' properties in *Help* buffer buttons: |
| 3101 | ;; https://lists.gnu.org/archive/html/emacs-devel/2002-04/msg00648.html | 3101 | ;; https://lists.gnu.org/r/emacs-devel/2002-04/msg00648.html |
| 3102 | (defun yank-handle-category-property (category start end) | 3102 | (defun yank-handle-category-property (category start end) |
| 3103 | "Apply property category CATEGORY's properties between START and END." | 3103 | "Apply property category CATEGORY's properties between START and END." |
| 3104 | (when category | 3104 | (when category |
| @@ -4213,7 +4213,7 @@ Used from `delayed-warnings-hook' (which see)." | |||
| 4213 | (setq delayed-warnings-list (nreverse collapsed)))) | 4213 | (setq delayed-warnings-list (nreverse collapsed)))) |
| 4214 | 4214 | ||
| 4215 | ;; At present this is only used for Emacs internals. | 4215 | ;; At present this is only used for Emacs internals. |
| 4216 | ;; Ref https://lists.gnu.org/archive/html/emacs-devel/2012-02/msg00085.html | 4216 | ;; Ref https://lists.gnu.org/r/emacs-devel/2012-02/msg00085.html |
| 4217 | (defvar delayed-warnings-hook '(collapse-delayed-warnings | 4217 | (defvar delayed-warnings-hook '(collapse-delayed-warnings |
| 4218 | display-delayed-warnings) | 4218 | display-delayed-warnings) |
| 4219 | "Normal hook run to process and display delayed warnings. | 4219 | "Normal hook run to process and display delayed warnings. |
| @@ -5223,7 +5223,7 @@ or \"gnus-article-toto-\".") | |||
| 5223 | 5223 | ||
| 5224 | ;; The following statement ought to be in print.c, but `provide' can't | 5224 | ;; The following statement ought to be in print.c, but `provide' can't |
| 5225 | ;; be used there. | 5225 | ;; be used there. |
| 5226 | ;; https://lists.gnu.org/archive/html/emacs-devel/2009-08/msg00236.html | 5226 | ;; https://lists.gnu.org/r/emacs-devel/2009-08/msg00236.html |
| 5227 | (when (hash-table-p (car (read-from-string | 5227 | (when (hash-table-p (car (read-from-string |
| 5228 | (prin1-to-string (make-hash-table))))) | 5228 | (prin1-to-string (make-hash-table))))) |
| 5229 | (provide 'hashtable-print-readable)) | 5229 | (provide 'hashtable-print-readable)) |
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index b8d1a436909..e895d09bb4f 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el | |||
| @@ -594,7 +594,7 @@ the last file dropped is selected." | |||
| 594 | (declare-function tool-bar-mode "tool-bar" (&optional arg)) | 594 | (declare-function tool-bar-mode "tool-bar" (&optional arg)) |
| 595 | 595 | ||
| 596 | ;; Based on a function by David Reitter <dreitter@inf.ed.ac.uk> ; | 596 | ;; Based on a function by David Reitter <dreitter@inf.ed.ac.uk> ; |
| 597 | ;; see https://lists.gnu.org/archive/html/emacs-devel/2005-09/msg00681.html . | 597 | ;; see https://lists.gnu.org/r/emacs-devel/2005-09/msg00681.html . |
| 598 | (defun ns-toggle-toolbar (&optional frame) | 598 | (defun ns-toggle-toolbar (&optional frame) |
| 599 | "Switches the tool bar on and off in frame FRAME. | 599 | "Switches the tool bar on and off in frame FRAME. |
| 600 | If FRAME is nil, the change applies to the selected frame." | 600 | If FRAME is nil, the change applies to the selected frame." |
| @@ -878,7 +878,7 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.") | |||
| 878 | 878 | ||
| 879 | ;; Mac OS X Lion introduces PressAndHold, which is unsupported by this port. | 879 | ;; Mac OS X Lion introduces PressAndHold, which is unsupported by this port. |
| 880 | ;; See this thread for more details: | 880 | ;; See this thread for more details: |
| 881 | ;; https://lists.gnu.org/archive/html/emacs-devel/2011-06/msg00505.html | 881 | ;; https://lists.gnu.org/r/emacs-devel/2011-06/msg00505.html |
| 882 | (ns-set-resource nil "ApplePressAndHoldEnabled" "NO") | 882 | (ns-set-resource nil "ApplePressAndHoldEnabled" "NO") |
| 883 | 883 | ||
| 884 | (x-apply-session-resources) | 884 | (x-apply-session-resources) |
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 62200bf2cbd..e7b1e08b038 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el | |||
| @@ -1287,7 +1287,7 @@ This returns an error if any Emacs frames are X frames." | |||
| 1287 | 1287 | ||
| 1288 | ;; During initialization, we defer sending size hints to the window | 1288 | ;; During initialization, we defer sending size hints to the window |
| 1289 | ;; manager, because that can induce a race condition: | 1289 | ;; manager, because that can induce a race condition: |
| 1290 | ;; https://lists.gnu.org/archive/html/emacs-devel/2008-10/msg00033.html | 1290 | ;; https://lists.gnu.org/r/emacs-devel/2008-10/msg00033.html |
| 1291 | ;; Send the size hints once initialization is done. | 1291 | ;; Send the size hints once initialization is done. |
| 1292 | (add-hook 'after-init-hook 'x-wm-set-size-hint) | 1292 | (add-hook 'after-init-hook 'x-wm-set-size-hint) |
| 1293 | 1293 | ||
diff --git a/lisp/textmodes/mhtml-mode.el b/lisp/textmodes/mhtml-mode.el index 8df251276b5..09da155f487 100644 --- a/lisp/textmodes/mhtml-mode.el +++ b/lisp/textmodes/mhtml-mode.el | |||
| @@ -198,6 +198,12 @@ smallest." | |||
| 198 | (get-text-property orig-end 'mhtml-submode)) | 198 | (get-text-property orig-end 'mhtml-submode)) |
| 199 | (cl-decf font-lock-end))) | 199 | (cl-decf font-lock-end))) |
| 200 | 200 | ||
| 201 | ;; Also handle the multiline property -- but handle it here, and | ||
| 202 | ;; not via font-lock-extend-region-functions, to avoid the | ||
| 203 | ;; situation where the two extension functions disagree. | ||
| 204 | ;; See bug#29159. | ||
| 205 | (font-lock-extend-region-multiline) | ||
| 206 | |||
| 201 | (or (/= font-lock-beg orig-beg) | 207 | (or (/= font-lock-beg orig-beg) |
| 202 | (/= font-lock-end orig-end)))) | 208 | (/= font-lock-end orig-end)))) |
| 203 | 209 | ||
| @@ -365,8 +371,7 @@ the rules from `css-mode'." | |||
| 365 | (setq-local font-lock-fontify-region-function | 371 | (setq-local font-lock-fontify-region-function |
| 366 | #'mhtml--submode-fontify-region) | 372 | #'mhtml--submode-fontify-region) |
| 367 | (setq-local font-lock-extend-region-functions | 373 | (setq-local font-lock-extend-region-functions |
| 368 | '(mhtml--extend-font-lock-region | 374 | '(mhtml--extend-font-lock-region)) |
| 369 | font-lock-extend-region-multiline)) | ||
| 370 | 375 | ||
| 371 | ;; Attach this to both pre- and post- hooks just in case it ever | 376 | ;; Attach this to both pre- and post- hooks just in case it ever |
| 372 | ;; changes a key binding that might be accessed from the menu bar. | 377 | ;; changes a key binding that might be accessed from the menu bar. |
diff --git a/lisp/textmodes/nroff-mode.el b/lisp/textmodes/nroff-mode.el index eb7068f3d03..82cb2d4dc05 100644 --- a/lisp/textmodes/nroff-mode.el +++ b/lisp/textmodes/nroff-mode.el | |||
| @@ -195,7 +195,7 @@ Puts a full-stop before comments on a line by themselves." | |||
| 195 | 9) 8)))))) ; add 9 to ensure at least two blanks | 195 | 9) 8)))))) ; add 9 to ensure at least two blanks |
| 196 | (goto-char pt)))) | 196 | (goto-char pt)))) |
| 197 | 197 | ||
| 198 | ;; https://lists.gnu.org/archive/html/emacs-devel/2007-10/msg01869.html | 198 | ;; https://lists.gnu.org/r/emacs-devel/2007-10/msg01869.html |
| 199 | (defun nroff-insert-comment-function () | 199 | (defun nroff-insert-comment-function () |
| 200 | "Function for `comment-insert-comment-function' in `nroff-mode'." | 200 | "Function for `comment-insert-comment-function' in `nroff-mode'." |
| 201 | (indent-to (nroff-comment-indent)) | 201 | (indent-to (nroff-comment-indent)) |
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 10ee10243ad..5c585ea46ca 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el | |||
| @@ -1792,7 +1792,7 @@ Mark is left at original location." | |||
| 1792 | ;; Note this does not handle things like mismatched brackets inside | 1792 | ;; Note this does not handle things like mismatched brackets inside |
| 1793 | ;; begin/end blocks. | 1793 | ;; begin/end blocks. |
| 1794 | ;; Needs to handle escaped parens for tex-validate-*. | 1794 | ;; Needs to handle escaped parens for tex-validate-*. |
| 1795 | ;; https://lists.gnu.org/archive/html/bug-gnu-emacs/2007-09/msg00038.html | 1795 | ;; https://lists.gnu.org/r/bug-gnu-emacs/2007-09/msg00038.html |
| 1796 | ;; Does not handle escaped parens when latex-handle-escaped-parens is nil. | 1796 | ;; Does not handle escaped parens when latex-handle-escaped-parens is nil. |
| 1797 | (defun latex-forward-sexp-1 () | 1797 | (defun latex-forward-sexp-1 () |
| 1798 | "Like (forward-sexp 1) but aware of multi-char elements and escaped parens." | 1798 | "Like (forward-sexp 1) but aware of multi-char elements and escaped parens." |
diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el index 9d56ed256a2..df9627abdf0 100644 --- a/lisp/vc/diff-mode.el +++ b/lisp/vc/diff-mode.el | |||
| @@ -432,7 +432,7 @@ and the face `diff-added' for added lines.") | |||
| 432 | "If non-nil, empty lines are valid in unified diffs. | 432 | "If non-nil, empty lines are valid in unified diffs. |
| 433 | Some versions of diff replace all-blank context lines in unified format with | 433 | Some versions of diff replace all-blank context lines in unified format with |
| 434 | empty lines. This makes the format less robust, but is tolerated. | 434 | empty lines. This makes the format less robust, but is tolerated. |
| 435 | See https://lists.gnu.org/archive/html/emacs-devel/2007-11/msg01990.html") | 435 | See https://lists.gnu.org/r/emacs-devel/2007-11/msg01990.html") |
| 436 | 436 | ||
| 437 | (defconst diff-hunk-header-re | 437 | (defconst diff-hunk-header-re |
| 438 | (concat "^\\(?:" diff-hunk-header-re-unified ".*\\|\\*\\{15\\}.*\n\\*\\*\\* .+ \\*\\*\\*\\*\\|[0-9]+\\(,[0-9]+\\)?[acd][0-9]+\\(,[0-9]+\\)?\\)$")) | 438 | (concat "^\\(?:" diff-hunk-header-re-unified ".*\\|\\*\\{15\\}.*\n\\*\\*\\* .+ \\*\\*\\*\\*\\|[0-9]+\\(,[0-9]+\\)?[acd][0-9]+\\(,[0-9]+\\)?\\)$")) |
diff --git a/lisp/vc/smerge-mode.el b/lisp/vc/smerge-mode.el index 34fea232feb..b988463de1e 100644 --- a/lisp/vc/smerge-mode.el +++ b/lisp/vc/smerge-mode.el | |||
| @@ -1094,7 +1094,7 @@ used to replace chars to try and eliminate some spurious differences." | |||
| 1094 | ;; also and more importantly because otherwise it | 1094 | ;; also and more importantly because otherwise it |
| 1095 | ;; may happen that diff doesn't behave like | 1095 | ;; may happen that diff doesn't behave like |
| 1096 | ;; smerge-refine-weight-hack expects it to. | 1096 | ;; smerge-refine-weight-hack expects it to. |
| 1097 | ;; See https://lists.gnu.org/archive/html/emacs-devel/2007-11/msg00401.html | 1097 | ;; See https://lists.gnu.org/r/emacs-devel/2007-11/msg00401.html |
| 1098 | "-awd" "-ad") | 1098 | "-awd" "-ad") |
| 1099 | file1 file2)) | 1099 | file1 file2)) |
| 1100 | ;; Process diff's output. | 1100 | ;; Process diff's output. |
diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index dff0fd1365c..2c807a38cd5 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el | |||
| @@ -979,7 +979,7 @@ This prompts for a branch to merge from." | |||
| 979 | ;; FIXME | 979 | ;; FIXME |
| 980 | ;; 1) the net result is to call git twice per file. | 980 | ;; 1) the net result is to call git twice per file. |
| 981 | ;; 2) v-g-c-f is documented to take a directory. | 981 | ;; 2) v-g-c-f is documented to take a directory. |
| 982 | ;; https://lists.gnu.org/archive/html/emacs-devel/2014-01/msg01126.html | 982 | ;; https://lists.gnu.org/r/emacs-devel/2014-01/msg01126.html |
| 983 | (vc-git-conflicted-files buffer-file-name) | 983 | (vc-git-conflicted-files buffer-file-name) |
| 984 | (save-excursion | 984 | (save-excursion |
| 985 | (goto-char (point-min)) | 985 | (goto-char (point-min)) |
diff --git a/lisp/vc/vc-rcs.el b/lisp/vc/vc-rcs.el index 84ab10b14fe..4634e76088f 100644 --- a/lisp/vc/vc-rcs.el +++ b/lisp/vc/vc-rcs.el | |||
| @@ -851,7 +851,7 @@ and CVS." | |||
| 851 | 851 | ||
| 852 | ;; You might think that this should be distributed with RCS, but | 852 | ;; You might think that this should be distributed with RCS, but |
| 853 | ;; apparently not. CVS sometimes provides a version of it. | 853 | ;; apparently not. CVS sometimes provides a version of it. |
| 854 | ;; https://lists.gnu.org/archive/html/emacs-devel/2014-05/msg00288.html | 854 | ;; https://lists.gnu.org/r/emacs-devel/2014-05/msg00288.html |
| 855 | (defvar vc-rcs-rcs2log-program | 855 | (defvar vc-rcs-rcs2log-program |
| 856 | (let (exe) | 856 | (let (exe) |
| 857 | (cond ((file-executable-p | 857 | (cond ((file-executable-p |
diff --git a/lisp/view.el b/lisp/view.el index 8e40cffce2e..6a4705acd6f 100644 --- a/lisp/view.el +++ b/lisp/view.el | |||
| @@ -982,7 +982,7 @@ for highlighting the match that is found." | |||
| 982 | ;; This is the dumb approach, looking at each line. The original | 982 | ;; This is the dumb approach, looking at each line. The original |
| 983 | ;; version of this function looked like it might have been trying to | 983 | ;; version of this function looked like it might have been trying to |
| 984 | ;; do something clever, but not succeeding: | 984 | ;; do something clever, but not succeeding: |
| 985 | ;; https://lists.gnu.org/archive/html/bug-gnu-emacs/2007-09/msg00073.html | 985 | ;; https://lists.gnu.org/r/bug-gnu-emacs/2007-09/msg00073.html |
| 986 | (defun view-search-no-match-lines (times regexp) | 986 | (defun view-search-no-match-lines (times regexp) |
| 987 | "Search for the TIMESth occurrence of a line with no match for REGEXP. | 987 | "Search for the TIMESth occurrence of a line with no match for REGEXP. |
| 988 | If such a line is found, return non-nil and set the match-data to that line. | 988 | If such a line is found, return non-nil and set the match-data to that line. |
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index dca06ca3595..4fa36edb9c6 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el | |||
| @@ -832,7 +832,7 @@ button end points." | |||
| 832 | 832 | ||
| 833 | ;; This alias exists only so that one can choose in doc-strings (e.g. | 833 | ;; This alias exists only so that one can choose in doc-strings (e.g. |
| 834 | ;; Custom-mode) which key-binding of widget-keymap one wants to refer to. | 834 | ;; Custom-mode) which key-binding of widget-keymap one wants to refer to. |
| 835 | ;; https://lists.gnu.org/archive/html/emacs-devel/2008-11/msg00480.html | 835 | ;; https://lists.gnu.org/r/emacs-devel/2008-11/msg00480.html |
| 836 | (define-obsolete-function-alias 'advertised-widget-backward | 836 | (define-obsolete-function-alias 'advertised-widget-backward |
| 837 | 'widget-backward "23.2") | 837 | 'widget-backward "23.2") |
| 838 | 838 | ||
diff --git a/lisp/windmove.el b/lisp/windmove.el index b573000fd7b..f8de303fffb 100644 --- a/lisp/windmove.el +++ b/lisp/windmove.el | |||
| @@ -425,7 +425,7 @@ supplied, if ARG is greater or smaller than zero, respectively." | |||
| 425 | top-left | 425 | top-left |
| 426 | ;; Don't care whether window is horizontally scrolled - | 426 | ;; Don't care whether window is horizontally scrolled - |
| 427 | ;; `posn-at-point' handles that already. See also: | 427 | ;; `posn-at-point' handles that already. See also: |
| 428 | ;; https://lists.gnu.org/archive/html/emacs-devel/2012-01/msg00638.html | 428 | ;; https://lists.gnu.org/r/emacs-devel/2012-01/msg00638.html |
| 429 | (posn-col-row | 429 | (posn-col-row |
| 430 | (posn-at-point (window-point window) window)))))))) | 430 | (posn-at-point (window-point window) window)))))))) |
| 431 | 431 | ||
diff --git a/lisp/window.el b/lisp/window.el index 8939e7d589b..b7736d85cd1 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -7655,10 +7655,11 @@ another window. In interactive use, if the selected window is | |||
| 7655 | strongly dedicated to its buffer, the value of the option | 7655 | strongly dedicated to its buffer, the value of the option |
| 7656 | `switch-to-buffer-in-dedicated-window' specifies how to proceed. | 7656 | `switch-to-buffer-in-dedicated-window' specifies how to proceed. |
| 7657 | 7657 | ||
| 7658 | If called interactively, read the buffer name using the | 7658 | If called interactively, read the buffer name using `read-buffer'. |
| 7659 | minibuffer. The variable `confirm-nonexistent-file-or-buffer' | 7659 | The variable `confirm-nonexistent-file-or-buffer' determines |
| 7660 | determines whether to request confirmation before creating a new | 7660 | whether to request confirmation before creating a new buffer. |
| 7661 | buffer. | 7661 | See `read-buffer' for features related to input and completion |
| 7662 | of buffer names. | ||
| 7662 | 7663 | ||
| 7663 | BUFFER-OR-NAME may be a buffer, a string (a buffer name), or nil. | 7664 | BUFFER-OR-NAME may be a buffer, a string (a buffer name), or nil. |
| 7664 | If BUFFER-OR-NAME is a string that does not identify an existing | 7665 | If BUFFER-OR-NAME is a string that does not identify an existing |
| @@ -7735,10 +7736,11 @@ Return the buffer switched to." | |||
| 7735 | BUFFER-OR-NAME may be a buffer, a string (a buffer name), or | 7736 | BUFFER-OR-NAME may be a buffer, a string (a buffer name), or |
| 7736 | nil. Return the buffer switched to. | 7737 | nil. Return the buffer switched to. |
| 7737 | 7738 | ||
| 7738 | If called interactively, prompt for the buffer name using the | 7739 | If called interactively, read the buffer name using `read-buffer'. |
| 7739 | minibuffer. The variable `confirm-nonexistent-file-or-buffer' | 7740 | The variable `confirm-nonexistent-file-or-buffer' determines |
| 7740 | determines whether to request confirmation before creating a new | 7741 | whether to request confirmation before creating a new buffer. |
| 7741 | buffer. | 7742 | See `read-buffer' for features related to input and completion |
| 7743 | of buffer names. | ||
| 7742 | 7744 | ||
| 7743 | If BUFFER-OR-NAME is a string and does not identify an existing | 7745 | If BUFFER-OR-NAME is a string and does not identify an existing |
| 7744 | buffer, create a new buffer with that name. If BUFFER-OR-NAME is | 7746 | buffer, create a new buffer with that name. If BUFFER-OR-NAME is |
| @@ -7759,10 +7761,11 @@ documentation for additional customization information." | |||
| 7759 | BUFFER-OR-NAME may be a buffer, a string (a buffer name), or | 7761 | BUFFER-OR-NAME may be a buffer, a string (a buffer name), or |
| 7760 | nil. Return the buffer switched to. | 7762 | nil. Return the buffer switched to. |
| 7761 | 7763 | ||
| 7762 | If called interactively, prompt for the buffer name using the | 7764 | If called interactively, read the buffer name using `read-buffer'. |
| 7763 | minibuffer. The variable `confirm-nonexistent-file-or-buffer' | 7765 | The variable `confirm-nonexistent-file-or-buffer' determines |
| 7764 | determines whether to request confirmation before creating a new | 7766 | whether to request confirmation before creating a new buffer. |
| 7765 | buffer. | 7767 | See `read-buffer' for features related to input and completion |
| 7768 | of buffer names. | ||
| 7766 | 7769 | ||
| 7767 | If BUFFER-OR-NAME is a string and does not identify an existing | 7770 | If BUFFER-OR-NAME is a string and does not identify an existing |
| 7768 | buffer, create a new buffer with that name. If BUFFER-OR-NAME is | 7771 | buffer, create a new buffer with that name. If BUFFER-OR-NAME is |