diff options
| author | Andrea Corallo | 2020-10-04 19:45:05 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-10-04 19:45:05 +0200 |
| commit | 44ef24342fd8a2ac876212124ebf38673acda35a (patch) | |
| tree | 793dc4ba4197559b4bc65339d713c0807a7b2ca9 /lisp | |
| parent | afb765ab3cab7b6582d0def543b23603cd076445 (diff) | |
| parent | d8665e6d3473403c90a0831e83439a013d0012d3 (diff) | |
| download | emacs-44ef24342fd8a2ac876212124ebf38673acda35a.tar.gz emacs-44ef24342fd8a2ac876212124ebf38673acda35a.zip | |
Merge remote-tracking branch 'savannah/master' into HEAD
Diffstat (limited to 'lisp')
186 files changed, 1110 insertions, 838 deletions
diff --git a/lisp/ChangeLog.10 b/lisp/ChangeLog.10 index 54412223248..177ca08ef3b 100644 --- a/lisp/ChangeLog.10 +++ b/lisp/ChangeLog.10 | |||
| @@ -12772,7 +12772,7 @@ | |||
| 12772 | (reftex-words-to-typekey-alist, reftex-key-to-index-macro-alist) | 12772 | (reftex-words-to-typekey-alist, reftex-key-to-index-macro-alist) |
| 12773 | (reftex-query-index-macro-prompt, reftex-query-index-macro-help) | 12773 | (reftex-query-index-macro-prompt, reftex-query-index-macro-help) |
| 12774 | (reftex-no-follow-message, reftex-no-info-message): Likewise. | 12774 | (reftex-no-follow-message, reftex-no-info-message): Likewise. |
| 12775 | (reftex-mode): Define systax table for bibtex parsing. | 12775 | (reftex-mode): Define syntax table for bibtex parsing. |
| 12776 | (reftex-syntax-table-for-bib): Syntax table for bibtex parsing. | 12776 | (reftex-syntax-table-for-bib): Syntax table for bibtex parsing. |
| 12777 | 12777 | ||
| 12778 | * textmodes/reftex-cite.el (reftex-format-names): %a as name | 12778 | * textmodes/reftex-cite.el (reftex-format-names): %a as name |
| @@ -15993,7 +15993,7 @@ | |||
| 15993 | 15993 | ||
| 15994 | * progmodes/cc-vars.el (c-offsets-alist): A more sane default | 15994 | * progmodes/cc-vars.el (c-offsets-alist): A more sane default |
| 15995 | for `inexpr-statement'. This is not compatible, though. | 15995 | for `inexpr-statement'. This is not compatible, though. |
| 15996 | I think the benefit of a good default style outweights that in | 15996 | I think the benefit of a good default style outweighs that in |
| 15997 | this case. Besides, `inexpr-statement' is not very common. | 15997 | this case. Besides, `inexpr-statement' is not very common. |
| 15998 | 15998 | ||
| 15999 | 2002-04-22 Martin Stjernholm <mast@lysator.liu.se> | 15999 | 2002-04-22 Martin Stjernholm <mast@lysator.liu.se> |
diff --git a/lisp/ChangeLog.13 b/lisp/ChangeLog.13 index 779a641d16a..1a2863afa97 100644 --- a/lisp/ChangeLog.13 +++ b/lisp/ChangeLog.13 | |||
| @@ -4765,7 +4765,7 @@ | |||
| 4765 | 2007-12-30 Michael Albinus <michael.albinus@gmx.de> | 4765 | 2007-12-30 Michael Albinus <michael.albinus@gmx.de> |
| 4766 | 4766 | ||
| 4767 | * net/dbus.el (dbus-name-owner-changed-handler): Make the function | 4767 | * net/dbus.el (dbus-name-owner-changed-handler): Make the function |
| 4768 | resistent towards wrong parameters. | 4768 | resistant towards wrong parameters. |
| 4769 | (dbus-handle-event): Propagate D-Bus errors only in the debug case. | 4769 | (dbus-handle-event): Propagate D-Bus errors only in the debug case. |
| 4770 | 4770 | ||
| 4771 | 2007-12-30 Richard Stallman <rms@gnu.org> | 4771 | 2007-12-30 Richard Stallman <rms@gnu.org> |
| @@ -5001,7 +5001,7 @@ | |||
| 5001 | 5001 | ||
| 5002 | * vc.el (vc-dired-ignorable-p, vc-dired-hook): Speed optimization; | 5002 | * vc.el (vc-dired-ignorable-p, vc-dired-hook): Speed optimization; |
| 5003 | use completion-ignored-extensions to detect files that should be | 5003 | use completion-ignored-extensions to detect files that should be |
| 5004 | ignorted in VC-Dired listings, heading off lots of expensive calls | 5004 | ignored in VC-Dired listings, heading off lots of expensive calls |
| 5005 | to (vc-state). | 5005 | to (vc-state). |
| 5006 | 5006 | ||
| 5007 | * vc.el (vc-dired-hook): Show unregistered file status as "?" in | 5007 | * vc.el (vc-dired-hook): Show unregistered file status as "?" in |
diff --git a/lisp/ChangeLog.14 b/lisp/ChangeLog.14 index 00b6a6ac41b..e9c8a8ff8be 100644 --- a/lisp/ChangeLog.14 +++ b/lisp/ChangeLog.14 | |||
| @@ -10889,7 +10889,7 @@ | |||
| 10889 | 10889 | ||
| 10890 | * menu-bar.el (menu-set-font): New function. Bind "Set Default | 10890 | * menu-bar.el (menu-set-font): New function. Bind "Set Default |
| 10891 | Font" menu item to it. Apply selected font to all frames, and | 10891 | Font" menu item to it. Apply selected font to all frames, and |
| 10892 | make it savable. | 10892 | make it saveable. |
| 10893 | (menu-bar-options-save): Save `default' font if changed. | 10893 | (menu-bar-options-save): Save `default' font if changed. |
| 10894 | 10894 | ||
| 10895 | 2008-06-10 Stefan Monnier <monnier@iro.umontreal.ca> | 10895 | 2008-06-10 Stefan Monnier <monnier@iro.umontreal.ca> |
| @@ -13625,7 +13625,7 @@ | |||
| 13625 | (completion-emacs22-try-completion): Place cursor after the /, as was | 13625 | (completion-emacs22-try-completion): Place cursor after the /, as was |
| 13626 | done in Emacs-22's minibuffer-complete-word. | 13626 | done in Emacs-22's minibuffer-complete-word. |
| 13627 | Fix bug reported by David Hansen <david.hansen@gmx.net>. | 13627 | Fix bug reported by David Hansen <david.hansen@gmx.net>. |
| 13628 | (completion-emacs22-try-completion): Merge all mergable text rather | 13628 | (completion-emacs22-try-completion): Merge all mergeable text rather |
| 13629 | than just /. | 13629 | than just /. |
| 13630 | (completion-pcm--delim-wild-regex): New var. | 13630 | (completion-pcm--delim-wild-regex): New var. |
| 13631 | (completion-pcm-word-delimiters): New custom. | 13631 | (completion-pcm-word-delimiters): New custom. |
diff --git a/lisp/ChangeLog.15 b/lisp/ChangeLog.15 index e66766eafa5..3a578da4bc7 100644 --- a/lisp/ChangeLog.15 +++ b/lisp/ChangeLog.15 | |||
| @@ -2803,7 +2803,7 @@ | |||
| 2803 | 2010-12-29 Karl Fogel <kfogel@red-bean.com> | 2803 | 2010-12-29 Karl Fogel <kfogel@red-bean.com> |
| 2804 | 2804 | ||
| 2805 | * saveplace.el (save-place-alist-to-file): Save list sorted and | 2805 | * saveplace.el (save-place-alist-to-file): Save list sorted and |
| 2806 | pretty-printed, so that it is mergable by line-based text merging, | 2806 | pretty-printed, so that it is mergeable by line-based text merging, |
| 2807 | as suggested by Iain Dalton <iain.dalton {_AT_} gmail.com>. | 2807 | as suggested by Iain Dalton <iain.dalton {_AT_} gmail.com>. |
| 2808 | 2808 | ||
| 2809 | 2010-12-28 Ken Manheimer <ken.manheimer@gmail.com> | 2809 | 2010-12-28 Ken Manheimer <ken.manheimer@gmail.com> |
| @@ -5135,10 +5135,10 @@ | |||
| 5135 | 5135 | ||
| 5136 | * progmodes/verilog-mode.el (verilog-directive-re): Make this variable | 5136 | * progmodes/verilog-mode.el (verilog-directive-re): Make this variable |
| 5137 | auto-built for efficiency of execution and updating. | 5137 | auto-built for efficiency of execution and updating. |
| 5138 | (verilog-extended-complete-re): Support 'pure' fucntion & task | 5138 | (verilog-extended-complete-re): Support 'pure' function & task |
| 5139 | declarations (these have no bodies). | 5139 | declarations (these have no bodies). |
| 5140 | (verilog-beg-of-statement): General cleanup to enable support of | 5140 | (verilog-beg-of-statement): General cleanup to enable support of |
| 5141 | 'pure' fucntion & task declarations (these have no bodies). | 5141 | 'pure' function & task declarations (these have no bodies). |
| 5142 | These efforts together fix Verilog bug210 from veripool; which was also | 5142 | These efforts together fix Verilog bug210 from veripool; which was also |
| 5143 | noticed by Steve Pearlmutter. | 5143 | noticed by Steve Pearlmutter. |
| 5144 | (verilog-directive-re, verilog-directive-begin, verilog-indent-re) | 5144 | (verilog-directive-re, verilog-directive-begin, verilog-indent-re) |
| @@ -10689,7 +10689,7 @@ | |||
| 10689 | 2010-05-13 AgustÃn MartÃn <agustin.martin@hispalinux.es> | 10689 | 2010-05-13 AgustÃn MartÃn <agustin.martin@hispalinux.es> |
| 10690 | 10690 | ||
| 10691 | * textmodes/ispell.el (ispell-init-process): Do not kill ispell | 10691 | * textmodes/ispell.el (ispell-init-process): Do not kill ispell |
| 10692 | process everytime when spellchecking from the minibuffer (bug#6143). | 10692 | process every time when spellchecking from the minibuffer (bug#6143). |
| 10693 | 10693 | ||
| 10694 | 2010-05-13 Stefan Monnier <monnier@iro.umontreal.ca> | 10694 | 2010-05-13 Stefan Monnier <monnier@iro.umontreal.ca> |
| 10695 | 10695 | ||
| @@ -12100,7 +12100,7 @@ | |||
| 12100 | 2010-03-31 Juri Linkov <juri@jurta.org> | 12100 | 2010-03-31 Juri Linkov <juri@jurta.org> |
| 12101 | 12101 | ||
| 12102 | * image.el (image-animated-p): Use `image-metadata' instead of | 12102 | * image.el (image-animated-p): Use `image-metadata' instead of |
| 12103 | `image-extension-data'. Get GIF extenstion data from metadata | 12103 | `image-extension-data'. Get GIF extension data from metadata |
| 12104 | property `extension-data'. | 12104 | property `extension-data'. |
| 12105 | 12105 | ||
| 12106 | 2010-03-31 Stefan Monnier <monnier@iro.umontreal.ca> | 12106 | 2010-03-31 Stefan Monnier <monnier@iro.umontreal.ca> |
| @@ -14907,7 +14907,7 @@ | |||
| 14907 | Use complete-with-action rather than pascal-completion-response and | 14907 | Use complete-with-action rather than pascal-completion-response and |
| 14908 | let it apply the predicate as well. | 14908 | let it apply the predicate as well. |
| 14909 | (pascal-goto-defun): Change buffer before calling pascal-comp-defun | 14909 | (pascal-goto-defun): Change buffer before calling pascal-comp-defun |
| 14910 | when neded. | 14910 | when needed. |
| 14911 | 14911 | ||
| 14912 | 2009-12-02 Kenichi Handa <handa@m17n.org> | 14912 | 2009-12-02 Kenichi Handa <handa@m17n.org> |
| 14913 | 14913 | ||
| @@ -18684,7 +18684,7 @@ | |||
| 18684 | 2009-09-24 Vinicius Jose Latorre <viniciusjl@ig.com.br> | 18684 | 2009-09-24 Vinicius Jose Latorre <viniciusjl@ig.com.br> |
| 18685 | 18685 | ||
| 18686 | * whitespace.el: Does not highlight trailing spaces While point is | 18686 | * whitespace.el: Does not highlight trailing spaces While point is |
| 18687 | at end of line. Does not highligt spaces at beginning of buffer | 18687 | at end of line. Does not highlight spaces at beginning of buffer |
| 18688 | while point is at beginning of buffer. Does not highlight spaces | 18688 | while point is at beginning of buffer. Does not highlight spaces |
| 18689 | at end of buffer while point is at end of buffer. (Bug#4177) | 18689 | at end of buffer while point is at end of buffer. (Bug#4177) |
| 18690 | New version 12.0. | 18690 | New version 12.0. |
diff --git a/lisp/ChangeLog.16 b/lisp/ChangeLog.16 index b4da88e6346..6c093790d31 100644 --- a/lisp/ChangeLog.16 +++ b/lisp/ChangeLog.16 | |||
| @@ -3018,7 +3018,7 @@ | |||
| 3018 | 3018 | ||
| 3019 | * progmodes/sql.el: Use cl-lib and lexical-binding; various cleanup. | 3019 | * progmodes/sql.el: Use cl-lib and lexical-binding; various cleanup. |
| 3020 | (sql-signum): Remove. Use `cl-signum' instead. | 3020 | (sql-signum): Remove. Use `cl-signum' instead. |
| 3021 | (sql-read-passwd): Remove; use read-passwd instread. | 3021 | (sql-read-passwd): Remove; use read-passwd instead. |
| 3022 | (sql-get-login-ext): Use read-string. | 3022 | (sql-get-login-ext): Use read-string. |
| 3023 | (sql-get-login): Use dolist and pcase. | 3023 | (sql-get-login): Use dolist and pcase. |
| 3024 | (sql--completion-table): Rename from sql-try-completion. | 3024 | (sql--completion-table): Rename from sql-try-completion. |
| @@ -7833,7 +7833,7 @@ | |||
| 7833 | the form for POSITION argument. | 7833 | the form for POSITION argument. |
| 7834 | 7834 | ||
| 7835 | * term/x-win.el (x-menu-bar-open): | 7835 | * term/x-win.el (x-menu-bar-open): |
| 7836 | Use the value returend from (posn-at-point) as position | 7836 | Use the value returned from (posn-at-point) as position |
| 7837 | passed to `popup-menu'. | 7837 | passed to `popup-menu'. |
| 7838 | 7838 | ||
| 7839 | 2012-08-09 Jay Belanger <jay.p.belanger@gmail.com> | 7839 | 2012-08-09 Jay Belanger <jay.p.belanger@gmail.com> |
| @@ -11992,11 +11992,11 @@ | |||
| 11992 | * progmodes/verilog-mode.el (verilog-pretty-expr): Don't line up | 11992 | * progmodes/verilog-mode.el (verilog-pretty-expr): Don't line up |
| 11993 | assignment with tests in ifs and for loops. | 11993 | assignment with tests in ifs and for loops. |
| 11994 | (verilog-extended-complete-re, verilog-complete-reg): Change so | 11994 | (verilog-extended-complete-re, verilog-complete-reg): Change so |
| 11995 | that DPI inport functions don't look like function declarations. | 11995 | that DPI import functions don't look like function declarations. |
| 11996 | (verilog-pretty-expr): Don't line up assignment | 11996 | (verilog-pretty-expr): Don't line up assignment |
| 11997 | operations to the test and increment in if and for loops | 11997 | operations to the test and increment in if and for loops |
| 11998 | (verilog-extended-complete-re, verilog-complete-reg): Change so | 11998 | (verilog-extended-complete-re, verilog-complete-reg): Change so |
| 11999 | that DPI inport functions don't look like function declarations. | 11999 | that DPI import functions don't look like function declarations. |
| 12000 | 12000 | ||
| 12001 | 2012-05-03 Kenichi Handa <handa@m17n.org> | 12001 | 2012-05-03 Kenichi Handa <handa@m17n.org> |
| 12002 | 12002 | ||
| @@ -15918,7 +15918,7 @@ | |||
| 15918 | Rework verilog-pretty-expr to handle new assignment operators in system | 15918 | Rework verilog-pretty-expr to handle new assignment operators in system |
| 15919 | verilog, such as += *= and the like. | 15919 | verilog, such as += *= and the like. |
| 15920 | (verilog-assignment-operator-re): Regular expression to find the | 15920 | (verilog-assignment-operator-re): Regular expression to find the |
| 15921 | assigment operator in a verilog assignment. | 15921 | assignment operator in a verilog assignment. |
| 15922 | (verilog-assignment-operation-re): Regular expression to find an | 15922 | (verilog-assignment-operation-re): Regular expression to find an |
| 15923 | assignment statement for pretty-expr. | 15923 | assignment statement for pretty-expr. |
| 15924 | (verilog-in-attribute-p): Query returns true if point is in an | 15924 | (verilog-in-attribute-p): Query returns true if point is in an |
| @@ -20442,7 +20442,7 @@ | |||
| 20442 | 2011-07-03 Lars Magne Ingebrigtsen <larsi@gnus.org> | 20442 | 2011-07-03 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 20443 | 20443 | ||
| 20444 | * net/network-stream.el (open-network-stream): Use the | 20444 | * net/network-stream.el (open-network-stream): Use the |
| 20445 | :end-of-capability command thoughout. | 20445 | :end-of-capability command throughout. |
| 20446 | 20446 | ||
| 20447 | 2011-07-03 Wolfgang Jenkner <wjenkner@inode.at> (tiny change) | 20447 | 2011-07-03 Wolfgang Jenkner <wjenkner@inode.at> (tiny change) |
| 20448 | 20448 | ||
| @@ -21496,7 +21496,7 @@ | |||
| 21496 | * net/network-stream.el (open-network-stream): Add the keyword | 21496 | * net/network-stream.el (open-network-stream): Add the keyword |
| 21497 | :always-query-capabilities for the case where you want to force a | 21497 | :always-query-capabilities for the case where you want to force a |
| 21498 | `plain' network connection, but the protocol still requires the | 21498 | `plain' network connection, but the protocol still requires the |
| 21499 | capabilitiy command (i.e., SMTP and EHLO). | 21499 | capability command (i.e., SMTP and EHLO). |
| 21500 | 21500 | ||
| 21501 | * subr.el (process-live-p): Rename from `process-alive-p' for | 21501 | * subr.el (process-live-p): Rename from `process-alive-p' for |
| 21502 | consistency with other `-live-p' functions. | 21502 | consistency with other `-live-p' functions. |
| @@ -24707,7 +24707,7 @@ | |||
| 24707 | * abbrev.el (abbrev-edit-save-to-file, abbrev-edit-save-buffer): | 24707 | * abbrev.el (abbrev-edit-save-to-file, abbrev-edit-save-buffer): |
| 24708 | New commands. | 24708 | New commands. |
| 24709 | (edit-abbrevs-map): Bind them here. | 24709 | (edit-abbrevs-map): Bind them here. |
| 24710 | (write-abbrev-file): New optinal arg VERBOSE. (Bug#5937) | 24710 | (write-abbrev-file): New optional arg VERBOSE. (Bug#5937) |
| 24711 | 24711 | ||
| 24712 | 2011-03-29 Ken Manheimer <ken.manheimer@gmail.com> | 24712 | 2011-03-29 Ken Manheimer <ken.manheimer@gmail.com> |
| 24713 | 24713 | ||
diff --git a/lisp/ChangeLog.17 b/lisp/ChangeLog.17 index a1a6363cdca..1869f4e4c4a 100644 --- a/lisp/ChangeLog.17 +++ b/lisp/ChangeLog.17 | |||
| @@ -8465,7 +8465,7 @@ | |||
| 8465 | 2014-07-28 Glenn Morris <rgm@gnu.org> | 8465 | 2014-07-28 Glenn Morris <rgm@gnu.org> |
| 8466 | 8466 | ||
| 8467 | * files.el (toggle-read-only): Re-add basic doc-string. | 8467 | * files.el (toggle-read-only): Re-add basic doc-string. |
| 8468 | * vc/vc-hooks.el (vc-toggle-read-only): Tweak obsolescence mesage. | 8468 | * vc/vc-hooks.el (vc-toggle-read-only): Tweak obsolescence message. |
| 8469 | 8469 | ||
| 8470 | * progmodes/prolog.el (prolog-mode-keybindings-edit): | 8470 | * progmodes/prolog.el (prolog-mode-keybindings-edit): |
| 8471 | Replace missing `switch-to-prolog' with `run-prolog'. | 8471 | Replace missing `switch-to-prolog' with `run-prolog'. |
| @@ -14399,7 +14399,7 @@ | |||
| 14399 | 14399 | ||
| 14400 | 2014-01-05 Martin Rudalics <rudalics@gmx.at> | 14400 | 2014-01-05 Martin Rudalics <rudalics@gmx.at> |
| 14401 | 14401 | ||
| 14402 | * window.el (balance-windows): Add mising t to fix Bug#16351. | 14402 | * window.el (balance-windows): Add missing t to fix Bug#16351. |
| 14403 | 14403 | ||
| 14404 | 2014-01-05 Lars Magne Ingebrigtsen <larsi@gnus.org> | 14404 | 2014-01-05 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 14405 | 14405 | ||
| @@ -15098,7 +15098,7 @@ | |||
| 15098 | 2013-12-18 Juri Linkov <juri@jurta.org> | 15098 | 2013-12-18 Juri Linkov <juri@jurta.org> |
| 15099 | 15099 | ||
| 15100 | * help-mode.el (help-mode-map): Bind "l" to help-go-back, | 15100 | * help-mode.el (help-mode-map): Bind "l" to help-go-back, |
| 15101 | and "r" to help-go-forward for compatibity with Info. (Bug#16178) | 15101 | and "r" to help-go-forward for compatibility with Info. (Bug#16178) |
| 15102 | 15102 | ||
| 15103 | 2013-12-18 Leo Liu <sdl.web@gmail.com> | 15103 | 2013-12-18 Leo Liu <sdl.web@gmail.com> |
| 15104 | 15104 | ||
| @@ -15729,7 +15729,7 @@ | |||
| 15729 | (flymake-get-temp-dir): Remove. | 15729 | (flymake-get-temp-dir): Remove. |
| 15730 | (flymake-popup-menu, flymake-nop, flymake-make-xemacs-menu) | 15730 | (flymake-popup-menu, flymake-nop, flymake-make-xemacs-menu) |
| 15731 | (flymake-current-row, flymake-selected-frame) | 15731 | (flymake-current-row, flymake-selected-frame) |
| 15732 | (flymake-get-point-pixel-pos): Remove xemacs compatibity and | 15732 | (flymake-get-point-pixel-pos): Remove xemacs compatibility and |
| 15733 | related functions. (Bug#16077) | 15733 | related functions. (Bug#16077) |
| 15734 | 15734 | ||
| 15735 | 2013-12-07 Bozhidar Batsov <bozhidar@batsov.com> | 15735 | 2013-12-07 Bozhidar Batsov <bozhidar@batsov.com> |
| @@ -16822,7 +16822,7 @@ | |||
| 16822 | * emacs-lisp/byte-run.el (defmacro, defun): Set their `indent' property. | 16822 | * emacs-lisp/byte-run.el (defmacro, defun): Set their `indent' property. |
| 16823 | 16823 | ||
| 16824 | * electric.el (electric-indent-post-self-insert-function): | 16824 | * electric.el (electric-indent-post-self-insert-function): |
| 16825 | Only delete trailing whitepsace if it is indeed trailing (bug#15767). | 16825 | Only delete trailing whitespace if it is indeed trailing (bug#15767). |
| 16826 | 16826 | ||
| 16827 | 2013-11-04 Helmut Eller <eller.helmut@gmail.com> | 16827 | 2013-11-04 Helmut Eller <eller.helmut@gmail.com> |
| 16828 | 16828 | ||
| @@ -17770,7 +17770,7 @@ | |||
| 17770 | 2013-10-13 Kenichi Handa <handa@gnu.org> | 17770 | 2013-10-13 Kenichi Handa <handa@gnu.org> |
| 17771 | 17771 | ||
| 17772 | * international/mule-cmds.el (select-safe-coding-system): Remove a | 17772 | * international/mule-cmds.el (select-safe-coding-system): Remove a |
| 17773 | superfluous condition in chekcing whether a coding system is safe | 17773 | superfluous condition in checking whether a coding system is safe |
| 17774 | or not. | 17774 | or not. |
| 17775 | 17775 | ||
| 17776 | 2013-10-13 Oleh Krehel <ohwoeowho@gmail.com> | 17776 | 2013-10-13 Oleh Krehel <ohwoeowho@gmail.com> |
| @@ -23495,7 +23495,7 @@ | |||
| 23495 | * progmodes/cc-defs.el (c-set-region-active, c-beginning-of-defun-1) | 23495 | * progmodes/cc-defs.el (c-set-region-active, c-beginning-of-defun-1) |
| 23496 | * progmodes/cc-mode.el (c-make-inherited-keymap): Use plain fboundp. | 23496 | * progmodes/cc-mode.el (c-make-inherited-keymap): Use plain fboundp. |
| 23497 | * progmodes/cc-defs.el (zmacs-region-stays, zmacs-regions) | 23497 | * progmodes/cc-defs.el (zmacs-region-stays, zmacs-regions) |
| 23498 | (lookup-syntax-properties): Remove unecessary cc-bytecomp-defvar. | 23498 | (lookup-syntax-properties): Remove unnecessary cc-bytecomp-defvar. |
| 23499 | 23499 | ||
| 23500 | * progmodes/cc-vars.el (other): Emacs has this widget since | 23500 | * progmodes/cc-vars.el (other): Emacs has this widget since |
| 23501 | at least 21.1, so don't (re)define it. | 23501 | at least 21.1, so don't (re)define it. |
diff --git a/lisp/ChangeLog.3 b/lisp/ChangeLog.3 index 79bdbfd6660..ef0e423d145 100644 --- a/lisp/ChangeLog.3 +++ b/lisp/ChangeLog.3 | |||
| @@ -6958,7 +6958,7 @@ | |||
| 6958 | 1991-10-04 Roland McGrath (roland@albert.gnu.ai.mit.edu) | 6958 | 1991-10-04 Roland McGrath (roland@albert.gnu.ai.mit.edu) |
| 6959 | 6959 | ||
| 6960 | * rmail.el: Changed two regexps not to look specifically for 19yy | 6960 | * rmail.el: Changed two regexps not to look specifically for 19yy |
| 6961 | for years; look for yyyy instead. Planning for the millenium. | 6961 | for years; look for yyyy instead. Planning for the millennium. |
| 6962 | 6962 | ||
| 6963 | 1991-10-03 Roland McGrath (roland@albert.gnu.ai.mit.edu) | 6963 | 1991-10-03 Roland McGrath (roland@albert.gnu.ai.mit.edu) |
| 6964 | 6964 | ||
diff --git a/lisp/ChangeLog.6 b/lisp/ChangeLog.6 index 3fe6aea3b8e..87ae38b27e6 100644 --- a/lisp/ChangeLog.6 +++ b/lisp/ChangeLog.6 | |||
| @@ -6742,7 +6742,7 @@ | |||
| 6742 | quoted tab into a space. | 6742 | quoted tab into a space. |
| 6743 | (sh-mode): Use new `skeleton-newline-indent-rigidly'. | 6743 | (sh-mode): Use new `skeleton-newline-indent-rigidly'. |
| 6744 | (sh-set-shell): Make maximum font-locking also highlight keywords | 6744 | (sh-set-shell): Make maximum font-locking also highlight keywords |
| 6745 | after ``' and `!'. (The latter is for ksh '93 but should't hurt other | 6745 | after ``' and `!'. (The latter is for ksh '93 but shouldn't hurt other |
| 6746 | shells.) | 6746 | shells.) |
| 6747 | 6747 | ||
| 6748 | 1995-08-18 Andre Spiegel <spiegel@berlin.informatik.uni-stuttgart.de> | 6748 | 1995-08-18 Andre Spiegel <spiegel@berlin.informatik.uni-stuttgart.de> |
diff --git a/lisp/ChangeLog.7 b/lisp/ChangeLog.7 index a0d42500e36..58a7fa402ba 100644 --- a/lisp/ChangeLog.7 +++ b/lisp/ChangeLog.7 | |||
| @@ -5774,7 +5774,7 @@ | |||
| 5774 | 5774 | ||
| 5775 | 1998-03-06 Dave Love <d.love@dl.ac.uk> | 5775 | 1998-03-06 Dave Love <d.love@dl.ac.uk> |
| 5776 | 5776 | ||
| 5777 | * browse-url.el: Various doc fixes, mainly to remove innappropriate | 5777 | * browse-url.el: Various doc fixes, mainly to remove inappropriate |
| 5778 | leading "*"s. | 5778 | leading "*"s. |
| 5779 | (browse-url-new-window-p, browse-url-netscape-display) | 5779 | (browse-url-new-window-p, browse-url-netscape-display) |
| 5780 | (browse-url-save-file, browse-url-generic-program): | 5780 | (browse-url-save-file, browse-url-generic-program): |
| @@ -10843,7 +10843,7 @@ | |||
| 10843 | 1997-09-06 Michael Kifer <kifer@cs.sunysb.edu> | 10843 | 1997-09-06 Michael Kifer <kifer@cs.sunysb.edu> |
| 10844 | 10844 | ||
| 10845 | * ediff-ptch.el (ediff-patch-buffer-internal): | 10845 | * ediff-ptch.el (ediff-patch-buffer-internal): |
| 10846 | now behaves uniformely, whether the buffer | 10846 | now behaves uniformly, whether the buffer |
| 10847 | visits a file or not. | 10847 | visits a file or not. |
| 10848 | * ediff-util.el (ediff-other-buffer): Smarter selection of | 10848 | * ediff-util.el (ediff-other-buffer): Smarter selection of |
| 10849 | suitable other buffer. | 10849 | suitable other buffer. |
| @@ -11291,7 +11291,7 @@ | |||
| 11291 | the various new variables mentioned above. Accept the `a' key to | 11291 | the various new variables mentioned above. Accept the `a' key to |
| 11292 | use all selected citations. | 11292 | use all selected citations. |
| 11293 | (reftex-insert-bib-matches): New function. | 11293 | (reftex-insert-bib-matches): New function. |
| 11294 | (reftex-format-citation): Now interpretes % escapes. | 11294 | (reftex-format-citation): Now interprets % escapes. |
| 11295 | (reftex-select-item): Emulate a search in the menu buffer. | 11295 | (reftex-select-item): Emulate a search in the menu buffer. |
| 11296 | Interpret the 'cnt text property. | 11296 | Interpret the 'cnt text property. |
| 11297 | (reftex-view-crossref): Allow more general label, cite and ref macros. | 11297 | (reftex-view-crossref): Allow more general label, cite and ref macros. |
diff --git a/lisp/ChangeLog.8 b/lisp/ChangeLog.8 index 5c55597ddcf..e9b2138e4ba 100644 --- a/lisp/ChangeLog.8 +++ b/lisp/ChangeLog.8 | |||
| @@ -7002,7 +7002,7 @@ | |||
| 7002 | 1999-01-13 Eli Zaretskii <eliz@gnu.org> | 7002 | 1999-01-13 Eli Zaretskii <eliz@gnu.org> |
| 7003 | 7003 | ||
| 7004 | * international/codepage.el (cp850-decode-table): Replace nil | 7004 | * international/codepage.el (cp850-decode-table): Replace nil |
| 7005 | entries with codes of similary looking glyphs. ( | 7005 | entries with codes of similarly looking glyphs. ( |
| 7006 | Suggested by Jason Rumney <jasonr@altavista.net>.) | 7006 | Suggested by Jason Rumney <jasonr@altavista.net>.) |
| 7007 | 7007 | ||
| 7008 | 1999-01-13 Dave Love <fx@gnu.org> | 7008 | 1999-01-13 Dave Love <fx@gnu.org> |
| @@ -7469,7 +7469,7 @@ | |||
| 7469 | (cperl-forward-re): Highlight the trailing / in s/foo// as string. | 7469 | (cperl-forward-re): Highlight the trailing / in s/foo// as string. |
| 7470 | Highlight the starting // in s//foo/ as function-name. | 7470 | Highlight the starting // in s//foo/ as function-name. |
| 7471 | Emit a meaningful error instead of a cryptic one for an | 7471 | Emit a meaningful error instead of a cryptic one for an |
| 7472 | uncomplete REx near end-of-buffer. | 7472 | incomplete REx near end-of-buffer. |
| 7473 | 7473 | ||
| 7474 | (cperl-electric-keyword): `qr' recognized. | 7474 | (cperl-electric-keyword): `qr' recognized. |
| 7475 | (cperl-electric-else): Likewise. | 7475 | (cperl-electric-else): Likewise. |
diff --git a/lisp/ChangeLog.9 b/lisp/ChangeLog.9 index c6bfb1babd9..5372b242f5f 100644 --- a/lisp/ChangeLog.9 +++ b/lisp/ChangeLog.9 | |||
| @@ -237,8 +237,8 @@ | |||
| 237 | After 4.28: | 237 | After 4.28: |
| 238 | (cperl-forward-re): Throw an error at proper moment REx unfinished. | 238 | (cperl-forward-re): Throw an error at proper moment REx unfinished. |
| 239 | After 4.29: | 239 | After 4.29: |
| 240 | (x-color-defined-p): Make an extra case to peacify the warning. | 240 | (x-color-defined-p): Make an extra case to pacify the warning. |
| 241 | Toplevel: `defvar' to peacify the warnings. | 241 | Toplevel: `defvar' to pacify the warnings. |
| 242 | (cperl-find-pods-heres): Could access `font-lock-comment-face' in -nw. | 242 | (cperl-find-pods-heres): Could access `font-lock-comment-face' in -nw. |
| 243 | No -nw-compile time warnings now. | 243 | No -nw-compile time warnings now. |
| 244 | (cperl-find-tags): TAGS file had too short substring-to-search. | 244 | (cperl-find-tags): TAGS file had too short substring-to-search. |
| @@ -1183,7 +1183,7 @@ | |||
| 1183 | 2001-09-07 Gerd Moellmann <gerd@gnu.org> | 1183 | 2001-09-07 Gerd Moellmann <gerd@gnu.org> |
| 1184 | 1184 | ||
| 1185 | * isearch.el (isearch-intersects-p): New function. | 1185 | * isearch.el (isearch-intersects-p): New function. |
| 1186 | (isearch-close-unnecessary-overlays): Rename from *unecessary*, | 1186 | (isearch-close-unnecessary-overlays): Rename from *unnecessary*, |
| 1187 | use isearch-intersects-p, and clean up. | 1187 | use isearch-intersects-p, and clean up. |
| 1188 | 1188 | ||
| 1189 | 2001-09-07 Eli Zaretskii <eliz@is.elta.co.il> | 1189 | 2001-09-07 Eli Zaretskii <eliz@is.elta.co.il> |
| @@ -12432,7 +12432,7 @@ | |||
| 12432 | is not reached. It is. | 12432 | is not reached. It is. |
| 12433 | (vc-cvs-merge): Set state to 'edited after merge. | 12433 | (vc-cvs-merge): Set state to 'edited after merge. |
| 12434 | (vc-cvs-merge-news): Set workfile version to nil if not known. | 12434 | (vc-cvs-merge-news): Set workfile version to nil if not known. |
| 12435 | (vc-cvs-latest-on-branch-p): Recommented. Candidate for removal. | 12435 | (vc-cvs-latest-on-branch-p): Recommended. Candidate for removal. |
| 12436 | 12436 | ||
| 12437 | * vc-cvs.el, vc-rcs.el, vc-sccs.el (vc-*-checkout): Switch off | 12437 | * vc-cvs.el, vc-rcs.el, vc-sccs.el (vc-*-checkout): Switch off |
| 12438 | coding systems for checkout via stdout. (Merge from main line.) | 12438 | coding systems for checkout via stdout. (Merge from main line.) |
| @@ -13371,7 +13371,7 @@ | |||
| 13371 | if defined. (Merged from main line, slightly adapted.) | 13371 | if defined. (Merged from main line, slightly adapted.) |
| 13372 | 13372 | ||
| 13373 | * vc-cvs.el (vc-cvs-annotate-difference): Handle possible | 13373 | * vc-cvs.el (vc-cvs-annotate-difference): Handle possible |
| 13374 | millenium problem (merged from mainline). | 13374 | millennium problem (merged from mainline). |
| 13375 | 13375 | ||
| 13376 | 2000-09-04 Martin Lorentzson <martinl@gnu.org> | 13376 | 2000-09-04 Martin Lorentzson <martinl@gnu.org> |
| 13377 | 13377 | ||
diff --git a/lisp/align.el b/lisp/align.el index 61387b23dc7..e3bdf77002e 100644 --- a/lisp/align.el +++ b/lisp/align.el | |||
| @@ -389,7 +389,7 @@ The possible settings for `align-region-separate' are: | |||
| 389 | (regexp . "\\(^\\s-+[^( \t\n]\\|(\\(\\S-+\\)\\s-+\\)\\S-+\\(\\s-+\\)") | 389 | (regexp . "\\(^\\s-+[^( \t\n]\\|(\\(\\S-+\\)\\s-+\\)\\S-+\\(\\s-+\\)") |
| 390 | (group . 3) | 390 | (group . 3) |
| 391 | (modes . align-lisp-modes) | 391 | (modes . align-lisp-modes) |
| 392 | (run-if . ,(function (lambda () current-prefix-arg)))) | 392 | (run-if . ,(lambda () current-prefix-arg))) |
| 393 | 393 | ||
| 394 | (lisp-alist-dot | 394 | (lisp-alist-dot |
| 395 | (regexp . "\\(\\s-*\\)\\.\\(\\s-*\\)") | 395 | (regexp . "\\(\\s-*\\)\\.\\(\\s-*\\)") |
| @@ -463,7 +463,7 @@ The possible settings for `align-region-separate' are: | |||
| 463 | (regexp . ",\\(\\s-*\\)[^/ \t\n]") | 463 | (regexp . ",\\(\\s-*\\)[^/ \t\n]") |
| 464 | (repeat . t) | 464 | (repeat . t) |
| 465 | (modes . align-c++-modes) | 465 | (modes . align-c++-modes) |
| 466 | (run-if . ,(function (lambda () current-prefix-arg)))) | 466 | (run-if . ,(lambda () current-prefix-arg))) |
| 467 | ; (valid | 467 | ; (valid |
| 468 | ; . ,(function | 468 | ; . ,(function |
| 469 | ; (lambda () | 469 | ; (lambda () |
| @@ -480,7 +480,7 @@ The possible settings for `align-region-separate' are: | |||
| 480 | (regexp . ",\\(\\s-*\\)[^# \t\n]") | 480 | (regexp . ",\\(\\s-*\\)[^# \t\n]") |
| 481 | (repeat . t) | 481 | (repeat . t) |
| 482 | (modes . (append align-perl-modes '(python-mode))) | 482 | (modes . (append align-perl-modes '(python-mode))) |
| 483 | (run-if . ,(function (lambda () current-prefix-arg)))) | 483 | (run-if . ,(lambda () current-prefix-arg))) |
| 484 | 484 | ||
| 485 | (c++-comment | 485 | (c++-comment |
| 486 | (regexp . "\\(\\s-*\\)\\(//.*\\|/\\*.*\\*/\\s-*\\)$") | 486 | (regexp . "\\(\\s-*\\)\\(//.*\\|/\\*.*\\*/\\s-*\\)$") |
diff --git a/lisp/allout.el b/lisp/allout.el index 044c82afb29..b56071de59e 100644 --- a/lisp/allout.el +++ b/lisp/allout.el | |||
| @@ -245,7 +245,7 @@ prevails." | |||
| 245 | "Allout-mode functions bound to keys without any added prefix. | 245 | "Allout-mode functions bound to keys without any added prefix. |
| 246 | 246 | ||
| 247 | This is in contrast to the majority of allout-mode bindings on | 247 | This is in contrast to the majority of allout-mode bindings on |
| 248 | `allout-prefixed-bindings', whose bindings are created with a | 248 | `allout-prefixed-keybindings', whose bindings are created with a |
| 249 | preceding command key. | 249 | preceding command key. |
| 250 | 250 | ||
| 251 | Use vector format for the keys: | 251 | Use vector format for the keys: |
| @@ -1510,7 +1510,7 @@ topic prefix. | |||
| 1510 | Entries must be symbols that are bound to the desired regexp values. | 1510 | Entries must be symbols that are bound to the desired regexp values. |
| 1511 | 1511 | ||
| 1512 | Encryptions that result in matches will be retried, up to | 1512 | Encryptions that result in matches will be retried, up to |
| 1513 | `allout-encryption-ciphertext-rejection-limit' times, after which | 1513 | `allout-encryption-ciphertext-rejection-ceiling' times, after which |
| 1514 | an error is raised.") | 1514 | an error is raised.") |
| 1515 | 1515 | ||
| 1516 | (make-variable-buffer-local 'allout-encryption-ciphertext-rejection-regexps) | 1516 | (make-variable-buffer-local 'allout-encryption-ciphertext-rejection-regexps) |
| @@ -4721,7 +4721,7 @@ this function." | |||
| 4721 | 4721 | ||
| 4722 | This is a way to give restricted peek at a concealed locality without the | 4722 | This is a way to give restricted peek at a concealed locality without the |
| 4723 | expense of exposing its context, but can leave the outline with aberrant | 4723 | expense of exposing its context, but can leave the outline with aberrant |
| 4724 | exposure. `allout-show-offshoot' should be used after the peek to rectify | 4724 | exposure. `allout-show-to-offshoot' should be used after the peek to rectify |
| 4725 | the exposure." | 4725 | the exposure." |
| 4726 | 4726 | ||
| 4727 | (interactive) | 4727 | (interactive) |
diff --git a/lisp/ansi-color.el b/lisp/ansi-color.el index 4130f5aad3c..141ad2353e8 100644 --- a/lisp/ansi-color.el +++ b/lisp/ansi-color.el | |||
| @@ -536,7 +536,7 @@ codes. Finally, the so changed list of codes is returned." | |||
| 536 | (cons new (remq new codes)))) | 536 | (cons new (remq new codes)))) |
| 537 | (2 (unless (memq new '(20 26 28 29)) | 537 | (2 (unless (memq new '(20 26 28 29)) |
| 538 | ;; The standard says `21 doubly underlined' while | 538 | ;; The standard says `21 doubly underlined' while |
| 539 | ;; http://en.wikipedia.org/wiki/ANSI_escape_code claims | 539 | ;; https://en.wikipedia.org/wiki/ANSI_escape_code claims |
| 540 | ;; `21 Bright/Bold: off or Underline: Double'. | 540 | ;; `21 Bright/Bold: off or Underline: Double'. |
| 541 | (remq (- new 20) (pcase new | 541 | (remq (- new 20) (pcase new |
| 542 | (22 (remq 1 codes)) | 542 | (22 (remq 1 codes)) |
diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 6e08176f5ff..046ea2b5d6a 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el | |||
| @@ -871,6 +871,62 @@ This is an internal function used by Auto-Revert Mode." | |||
| 871 | (restore-buffer-modified-p modified))) | 871 | (restore-buffer-modified-p modified))) |
| 872 | (set-visited-file-modtime)) | 872 | (set-visited-file-modtime)) |
| 873 | 873 | ||
| 874 | (defun auto-revert--buffer-candidates () | ||
| 875 | "Return a prioritized list of buffers to maybe auto-revert. | ||
| 876 | The differences between this return value and the reference | ||
| 877 | variable `auto-revert-buffer-list' include: 1) this has more | ||
| 878 | entries when in global-auto-revert-mode; 2) this prioritizes | ||
| 879 | buffers not reverted last time due to user interruption. " | ||
| 880 | (let ((bufs (delq nil | ||
| 881 | ;; Buffers with remote contents shall be reverted only | ||
| 882 | ;; if the connection is established already. | ||
| 883 | (mapcar | ||
| 884 | (lambda (buf) | ||
| 885 | (and (buffer-live-p buf) | ||
| 886 | (with-current-buffer buf | ||
| 887 | (and | ||
| 888 | (or (not (file-remote-p default-directory)) | ||
| 889 | (file-remote-p default-directory nil t)) | ||
| 890 | buf)))) | ||
| 891 | (auto-revert--polled-buffers)))) | ||
| 892 | remaining new) | ||
| 893 | ;; Partition `bufs' into two halves depending on whether or not | ||
| 894 | ;; the buffers are in `auto-revert-remaining-buffers'. The two | ||
| 895 | ;; halves are then re-joined with the "remaining" buffers at the | ||
| 896 | ;; head of the list. | ||
| 897 | (dolist (buf auto-revert-remaining-buffers) | ||
| 898 | (when (memq buf bufs) | ||
| 899 | (push buf remaining))) | ||
| 900 | (dolist (buf bufs) | ||
| 901 | (unless (memq buf remaining) | ||
| 902 | (push buf new))) | ||
| 903 | (nreverse (nconc new remaining)))) | ||
| 904 | |||
| 905 | (defun auto-revert-buffer (buf) | ||
| 906 | "Revert a single buffer. | ||
| 907 | |||
| 908 | This is performed as specified by Auto-Revert and Global | ||
| 909 | Auto-Revert Modes." | ||
| 910 | (if (not (buffer-live-p buf)) | ||
| 911 | (auto-revert-remove-current-buffer buf) | ||
| 912 | (with-current-buffer buf | ||
| 913 | ;; Test if someone has turned off Auto-Revert Mode | ||
| 914 | ;; in a non-standard way, for example by changing | ||
| 915 | ;; major mode. | ||
| 916 | (when (and (not auto-revert-mode) | ||
| 917 | (not auto-revert-tail-mode)) | ||
| 918 | (auto-revert-remove-current-buffer)) | ||
| 919 | (when (auto-revert-active-p) | ||
| 920 | ;; Enable file notification. | ||
| 921 | ;; Don't bother creating a notifier for non-file buffers | ||
| 922 | ;; unless it explicitly indicates that this works. | ||
| 923 | (when (and auto-revert-use-notify | ||
| 924 | (not auto-revert-notify-watch-descriptor) | ||
| 925 | (or buffer-file-name | ||
| 926 | buffer-auto-revert-by-notification)) | ||
| 927 | (auto-revert-notify-add-watch)) | ||
| 928 | (auto-revert-handler))))) | ||
| 929 | |||
| 874 | (defun auto-revert-buffers () | 930 | (defun auto-revert-buffers () |
| 875 | "Revert buffers as specified by Auto-Revert and Global Auto-Revert Mode. | 931 | "Revert buffers as specified by Auto-Revert and Global Auto-Revert Mode. |
| 876 | 932 | ||
| @@ -894,67 +950,19 @@ are checked first the next time this function is called. | |||
| 894 | This function is also responsible for removing buffers no longer in | 950 | This function is also responsible for removing buffers no longer in |
| 895 | Auto-Revert Mode from `auto-revert-buffer-list', and for canceling | 951 | Auto-Revert Mode from `auto-revert-buffer-list', and for canceling |
| 896 | the timer when no buffers need to be checked." | 952 | the timer when no buffers need to be checked." |
| 897 | |||
| 898 | (save-match-data | 953 | (save-match-data |
| 899 | (let ((bufs (auto-revert--polled-buffers)) | 954 | (let ((bufs (auto-revert--buffer-candidates))) |
| 900 | remaining new) | ||
| 901 | ;; Buffers with remote contents shall be reverted only if the | ||
| 902 | ;; connection is established already. | ||
| 903 | (setq bufs (delq nil | ||
| 904 | (mapcar | ||
| 905 | (lambda (buf) | ||
| 906 | (and (buffer-live-p buf) | ||
| 907 | (with-current-buffer buf | ||
| 908 | (and | ||
| 909 | (or (not (file-remote-p default-directory)) | ||
| 910 | (file-remote-p default-directory nil t)) | ||
| 911 | buf)))) | ||
| 912 | bufs))) | ||
| 913 | ;; Partition `bufs' into two halves depending on whether or not | ||
| 914 | ;; the buffers are in `auto-revert-remaining-buffers'. The two | ||
| 915 | ;; halves are then re-joined with the "remaining" buffers at the | ||
| 916 | ;; head of the list. | ||
| 917 | (dolist (buf auto-revert-remaining-buffers) | ||
| 918 | (if (memq buf bufs) | ||
| 919 | (push buf remaining))) | ||
| 920 | (dolist (buf bufs) | ||
| 921 | (if (not (memq buf remaining)) | ||
| 922 | (push buf new))) | ||
| 923 | (setq bufs (nreverse (nconc new remaining))) | ||
| 924 | (while (and bufs | 955 | (while (and bufs |
| 925 | (not (and auto-revert-stop-on-user-input | 956 | (not (and auto-revert-stop-on-user-input |
| 926 | (input-pending-p)))) | 957 | (input-pending-p)))) |
| 927 | (let ((buf (car bufs))) | 958 | (auto-revert-buffer (pop bufs))) |
| 928 | (if (not (buffer-live-p buf)) | ||
| 929 | ;; Remove dead buffer from `auto-revert-buffer-list'. | ||
| 930 | (auto-revert-remove-current-buffer buf) | ||
| 931 | (with-current-buffer buf | ||
| 932 | ;; Test if someone has turned off Auto-Revert Mode | ||
| 933 | ;; in a non-standard way, for example by changing | ||
| 934 | ;; major mode. | ||
| 935 | (if (and (not auto-revert-mode) | ||
| 936 | (not auto-revert-tail-mode) | ||
| 937 | (memq buf auto-revert-buffer-list)) | ||
| 938 | (auto-revert-remove-current-buffer)) | ||
| 939 | (when (auto-revert-active-p) | ||
| 940 | ;; Enable file notification. | ||
| 941 | ;; Don't bother creating a notifier for non-file buffers | ||
| 942 | ;; unless it explicitly indicates that this works. | ||
| 943 | (when (and auto-revert-use-notify | ||
| 944 | (not auto-revert-notify-watch-descriptor) | ||
| 945 | (or buffer-file-name | ||
| 946 | buffer-auto-revert-by-notification)) | ||
| 947 | (auto-revert-notify-add-watch)) | ||
| 948 | (auto-revert-handler))))) | ||
| 949 | (setq bufs (cdr bufs))) | ||
| 950 | (setq auto-revert-remaining-buffers bufs) | 959 | (setq auto-revert-remaining-buffers bufs) |
| 951 | ;; Check if we should cancel the timer. | 960 | ;; Check if we should cancel the timer. |
| 952 | (unless (auto-revert--need-polling-p) | 961 | (unless (auto-revert--need-polling-p) |
| 953 | (if (timerp auto-revert-timer) | 962 | (when (timerp auto-revert-timer) |
| 954 | (cancel-timer auto-revert-timer)) | 963 | (cancel-timer auto-revert-timer)) |
| 955 | (setq auto-revert-timer nil))))) | 964 | (setq auto-revert-timer nil))))) |
| 956 | 965 | ||
| 957 | |||
| 958 | ;; The end: | 966 | ;; The end: |
| 959 | (provide 'autorevert) | 967 | (provide 'autorevert) |
| 960 | 968 | ||
diff --git a/lisp/calc/calc-forms.el b/lisp/calc/calc-forms.el index 5a8f0a38d24..a2f66968665 100644 --- a/lisp/calc/calc-forms.el +++ b/lisp/calc/calc-forms.el | |||
| @@ -709,6 +709,10 @@ as measured in the number of days before December 31, 1 BC (Gregorian).") | |||
| 709 | "The beginning of the Julian date calendar, | 709 | "The beginning of the Julian date calendar, |
| 710 | as measured in the integer number of days before December 31, 1 BC (Gregorian).") | 710 | as measured in the integer number of days before December 31, 1 BC (Gregorian).") |
| 711 | 711 | ||
| 712 | (defconst math-unix-epoch 719163 | ||
| 713 | "The beginning of Unix time: days from December 31, 1 BC (Gregorian) | ||
| 714 | to Jan 1, 1970 AD.") | ||
| 715 | |||
| 712 | (defun math-format-date-part (x) | 716 | (defun math-format-date-part (x) |
| 713 | (cond ((stringp x) | 717 | (cond ((stringp x) |
| 714 | x) | 718 | x) |
| @@ -730,7 +734,8 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)." | |||
| 730 | (math-floor math-fd-date) | 734 | (math-floor math-fd-date) |
| 731 | math-julian-date-beginning-int))) | 735 | math-julian-date-beginning-int))) |
| 732 | ((eq x 'U) | 736 | ((eq x 'U) |
| 733 | (math-format-number (nth 1 (math-date-parts math-fd-date 719164)))) | 737 | (math-format-number (nth 1 (math-date-parts math-fd-date |
| 738 | math-unix-epoch)))) | ||
| 734 | ((memq x '(IYYY Iww w)) | 739 | ((memq x '(IYYY Iww w)) |
| 735 | (progn | 740 | (progn |
| 736 | (or math-fd-iso-dt | 741 | (or math-fd-iso-dt |
| @@ -1173,7 +1178,7 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)." | |||
| 1173 | (setq num (math-match-substring math-pd-str 0) | 1178 | (setq num (math-match-substring math-pd-str 0) |
| 1174 | math-pd-str (substring math-pd-str (match-end 0)) | 1179 | math-pd-str (substring math-pd-str (match-end 0)) |
| 1175 | num (math-date-to-dt | 1180 | num (math-date-to-dt |
| 1176 | (math-add 719164 | 1181 | (math-add math-unix-epoch |
| 1177 | (math-div (math-read-number num) | 1182 | (math-div (math-read-number num) |
| 1178 | '(float 864 2)))) | 1183 | '(float 864 2)))) |
| 1179 | hour (nth 3 num) | 1184 | hour (nth 3 num) |
| @@ -1434,11 +1439,11 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)." | |||
| 1434 | (defun calcFunc-unixtime (date &optional zone) | 1439 | (defun calcFunc-unixtime (date &optional zone) |
| 1435 | (if (math-realp date) | 1440 | (if (math-realp date) |
| 1436 | (progn | 1441 | (progn |
| 1437 | (setq date (math-add 719163 (math-div date '(float 864 2)))) | 1442 | (setq date (math-add math-unix-epoch (math-div date '(float 864 2)))) |
| 1438 | (list 'date (math-sub date (math-div (calcFunc-tzone zone date) | 1443 | (list 'date (math-sub date (math-div (calcFunc-tzone zone date) |
| 1439 | '(float 864 2))))) | 1444 | '(float 864 2))))) |
| 1440 | (if (eq (car date) 'date) | 1445 | (if (eq (car date) 'date) |
| 1441 | (math-add (nth 1 (math-date-parts (nth 1 date) 719163)) | 1446 | (math-add (nth 1 (math-date-parts (nth 1 date) math-unix-epoch)) |
| 1442 | (calcFunc-tzone zone date)) | 1447 | (calcFunc-tzone zone date)) |
| 1443 | (math-reject-arg date 'datep)))) | 1448 | (math-reject-arg date 'datep)))) |
| 1444 | 1449 | ||
| @@ -1870,8 +1875,8 @@ and ends on the last Sunday of October at 2 a.m." | |||
| 1870 | (and days (= day (car days)) | 1875 | (and days (= day (car days)) |
| 1871 | (setq holiday t))) | 1876 | (setq holiday t))) |
| 1872 | (let* ((weekdays (nth 3 math-holidays-cache)) | 1877 | (let* ((weekdays (nth 3 math-holidays-cache)) |
| 1873 | (weeks (1- (/ (+ day 6) 7))) | 1878 | (weeks (/ day 7)) |
| 1874 | (wkday (- day 1 (* weeks 7)))) | 1879 | (wkday (mod day 7))) ; Day of week: 0=Sunday, 6=Saturday |
| 1875 | (setq delta (+ delta (* weeks (length weekdays)))) | 1880 | (setq delta (+ delta (* weeks (length weekdays)))) |
| 1876 | (while (and weekdays (< (car weekdays) wkday)) | 1881 | (while (and weekdays (< (car weekdays) wkday)) |
| 1877 | (setq weekdays (cdr weekdays) | 1882 | (setq weekdays (cdr weekdays) |
| @@ -1905,14 +1910,15 @@ and ends on the last Sunday of October at 2 a.m." | |||
| 1905 | (setq delta (1+ delta))) | 1910 | (setq delta (1+ delta))) |
| 1906 | (setq day (+ day delta))) | 1911 | (setq day (+ day delta))) |
| 1907 | (let* ((weekdays (nth 3 math-holidays-cache)) | 1912 | (let* ((weekdays (nth 3 math-holidays-cache)) |
| 1908 | (bweek (- 7 (length weekdays))) | 1913 | (bweek (- 7 (length weekdays))) ; Business days in a week, 1..7. |
| 1909 | (weeks (1- (/ (+ day (1- bweek)) bweek))) | 1914 | (weeks (/ day bweek)) ; Whole weeks. |
| 1910 | (wkday (- day 1 (* weeks bweek))) | 1915 | (wkday (mod day bweek)) ; Business day in last week, 0..bweek-1 |
| 1911 | (w 0)) | 1916 | (w 0)) |
| 1912 | (setq day (+ day (* weeks (length weekdays)))) | 1917 | (setq day (+ day (* weeks (length weekdays)))) |
| 1918 | ;; Add business days in the last week; `w' is weekday, 0..6. | ||
| 1913 | (while (if (memq w weekdays) | 1919 | (while (if (memq w weekdays) |
| 1914 | (setq day (1+ day)) | 1920 | (setq day (1+ day)) |
| 1915 | (> (setq wkday (1- wkday)) 0)) | 1921 | (>= (setq wkday (1- wkday)) 0)) |
| 1916 | (setq w (1+ w))) | 1922 | (setq w (1+ w))) |
| 1917 | (let ((hours (nth 7 math-holidays-cache))) | 1923 | (let ((hours (nth 7 math-holidays-cache))) |
| 1918 | (if hours | 1924 | (if hours |
diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el index 7b86eb095b0..709c09ea099 100644 --- a/lisp/calc/calc-units.el +++ b/lisp/calc/calc-units.el | |||
| @@ -37,14 +37,14 @@ | |||
| 37 | ;;; Updated April 2002 by Jochen Küpper | 37 | ;;; Updated April 2002 by Jochen Küpper |
| 38 | 38 | ||
| 39 | ;;; Updated August 2007, using | 39 | ;;; Updated August 2007, using |
| 40 | ;;; CODATA (http://physics.nist.gov/cuu/Constants/index.html) | 40 | ;;; CODATA (https://physics.nist.gov/cuu/Constants/index.html) |
| 41 | ;;; NIST (http://physics.nist.gov/Pubs/SP811/appenB9.html) | 41 | ;;; NIST (https://physics.nist.gov/Pubs/SP811/appenB9.html) |
| 42 | ;;; ESUWM (Encyclopaedia of Scientific Units, Weights and | 42 | ;;; ESUWM (Encyclopaedia of Scientific Units, Weights and |
| 43 | ;;; Measures, by François Cardarelli) | 43 | ;;; Measures, by François Cardarelli) |
| 44 | ;;; All conversions are exact unless otherwise noted. | 44 | ;;; All conversions are exact unless otherwise noted. |
| 45 | 45 | ||
| 46 | ;; CODATA values updated February 2016, using 2014 adjustment | 46 | ;; CODATA values updated February 2016, using 2014 adjustment |
| 47 | ;; http://arxiv.org/pdf/1507.07956.pdf | 47 | ;; https://arxiv.org/pdf/1507.07956.pdf |
| 48 | 48 | ||
| 49 | ;; Updated November 2018 for the redefinition of the SI | 49 | ;; Updated November 2018 for the redefinition of the SI |
| 50 | ;; https://www.bipm.org/utils/en/pdf/CGPM/Draft-Resolution-A-EN.pdf | 50 | ;; https://www.bipm.org/utils/en/pdf/CGPM/Draft-Resolution-A-EN.pdf |
| @@ -59,7 +59,7 @@ | |||
| 59 | ( mi "5280 ft" "Mile" ) | 59 | ( mi "5280 ft" "Mile" ) |
| 60 | ( au "149597870691. m" "Astronomical Unit" nil | 60 | ( au "149597870691. m" "Astronomical Unit" nil |
| 61 | "149597870691 m (*)") | 61 | "149597870691 m (*)") |
| 62 | ;; (approx) NASA JPL (http://neo.jpl.nasa.gov/glossary/au.html) | 62 | ;; (approx) NASA JPL (https://neo.jpl.nasa.gov/glossary/au.html) |
| 63 | ( lyr "c yr" "Light Year" ) | 63 | ( lyr "c yr" "Light Year" ) |
| 64 | ( pc "3.0856775854*10^16 m" "Parsec (**)" nil | 64 | ( pc "3.0856775854*10^16 m" "Parsec (**)" nil |
| 65 | "3.0856775854 10^16 m (*)") ;; (approx) ESUWM | 65 | "3.0856775854 10^16 m (*)") ;; (approx) ESUWM |
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 20887af4849..de9b1f3ff53 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el | |||
| @@ -1096,7 +1096,7 @@ Otherwise, use symbolic time zones like \"CET\"." | |||
| 1096 | "Name of buffer used for sunrise/sunset times.") | 1096 | "Name of buffer used for sunrise/sunset times.") |
| 1097 | 1097 | ||
| 1098 | (defconst calendar-hebrew-yahrzeit-buffer "*Yahrzeits*" | 1098 | (defconst calendar-hebrew-yahrzeit-buffer "*Yahrzeits*" |
| 1099 | "Name of the buffer used by `list-yahrzeit-dates'.") | 1099 | "Name of the buffer used by `calendar-hebrew-list-yahrzeits'.") |
| 1100 | 1100 | ||
| 1101 | (defmacro calendar-increment-month (mon yr n &optional nmonths) | 1101 | (defmacro calendar-increment-month (mon yr n &optional nmonths) |
| 1102 | "Increment the variables MON and YR by N months. | 1102 | "Increment the variables MON and YR by N months. |
diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el index 2ee1d34bf15..18ca05af4c5 100644 --- a/lisp/calendar/timeclock.el +++ b/lisp/calendar/timeclock.el | |||
| @@ -555,7 +555,7 @@ relative only to the time worked today, and not to past time." | |||
| 555 | OLD-DEFAULT hours are set for every day that has no number indicated." | 555 | OLD-DEFAULT hours are set for every day that has no number indicated." |
| 556 | (interactive "P") | 556 | (interactive "P") |
| 557 | (if old-default (setq old-default (prefix-numeric-value old-default)) | 557 | (if old-default (setq old-default (prefix-numeric-value old-default)) |
| 558 | (error "`timelog-make-hours-explicit' requires an explicit argument")) | 558 | (error "`timeclock-make-hours-explicit' requires an explicit argument")) |
| 559 | (let ((extant-timelog (find-buffer-visiting timeclock-file)) | 559 | (let ((extant-timelog (find-buffer-visiting timeclock-file)) |
| 560 | current-date) | 560 | current-date) |
| 561 | (with-current-buffer (find-file-noselect timeclock-file t) | 561 | (with-current-buffer (find-file-noselect timeclock-file t) |
diff --git a/lisp/cedet/ChangeLog.1 b/lisp/cedet/ChangeLog.1 index 93bd5872f3f..a1c0e41b8da 100644 --- a/lisp/cedet/ChangeLog.1 +++ b/lisp/cedet/ChangeLog.1 | |||
| @@ -301,7 +301,7 @@ | |||
| 301 | manipulation of `ede-projects' with equivalent and better | 301 | manipulation of `ede-projects' with equivalent and better |
| 302 | functions. | 302 | functions. |
| 303 | (ede-proj-load): Replace call to test if dir has project to | 303 | (ede-proj-load): Replace call to test if dir has project to |
| 304 | explicity ask filesystem if Project.ede is there. | 304 | explicitly ask filesystem if Project.ede is there. |
| 305 | 305 | ||
| 306 | * ede/config.el: | 306 | * ede/config.el: |
| 307 | * ede/detect.el: New files. | 307 | * ede/detect.el: New files. |
| @@ -2101,7 +2101,7 @@ | |||
| 2101 | by calling `srecode-cpp-apply-templates'. | 2101 | by calling `srecode-cpp-apply-templates'. |
| 2102 | 2102 | ||
| 2103 | * srecode/compile.el (srecode-compile-templates): Fix directory | 2103 | * srecode/compile.el (srecode-compile-templates): Fix directory |
| 2104 | compare of built-in templates. Give built-ins lower piority. | 2104 | compare of built-in templates. Give built-ins lower priority. |
| 2105 | Support special variable "project". | 2105 | Support special variable "project". |
| 2106 | (srecode-compile-template-table): Set :project slot of new tables. | 2106 | (srecode-compile-template-table): Set :project slot of new tables. |
| 2107 | (srecode-compile-one-template-tag): | 2107 | (srecode-compile-one-template-tag): |
diff --git a/lisp/cedet/ede/autoconf-edit.el b/lisp/cedet/ede/autoconf-edit.el index e9dd48c8ab5..409e35ef900 100644 --- a/lisp/cedet/ede/autoconf-edit.el +++ b/lisp/cedet/ede/autoconf-edit.el | |||
| @@ -215,7 +215,7 @@ the ordering list `autoconf-preferred-macro-order'." | |||
| 215 | (defun autoconf-insert-new-macro (macro &optional param) | 215 | (defun autoconf-insert-new-macro (macro &optional param) |
| 216 | "Add a call to MACRO in the current autoconf file. | 216 | "Add a call to MACRO in the current autoconf file. |
| 217 | Deals with macro order. See `autoconf-preferred-macro-order' and | 217 | Deals with macro order. See `autoconf-preferred-macro-order' and |
| 218 | `autoconf-multi-macros'. | 218 | `autoconf-multiple-macros'. |
| 219 | Optional argument PARAM is the parameter to pass to the macro as one string." | 219 | Optional argument PARAM is the parameter to pass to the macro as one string." |
| 220 | (cond ((member macro autoconf-multiple-macros) | 220 | (cond ((member macro autoconf-multiple-macros) |
| 221 | ;; This occurs multiple times | 221 | ;; This occurs multiple times |
diff --git a/lisp/cedet/ede/detect.el b/lisp/cedet/ede/detect.el index f1152fd3539..fe23501807a 100644 --- a/lisp/cedet/ede/detect.el +++ b/lisp/cedet/ede/detect.el | |||
| @@ -25,7 +25,7 @@ | |||
| 25 | ;; | 25 | ;; |
| 26 | ;; Detection comes in multiple forms: | 26 | ;; Detection comes in multiple forms: |
| 27 | ;; | 27 | ;; |
| 28 | ;; `ede-detect-scan-directory-for-project' - | 28 | ;; `ede--detect-scan-directory-for-project' - |
| 29 | ;; Scan for a project via the file system. | 29 | ;; Scan for a project via the file system. |
| 30 | ;; `ede-detect-directory-for-project' - | 30 | ;; `ede-detect-directory-for-project' - |
| 31 | ;; Check our file cache for a project. If that fails, use | 31 | ;; Check our file cache for a project. If that fails, use |
diff --git a/lisp/cedet/semantic/bovine/scm.el b/lisp/cedet/semantic/bovine/scm.el index 93ad27586ed..b2a25bf8eef 100644 --- a/lisp/cedet/semantic/bovine/scm.el +++ b/lisp/cedet/semantic/bovine/scm.el | |||
| @@ -69,7 +69,7 @@ Attempts a simple prototype for calling or using TAG." | |||
| 69 | ;; Note: Analyzer from Henry S. Thompson | 69 | ;; Note: Analyzer from Henry S. Thompson |
| 70 | (define-lex-regex-analyzer semantic-lex-scheme-symbol | 70 | (define-lex-regex-analyzer semantic-lex-scheme-symbol |
| 71 | "Detect and create symbol and keyword tokens." | 71 | "Detect and create symbol and keyword tokens." |
| 72 | "\\(\\sw\\([:]\\|\\sw\\|\\s_\\)*\\)" | 72 | "\\(\\sw\\|\\s_\\)+" |
| 73 | ;; (message "symbol: %s" (match-string 0)) | 73 | ;; (message "symbol: %s" (match-string 0)) |
| 74 | (semantic-lex-push-token | 74 | (semantic-lex-push-token |
| 75 | (semantic-lex-token | 75 | (semantic-lex-token |
diff --git a/lisp/cedet/semantic/java.el b/lisp/cedet/semantic/java.el index 2aa0ab0e3fd..cc53f69691b 100644 --- a/lisp/cedet/semantic/java.el +++ b/lisp/cedet/semantic/java.el | |||
| @@ -321,7 +321,7 @@ If NOSNARF is `lex', then return the semantic lex token." | |||
| 321 | (defvar semantic-java-doc-line-tags nil | 321 | (defvar semantic-java-doc-line-tags nil |
| 322 | "Valid javadoc line tags. | 322 | "Valid javadoc line tags. |
| 323 | Ordered following Sun's Tag Convention at | 323 | Ordered following Sun's Tag Convention at |
| 324 | <http://java.sun.com/products/jdk/javadoc/writingdoccomments/index.html>") | 324 | <https://java.sun.com/products/jdk/javadoc/writingdoccomments/index.html>") |
| 325 | 325 | ||
| 326 | (defvar semantic-java-doc-with-name-tags nil | 326 | (defvar semantic-java-doc-with-name-tags nil |
| 327 | "Javadoc tags which have a name.") | 327 | "Javadoc tags which have a name.") |
diff --git a/lisp/cedet/srecode/fields.el b/lisp/cedet/srecode/fields.el index e46c5820c55..87c7c684dab 100644 --- a/lisp/cedet/srecode/fields.el +++ b/lisp/cedet/srecode/fields.el | |||
| @@ -164,7 +164,7 @@ Has virtual :start and :end initializers.") | |||
| 164 | 164 | ||
| 165 | (cl-defmethod srecode-overlaid-text ((olaid srecode-overlaid) &optional set-to) | 165 | (cl-defmethod srecode-overlaid-text ((olaid srecode-overlaid) &optional set-to) |
| 166 | "Return the text under OLAID. | 166 | "Return the text under OLAID. |
| 167 | If SET-TO is a string, then replace the text of OLAID wit SET-TO." | 167 | If SET-TO is a string, then replace the text of OLAID with SET-TO." |
| 168 | (let* ((ol (oref olaid overlay)) | 168 | (let* ((ol (oref olaid overlay)) |
| 169 | (start (overlay-start ol))) | 169 | (start (overlay-start ol))) |
| 170 | (if (not (stringp set-to)) | 170 | (if (not (stringp set-to)) |
diff --git a/lisp/color.el b/lisp/color.el index 560631ae66d..48f150de70c 100644 --- a/lisp/color.el +++ b/lisp/color.el | |||
| @@ -50,7 +50,7 @@ numbers, (RED GREEN BLUE), each between 0.0 and 1.0 inclusive. | |||
| 50 | Optional argument FRAME specifies the frame where the color is to be | 50 | Optional argument FRAME specifies the frame where the color is to be |
| 51 | displayed. If FRAME is omitted or nil, use the selected frame. | 51 | displayed. If FRAME is omitted or nil, use the selected frame. |
| 52 | If FRAME cannot display COLOR, return nil." | 52 | If FRAME cannot display COLOR, return nil." |
| 53 | ;; `colors-values' maximum value is either 65535 or 65280 depending on the | 53 | ;; `color-values' maximum value is either 65535 or 65280 depending on the |
| 54 | ;; display system. So we use a white conversion to get the max value. | 54 | ;; display system. So we use a white conversion to get the max value. |
| 55 | (let ((valmax (float (car (color-values "#ffffffffffff"))))) | 55 | (let ((valmax (float (car (color-values "#ffffffffffff"))))) |
| 56 | (mapcar (lambda (x) (/ x valmax)) (color-values color frame)))) | 56 | (mapcar (lambda (x) (/ x valmax)) (color-values color frame)))) |
diff --git a/lisp/comint.el b/lisp/comint.el index b966fae9364..611947605fb 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -1773,7 +1773,7 @@ Argument 0 is the command name." | |||
| 1773 | ((>= mth 0) (1- (- count mth))) | 1773 | ((>= mth 0) (1- (- count mth))) |
| 1774 | (t (1- (- mth)))))) | 1774 | (t (1- (- mth)))))) |
| 1775 | (mapconcat | 1775 | (mapconcat |
| 1776 | (function (lambda (a) a)) (nthcdr n (nreverse (nthcdr m args))) " ")))) | 1776 | (lambda (a) a) (nthcdr n (nreverse (nthcdr m args))) " ")))) |
| 1777 | 1777 | ||
| 1778 | ;; | 1778 | ;; |
| 1779 | ;; Input processing stuff | 1779 | ;; Input processing stuff |
diff --git a/lisp/completion.el b/lisp/completion.el index e4a004f1908..8a4c1676145 100644 --- a/lisp/completion.el +++ b/lisp/completion.el | |||
| @@ -2041,7 +2041,7 @@ Patched to remove the most recent completion." | |||
| 2041 | 2041 | ||
| 2042 | ;; All common separators (eg. space "(" ")" """) characters go through a | 2042 | ;; All common separators (eg. space "(" ")" """) characters go through a |
| 2043 | ;; function to add new words to the list of words to complete from. | 2043 | ;; function to add new words to the list of words to complete from. |
| 2044 | ;; If the character before this was an alpha-numeric then this adds the | 2044 | ;; If the character before this was an alphanumeric then this adds the |
| 2045 | ;; symbol before point to the completion list (using ADD-COMPLETION). | 2045 | ;; symbol before point to the completion list (using ADD-COMPLETION). |
| 2046 | 2046 | ||
| 2047 | (defvar completion-separator-chars | 2047 | (defvar completion-separator-chars |
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 9305664e31a..ec9a9680137 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el | |||
| @@ -210,7 +210,7 @@ multilingual development. | |||
| 210 | 210 | ||
| 211 | This is a fairly large file, not typically present on GNU systems. | 211 | This is a fairly large file, not typically present on GNU systems. |
| 212 | At the time of writing it is at the URL | 212 | At the time of writing it is at the URL |
| 213 | `http://www.unicode.org/Public/UNIDATA/UnicodeData.txt'." | 213 | `https://www.unicode.org/Public/UNIDATA/UnicodeData.txt'." |
| 214 | :group 'mule | 214 | :group 'mule |
| 215 | :version "22.1" | 215 | :version "22.1" |
| 216 | :type '(choice (const :tag "None" nil) | 216 | :type '(choice (const :tag "None" nil) |
diff --git a/lisp/dired.el b/lisp/dired.el index b4b3368a5b7..08b19a02250 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -4227,22 +4227,50 @@ format, use `\\[universal-argument] \\[dired]'.") | |||
| 4227 | "Non-nil means the Dired sort command is disabled. | 4227 | "Non-nil means the Dired sort command is disabled. |
| 4228 | The idea is to set this buffer-locally in special Dired buffers.") | 4228 | The idea is to set this buffer-locally in special Dired buffers.") |
| 4229 | 4229 | ||
| 4230 | (defcustom dired-switches-in-mode-line nil | ||
| 4231 | "How to indicate `dired-actual-switches' in mode-line. | ||
| 4232 | Possible values: | ||
| 4233 | * `nil': Indicate name-or-date sort order, if possible. | ||
| 4234 | Else show full switches. | ||
| 4235 | * `as-is': Show full switches. | ||
| 4236 | * Integer: Show only the first N chars of full switches. | ||
| 4237 | * Function: Pass `dired-actual-switches' as arg and show result." | ||
| 4238 | :group 'Dired-Plus | ||
| 4239 | :type '(choice | ||
| 4240 | (const :tag "Indicate by name or date, else full" nil) | ||
| 4241 | (const :tag "Show full switches" as-is) | ||
| 4242 | (integer :tag "Show first N chars of switches" :value 10) | ||
| 4243 | (function :tag "Format with function" :value identity))) | ||
| 4244 | |||
| 4230 | (defun dired-sort-set-mode-line () | 4245 | (defun dired-sort-set-mode-line () |
| 4231 | ;; Set mode line display according to dired-actual-switches. | 4246 | "Set mode-line according to option `dired-switches-in-mode-line'." |
| 4232 | ;; Mode line display of "by name" or "by date" guarantees the user a | ||
| 4233 | ;; match with the corresponding regexps. Non-matching switches are | ||
| 4234 | ;; shown literally. | ||
| 4235 | (when (eq major-mode 'dired-mode) | 4247 | (when (eq major-mode 'dired-mode) |
| 4236 | (setq mode-name | 4248 | (setq mode-name |
| 4237 | (let (case-fold-search) | 4249 | (let ((case-fold-search nil)) |
| 4238 | (cond ((string-match-p | 4250 | (if dired-switches-in-mode-line |
| 4239 | dired-sort-by-name-regexp dired-actual-switches) | 4251 | (concat |
| 4240 | "Dired by name") | 4252 | "Dired" |
| 4241 | ((string-match-p | 4253 | (cond ((integerp dired-switches-in-mode-line) |
| 4242 | dired-sort-by-date-regexp dired-actual-switches) | 4254 | (let* ((l1 (length dired-actual-switches)) |
| 4243 | "Dired by date") | 4255 | (xs (substring |
| 4244 | (t | 4256 | dired-actual-switches |
| 4245 | (concat "Dired " dired-actual-switches))))) | 4257 | 0 (min l1 dired-switches-in-mode-line))) |
| 4258 | (l2 (length xs))) | ||
| 4259 | (if (zerop l2) | ||
| 4260 | xs | ||
| 4261 | (concat " " xs (and (< l2 l1) "…"))))) | ||
| 4262 | ((functionp dired-switches-in-mode-line) | ||
| 4263 | (format " %s" (funcall | ||
| 4264 | dired-switches-in-mode-line | ||
| 4265 | dired-actual-switches))) | ||
| 4266 | (t (concat " " dired-actual-switches)))) | ||
| 4267 | (cond ((string-match-p dired-sort-by-name-regexp | ||
| 4268 | dired-actual-switches) | ||
| 4269 | "Dired by name") | ||
| 4270 | ((string-match-p dired-sort-by-date-regexp | ||
| 4271 | dired-actual-switches) | ||
| 4272 | "Dired by date") | ||
| 4273 | (t (concat "Dired " dired-actual-switches)))))) | ||
| 4246 | (force-mode-line-update))) | 4274 | (force-mode-line-update))) |
| 4247 | 4275 | ||
| 4248 | (define-obsolete-function-alias 'dired-sort-set-modeline | 4276 | (define-obsolete-function-alias 'dired-sort-set-modeline |
diff --git a/lisp/doc-view.el b/lisp/doc-view.el index 60f6d6350c9..8aaf38aab21 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el | |||
| @@ -24,8 +24,8 @@ | |||
| 24 | 24 | ||
| 25 | ;; doc-view.el requires GNU Emacs 22.1 or newer. You also need Ghostscript, | 25 | ;; doc-view.el requires GNU Emacs 22.1 or newer. You also need Ghostscript, |
| 26 | ;; `dvipdf' (comes with Ghostscript) or `dvipdfm' (comes with teTeX or TeXLive) | 26 | ;; `dvipdf' (comes with Ghostscript) or `dvipdfm' (comes with teTeX or TeXLive) |
| 27 | ;; and `pdftotext', which comes with xpdf (http://www.foolabs.com/xpdf/) or | 27 | ;; and `pdftotext', which comes with xpdf (https://www.foolabs.com/xpdf/) or |
| 28 | ;; poppler (http://poppler.freedesktop.org/). | 28 | ;; poppler (https://poppler.freedesktop.org/). |
| 29 | 29 | ||
| 30 | ;;; Commentary: | 30 | ;;; Commentary: |
| 31 | 31 | ||
| @@ -514,7 +514,7 @@ Typically \"page-%s.png\".") | |||
| 514 | ;; Toggle between text and image display or editing | 514 | ;; Toggle between text and image display or editing |
| 515 | (define-key map (kbd "C-c C-c") 'doc-view-toggle-display) | 515 | (define-key map (kbd "C-c C-c") 'doc-view-toggle-display) |
| 516 | map) | 516 | map) |
| 517 | "Keymap used by `doc-minor-view-mode'.") | 517 | "Keymap used by `doc-view-minor-mode'.") |
| 518 | 518 | ||
| 519 | ;;;; Navigation Commands | 519 | ;;;; Navigation Commands |
| 520 | 520 | ||
diff --git a/lisp/double.el b/lisp/double.el index 639d041a1dc..8e5090034cf 100644 --- a/lisp/double.el +++ b/lisp/double.el | |||
| @@ -99,7 +99,7 @@ but not `C-u X' or `ESC X' since the X is not the prefix key." | |||
| 99 | (load-library "isearch")) | 99 | (load-library "isearch")) |
| 100 | 100 | ||
| 101 | (define-key isearch-mode-map [ignore] | 101 | (define-key isearch-mode-map [ignore] |
| 102 | (function (lambda () (interactive) (isearch-update)))) | 102 | (lambda () (interactive) (isearch-update))) |
| 103 | 103 | ||
| 104 | (defun double-translate-key (prompt) | 104 | (defun double-translate-key (prompt) |
| 105 | ;; Translate input events using double map. | 105 | ;; Translate input events using double map. |
diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el index 7285021676c..079fce88def 100644 --- a/lisp/ebuff-menu.el +++ b/lisp/ebuff-menu.el | |||
| @@ -162,6 +162,7 @@ Run hooks in `electric-buffer-menu-mode-hook' on entry. | |||
| 162 | (message ""))) | 162 | (message ""))) |
| 163 | (when select | 163 | (when select |
| 164 | (set-buffer buffer) | 164 | (set-buffer buffer) |
| 165 | (goto-char select) | ||
| 165 | (let ((opoint (point-marker))) | 166 | (let ((opoint (point-marker))) |
| 166 | (Buffer-menu-execute) | 167 | (Buffer-menu-execute) |
| 167 | (goto-char (point-min)) | 168 | (goto-char (point-min)) |
diff --git a/lisp/ehelp.el b/lisp/ehelp.el index ad39116c680..81373202c51 100644 --- a/lisp/ehelp.el +++ b/lisp/ehelp.el | |||
| @@ -219,7 +219,7 @@ BUFFER is put back into its original major mode." | |||
| 219 | 'electric-help-retain)))) | 219 | 'electric-help-retain)))) |
| 220 | (Electric-command-loop | 220 | (Electric-command-loop |
| 221 | 'exit | 221 | 'exit |
| 222 | (function (lambda () | 222 | (lambda () |
| 223 | (sit-for 0) ;necessary if last command was end-of-buffer or | 223 | (sit-for 0) ;necessary if last command was end-of-buffer or |
| 224 | ;beginning-of-buffer - otherwise pos-visible-in-window-p | 224 | ;beginning-of-buffer - otherwise pos-visible-in-window-p |
| 225 | ;will yield a wrong result. | 225 | ;will yield a wrong result. |
| @@ -241,7 +241,7 @@ BUFFER is put back into its original major mode." | |||
| 241 | (t | 241 | (t |
| 242 | (cond (standard "Press SPC to scroll, DEL to scroll back, q to exit, r to retain ") | 242 | (cond (standard "Press SPC to scroll, DEL to scroll back, q to exit, r to retain ") |
| 243 | (both) | 243 | (both) |
| 244 | (t (setq both (substitute-command-keys "Press \\[scroll-up] to scroll, \\[scroll-down] to scroll back, \\[electric-help-exit] to exit, \\[electric-help-retain] to retain "))))))))) | 244 | (t (setq both (substitute-command-keys "Press \\[scroll-up] to scroll, \\[scroll-down] to scroll back, \\[electric-help-exit] to exit, \\[electric-help-retain] to retain ")))))))) |
| 245 | t)))) | 245 | t)))) |
| 246 | 246 | ||
| 247 | 247 | ||
diff --git a/lisp/electric.el b/lisp/electric.el index 7038b91c26d..50ddf525ca4 100644 --- a/lisp/electric.el +++ b/lisp/electric.el | |||
| @@ -424,7 +424,7 @@ If multiple rules match, only first one is executed.") | |||
| 424 | ;; | 424 | ;; |
| 425 | ;; FIXME: when `newline'ing, we exceptionally | 425 | ;; FIXME: when `newline'ing, we exceptionally |
| 426 | ;; prevent a specific behavior of | 426 | ;; prevent a specific behavior of |
| 427 | ;; `eletric-pair-mode', that of opening an extra | 427 | ;; `electric-pair-mode', that of opening an extra |
| 428 | ;; newline between newly inserted matching paris. | 428 | ;; newline between newly inserted matching paris. |
| 429 | ;; In theory that behavior should be provided by | 429 | ;; In theory that behavior should be provided by |
| 430 | ;; `electric-layout-mode' instead, which should be | 430 | ;; `electric-layout-mode' instead, which should be |
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 5ee0a14273f..2c63b44cd16 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el | |||
| @@ -256,13 +256,12 @@ expression, in which case we want to handle forms differently." | |||
| 256 | ;; the doc-string in FORM. | 256 | ;; the doc-string in FORM. |
| 257 | ;; Those properties are now set in lisp-mode.el. | 257 | ;; Those properties are now set in lisp-mode.el. |
| 258 | 258 | ||
| 259 | (defun autoload-find-generated-file () | 259 | (defun autoload-find-generated-file (file) |
| 260 | "Visit the autoload file for the current buffer, and return its buffer." | 260 | "Visit the autoload file for the current buffer, and return its buffer." |
| 261 | (let ((enable-local-variables :safe) | 261 | (let ((enable-local-variables :safe) |
| 262 | (enable-local-eval nil) | 262 | (enable-local-eval nil) |
| 263 | (find-file-hook nil) | 263 | (find-file-hook nil) |
| 264 | (delay-mode-hooks t) | 264 | (delay-mode-hooks t)) |
| 265 | (file (autoload-generated-file))) | ||
| 266 | ;; We used to use `raw-text' to read this file, but this causes | 265 | ;; We used to use `raw-text' to read this file, but this causes |
| 267 | ;; problems when the file contains non-ASCII characters. | 266 | ;; problems when the file contains non-ASCII characters. |
| 268 | (with-current-buffer (find-file-noselect | 267 | (with-current-buffer (find-file-noselect |
| @@ -270,18 +269,20 @@ expression, in which case we want to handle forms differently." | |||
| 270 | (if (zerop (buffer-size)) (insert (autoload-rubric file nil t))) | 269 | (if (zerop (buffer-size)) (insert (autoload-rubric file nil t))) |
| 271 | (current-buffer)))) | 270 | (current-buffer)))) |
| 272 | 271 | ||
| 273 | (defun autoload-generated-file () | 272 | (defun autoload-generated-file (outfile) |
| 274 | "Return `generated-autoload-file' as an absolute name. | 273 | "Return OUTFILE as an absolute name. |
| 275 | If local to the current buffer, expand using the default directory; | 274 | If `generated-autoload-file' is bound locally in the current |
| 276 | otherwise, using `source-directory'/lisp." | 275 | buffer, that is used instead, and it is expanded using the |
| 277 | (expand-file-name generated-autoload-file | 276 | default directory; otherwise, `source-directory'/lisp is used." |
| 277 | (expand-file-name (if (local-variable-p 'generated-autoload-file) | ||
| 278 | generated-autoload-file | ||
| 279 | outfile) | ||
| 278 | ;; File-local settings of generated-autoload-file should | 280 | ;; File-local settings of generated-autoload-file should |
| 279 | ;; be interpreted relative to the file's location, | 281 | ;; be interpreted relative to the file's location, |
| 280 | ;; of course. | 282 | ;; of course. |
| 281 | (if (not (local-variable-p 'generated-autoload-file)) | 283 | (if (not (local-variable-p 'generated-autoload-file)) |
| 282 | (expand-file-name "lisp" source-directory)))) | 284 | (expand-file-name "lisp" source-directory)))) |
| 283 | 285 | ||
| 284 | |||
| 285 | (defun autoload-read-section-header () | 286 | (defun autoload-read-section-header () |
| 286 | "Read a section header form. | 287 | "Read a section header form. |
| 287 | Since continuation lines have been marked as comments, | 288 | Since continuation lines have been marked as comments, |
| @@ -456,13 +457,12 @@ which lists the file name and which functions are in it, etc." | |||
| 456 | (defvar no-update-autoloads nil | 457 | (defvar no-update-autoloads nil |
| 457 | "File local variable to prevent scanning this file for autoload cookies.") | 458 | "File local variable to prevent scanning this file for autoload cookies.") |
| 458 | 459 | ||
| 459 | (defun autoload-file-load-name (file) | 460 | (defun autoload-file-load-name (file outfile) |
| 460 | "Compute the name that will be used to load FILE." | 461 | "Compute the name that will be used to load FILE." |
| 461 | ;; OUTFILE should be the name of the global loaddefs.el file, which | 462 | ;; OUTFILE should be the name of the global loaddefs.el file, which |
| 462 | ;; is expected to be at the root directory of the files we're | 463 | ;; is expected to be at the root directory of the files we're |
| 463 | ;; scanning for autoloads and will be in the `load-path'. | 464 | ;; scanning for autoloads and will be in the `load-path'. |
| 464 | (let* ((outfile (default-value 'generated-autoload-file)) | 465 | (let* ((name (file-relative-name file (file-name-directory outfile))) |
| 465 | (name (file-relative-name file (file-name-directory outfile))) | ||
| 466 | (names '()) | 466 | (names '()) |
| 467 | (dir (file-name-directory outfile))) | 467 | (dir (file-name-directory outfile))) |
| 468 | ;; If `name' has directory components, only keep the | 468 | ;; If `name' has directory components, only keep the |
| @@ -492,8 +492,9 @@ If FILE is being visited in a buffer, the contents of the buffer | |||
| 492 | are used. | 492 | are used. |
| 493 | Return non-nil in the case where no autoloads were added at point." | 493 | Return non-nil in the case where no autoloads were added at point." |
| 494 | (interactive "fGenerate autoloads for file: ") | 494 | (interactive "fGenerate autoloads for file: ") |
| 495 | (let ((generated-autoload-file buffer-file-name)) | 495 | (let ((autoload-modified-buffers nil)) |
| 496 | (autoload-generate-file-autoloads file (current-buffer)))) | 496 | (autoload-generate-file-autoloads file (current-buffer) buffer-file-name) |
| 497 | autoload-modified-buffers)) | ||
| 497 | 498 | ||
| 498 | (defvar autoload-compute-prefixes t | 499 | (defvar autoload-compute-prefixes t |
| 499 | "If non-nil, autoload will add code to register the prefixes used in a file. | 500 | "If non-nil, autoload will add code to register the prefixes used in a file. |
| @@ -610,7 +611,7 @@ Don't try to split prefixes that are already longer than that.") | |||
| 610 | `(register-definition-prefixes ,file ',(sort (delq nil strings) | 611 | `(register-definition-prefixes ,file ',(sort (delq nil strings) |
| 611 | 'string<)))))) | 612 | 'string<)))))) |
| 612 | 613 | ||
| 613 | (defun autoload--setup-output (otherbuf outbuf absfile load-name) | 614 | (defun autoload--setup-output (otherbuf outbuf absfile load-name output-file) |
| 614 | (let ((outbuf | 615 | (let ((outbuf |
| 615 | (or (if otherbuf | 616 | (or (if otherbuf |
| 616 | ;; A file-local setting of | 617 | ;; A file-local setting of |
| @@ -618,7 +619,7 @@ Don't try to split prefixes that are already longer than that.") | |||
| 618 | ;; should ignore OUTBUF. | 619 | ;; should ignore OUTBUF. |
| 619 | nil | 620 | nil |
| 620 | outbuf) | 621 | outbuf) |
| 621 | (autoload-find-destination absfile load-name) | 622 | (autoload-find-destination absfile load-name output-file) |
| 622 | ;; The file has autoload cookies, but they're | 623 | ;; The file has autoload cookies, but they're |
| 623 | ;; already up-to-date. If OUTFILE is nil, the | 624 | ;; already up-to-date. If OUTFILE is nil, the |
| 624 | ;; entries are in the expected OUTBUF, | 625 | ;; entries are in the expected OUTBUF, |
| @@ -675,23 +676,16 @@ Don't try to split prefixes that are already longer than that.") | |||
| 675 | More specifically those definitions will not be considered for the | 676 | More specifically those definitions will not be considered for the |
| 676 | `register-definition-prefixes' call.") | 677 | `register-definition-prefixes' call.") |
| 677 | 678 | ||
| 678 | ;; When called from `generate-file-autoloads' we should ignore | ||
| 679 | ;; `generated-autoload-file' altogether. When called from | ||
| 680 | ;; `update-file-autoloads' we don't know `outbuf'. And when called from | ||
| 681 | ;; `update-directory-autoloads' it's in between: we know the default | ||
| 682 | ;; `outbuf' but we should obey any file-local setting of | ||
| 683 | ;; `generated-autoload-file'. | ||
| 684 | (defun autoload-generate-file-autoloads (file &optional outbuf outfile) | 679 | (defun autoload-generate-file-autoloads (file &optional outbuf outfile) |
| 685 | "Insert an autoload section for FILE in the appropriate buffer. | 680 | "Insert an autoload section for FILE in the appropriate buffer. |
| 686 | Autoloads are generated for defuns and defmacros in FILE | 681 | Autoloads are generated for defuns and defmacros in FILE |
| 687 | marked by `generate-autoload-cookie' (which see). | 682 | marked by `generate-autoload-cookie' (which see). |
| 683 | |||
| 688 | If FILE is being visited in a buffer, the contents of the buffer are used. | 684 | If FILE is being visited in a buffer, the contents of the buffer are used. |
| 689 | OUTBUF is the buffer in which the autoload statements should be inserted. | 685 | OUTBUF is the buffer in which the autoload statements should be inserted. |
| 690 | If OUTBUF is nil, it will be determined by `autoload-generated-file'. | ||
| 691 | 686 | ||
| 692 | If provided, OUTFILE is expected to be the file name of OUTBUF. | 687 | If OUTBUF is nil, the output will go to OUTFILE, unless there's a |
| 693 | If OUTFILE is non-nil and FILE specifies a `generated-autoload-file' | 688 | buffer-local setting of `generated-autoload-file' in FILE. |
| 694 | different from OUTFILE, then OUTBUF is ignored. | ||
| 695 | 689 | ||
| 696 | Return non-nil if and only if FILE adds no autoloads to OUTFILE | 690 | Return non-nil if and only if FILE adds no autoloads to OUTFILE |
| 697 | \(or OUTBUF if OUTFILE is nil). The actual return value is | 691 | \(or OUTBUF if OUTFILE is nil). The actual return value is |
| @@ -719,16 +713,19 @@ FILE's modification time." | |||
| 719 | (setq load-name | 713 | (setq load-name |
| 720 | (if (stringp generated-autoload-load-name) | 714 | (if (stringp generated-autoload-load-name) |
| 721 | generated-autoload-load-name | 715 | generated-autoload-load-name |
| 722 | (autoload-file-load-name absfile))) | 716 | (autoload-file-load-name absfile outfile))) |
| 723 | ;; FIXME? Comparing file-names for equality with just equal | 717 | ;; FIXME? Comparing file-names for equality with just equal |
| 724 | ;; is fragile, eg if one has an automounter prefix and one | 718 | ;; is fragile, eg if one has an automounter prefix and one |
| 725 | ;; does not, but both refer to the same physical file. | 719 | ;; does not, but both refer to the same physical file. |
| 726 | (when (and outfile | 720 | (when (and outfile |
| 721 | (not outbuf) | ||
| 727 | (not | 722 | (not |
| 728 | (if (memq system-type '(ms-dos windows-nt)) | 723 | (if (memq system-type '(ms-dos windows-nt)) |
| 729 | (equal (downcase outfile) | 724 | (equal (downcase outfile) |
| 730 | (downcase (autoload-generated-file))) | 725 | (downcase (autoload-generated-file |
| 731 | (equal outfile (autoload-generated-file))))) | 726 | outfile))) |
| 727 | (equal outfile (autoload-generated-file | ||
| 728 | outfile))))) | ||
| 732 | (setq otherbuf t)) | 729 | (setq otherbuf t)) |
| 733 | (save-excursion | 730 | (save-excursion |
| 734 | (save-restriction | 731 | (save-restriction |
| @@ -742,7 +739,8 @@ FILE's modification time." | |||
| 742 | (file-name-sans-extension | 739 | (file-name-sans-extension |
| 743 | (file-name-nondirectory file)))) | 740 | (file-name-nondirectory file)))) |
| 744 | (setq output-start (autoload--setup-output | 741 | (setq output-start (autoload--setup-output |
| 745 | otherbuf outbuf absfile load-name)) | 742 | otherbuf outbuf absfile |
| 743 | load-name outfile)) | ||
| 746 | (let ((standard-output (marker-buffer output-start)) | 744 | (let ((standard-output (marker-buffer output-start)) |
| 747 | (print-quoted t)) | 745 | (print-quoted t)) |
| 748 | (princ `(push (purecopy | 746 | (princ `(push (purecopy |
| @@ -760,7 +758,8 @@ FILE's modification time." | |||
| 760 | ;; If not done yet, figure out where to insert this text. | 758 | ;; If not done yet, figure out where to insert this text. |
| 761 | (unless output-start | 759 | (unless output-start |
| 762 | (setq output-start (autoload--setup-output | 760 | (setq output-start (autoload--setup-output |
| 763 | otherbuf outbuf absfile load-name))) | 761 | otherbuf outbuf absfile |
| 762 | load-name outfile))) | ||
| 764 | (autoload--print-cookie-text output-start load-name file)) | 763 | (autoload--print-cookie-text output-start load-name file)) |
| 765 | ((= (following-char) ?\;) | 764 | ((= (following-char) ?\;) |
| 766 | ;; Don't read the comment. | 765 | ;; Don't read the comment. |
| @@ -791,7 +790,7 @@ FILE's modification time." | |||
| 791 | ((not otherbuf) | 790 | ((not otherbuf) |
| 792 | (unless output-start | 791 | (unless output-start |
| 793 | (setq output-start (autoload--setup-output | 792 | (setq output-start (autoload--setup-output |
| 794 | nil outbuf absfile load-name))) | 793 | nil outbuf absfile load-name outfile))) |
| 795 | (let ((autoload-print-form-outbuf | 794 | (let ((autoload-print-form-outbuf |
| 796 | (marker-buffer output-start))) | 795 | (marker-buffer output-start))) |
| 797 | (autoload-print-form form))) | 796 | (autoload-print-form form))) |
| @@ -803,9 +802,8 @@ FILE's modification time." | |||
| 803 | ;; then passing otherbuf=nil is enough, but if | 802 | ;; then passing otherbuf=nil is enough, but if |
| 804 | ;; outbuf is nil, that won't cut it, so we | 803 | ;; outbuf is nil, that won't cut it, so we |
| 805 | ;; locally bind generated-autoload-file. | 804 | ;; locally bind generated-autoload-file. |
| 806 | (let ((generated-autoload-file | 805 | (autoload--setup-output nil outbuf absfile load-name |
| 807 | (default-value 'generated-autoload-file))) | 806 | outfile)) |
| 808 | (autoload--setup-output nil outbuf absfile load-name))) | ||
| 809 | (autoload-print-form-outbuf | 807 | (autoload-print-form-outbuf |
| 810 | (marker-buffer other-output-start))) | 808 | (marker-buffer other-output-start))) |
| 811 | (autoload-print-form form) | 809 | (autoload-print-form form) |
| @@ -927,19 +925,23 @@ Return FILE if there was no autoload cookie in it, else nil." | |||
| 927 | (interactive (list (read-file-name "Update autoloads for file: ") | 925 | (interactive (list (read-file-name "Update autoloads for file: ") |
| 928 | current-prefix-arg | 926 | current-prefix-arg |
| 929 | (read-file-name "Write autoload definitions to file: "))) | 927 | (read-file-name "Write autoload definitions to file: "))) |
| 930 | (let* ((generated-autoload-file (or outfile generated-autoload-file)) | 928 | (setq outfile (or outfile generated-autoload-file)) |
| 931 | (autoload-modified-buffers nil) | 929 | (let* ((autoload-modified-buffers nil) |
| 932 | ;; We need this only if the output file handles more than one input. | 930 | ;; We need this only if the output file handles more than one input. |
| 933 | ;; See https://debbugs.gnu.org/22213#38 and subsequent. | 931 | ;; See https://debbugs.gnu.org/22213#38 and subsequent. |
| 934 | (autoload-timestamps t) | 932 | (autoload-timestamps t) |
| 935 | (no-autoloads (autoload-generate-file-autoloads file))) | 933 | (no-autoloads (autoload-generate-file-autoloads |
| 934 | file nil | ||
| 935 | (if (local-variable-p 'generated-autoload-file) | ||
| 936 | generated-autoload-file | ||
| 937 | outfile)))) | ||
| 936 | (if autoload-modified-buffers | 938 | (if autoload-modified-buffers |
| 937 | (if save-after (autoload-save-buffers)) | 939 | (if save-after (autoload-save-buffers)) |
| 938 | (if (called-interactively-p 'interactive) | 940 | (if (called-interactively-p 'interactive) |
| 939 | (message "Autoload section for %s is up to date." file))) | 941 | (message "Autoload section for %s is up to date." file))) |
| 940 | (if no-autoloads file))) | 942 | (if no-autoloads file))) |
| 941 | 943 | ||
| 942 | (defun autoload-find-destination (file load-name) | 944 | (defun autoload-find-destination (file load-name output-file) |
| 943 | "Find the destination point of the current buffer's autoloads. | 945 | "Find the destination point of the current buffer's autoloads. |
| 944 | FILE is the file name of the current buffer. | 946 | FILE is the file name of the current buffer. |
| 945 | LOAD-NAME is the name as it appears in the output. | 947 | LOAD-NAME is the name as it appears in the output. |
| @@ -949,12 +951,12 @@ removes any prior now out-of-date autoload entries." | |||
| 949 | (catch 'up-to-date | 951 | (catch 'up-to-date |
| 950 | (let* ((buf (current-buffer)) | 952 | (let* ((buf (current-buffer)) |
| 951 | (existing-buffer (if buffer-file-name buf)) | 953 | (existing-buffer (if buffer-file-name buf)) |
| 952 | (output-file (autoload-generated-file)) | 954 | (output-file (autoload-generated-file output-file)) |
| 953 | (output-time (if (file-exists-p output-file) | 955 | (output-time (if (file-exists-p output-file) |
| 954 | (file-attribute-modification-time | 956 | (file-attribute-modification-time |
| 955 | (file-attributes output-file)))) | 957 | (file-attributes output-file)))) |
| 956 | (found nil)) | 958 | (found nil)) |
| 957 | (with-current-buffer (autoload-find-generated-file) | 959 | (with-current-buffer (autoload-find-generated-file output-file) |
| 958 | ;; This is to make generated-autoload-file have Unix EOLs, so | 960 | ;; This is to make generated-autoload-file have Unix EOLs, so |
| 959 | ;; that it is portable to all platforms. | 961 | ;; that it is portable to all platforms. |
| 960 | (or (eq 0 (coding-system-eol-type buffer-file-coding-system)) | 962 | (or (eq 0 (coding-system-eol-type buffer-file-coding-system)) |
| @@ -1035,12 +1037,31 @@ The function does NOT recursively descend into subdirectories of the | |||
| 1035 | directory or directories specified. | 1037 | directory or directories specified. |
| 1036 | 1038 | ||
| 1037 | In an interactive call, prompt for a default output file for the | 1039 | In an interactive call, prompt for a default output file for the |
| 1038 | autoload definitions, and temporarily bind the variable | 1040 | autoload definitions. When called from Lisp, use the existing |
| 1039 | `generated-autoload-file' to this value. When called from Lisp, | 1041 | value of `generated-autoload-file'. If any Lisp file binds |
| 1040 | use the existing value of `generated-autoload-file'. If any Lisp | 1042 | `generated-autoload-file' as a file-local variable, write its |
| 1041 | file binds `generated-autoload-file' as a file-local variable, | 1043 | autoloads into the specified file instead." |
| 1042 | write its autoloads into the specified file instead." | 1044 | (declare (obsolete make-directory-autoloads "28.1")) |
| 1043 | (interactive "DUpdate autoloads from directory: ") | 1045 | (interactive "DUpdate autoloads from directory: ") |
| 1046 | (make-directory-autoloads | ||
| 1047 | dirs | ||
| 1048 | (if (called-interactively-p 'interactive) | ||
| 1049 | (read-file-name "Write autoload definitions to file: ") | ||
| 1050 | generated-autoload-file))) | ||
| 1051 | |||
| 1052 | ;;;###autoload | ||
| 1053 | (defun make-directory-autoloads (dir output-file) | ||
| 1054 | "Update autoload definitions for Lisp files in the directories DIRS. | ||
| 1055 | DIR can be either a single directory or a list of | ||
| 1056 | directories. (The latter usage is discouraged.) | ||
| 1057 | |||
| 1058 | The autoloads will be written to OUTPUT-FILE. If any Lisp file | ||
| 1059 | binds `generated-autoload-file' as a file-local variable, write | ||
| 1060 | its autoloads into the specified file instead. | ||
| 1061 | |||
| 1062 | The function does NOT recursively descend into subdirectories of the | ||
| 1063 | directory or directories specified." | ||
| 1064 | (interactive "DUpdate autoloads from directory: \nFWrite to file: ") | ||
| 1044 | (let* ((files-re (let ((tmp nil)) | 1065 | (let* ((files-re (let ((tmp nil)) |
| 1045 | (dolist (suf (get-load-suffixes)) | 1066 | (dolist (suf (get-load-suffixes)) |
| 1046 | ;; We don't use module-file-suffix below because | 1067 | ;; We don't use module-file-suffix below because |
| @@ -1051,10 +1072,10 @@ write its autoloads into the specified file instead." | |||
| 1051 | (push suf tmp))) | 1072 | (push suf tmp))) |
| 1052 | (concat "\\`[^=.].*" (regexp-opt tmp t) "\\'"))) | 1073 | (concat "\\`[^=.].*" (regexp-opt tmp t) "\\'"))) |
| 1053 | (files (apply #'nconc | 1074 | (files (apply #'nconc |
| 1054 | (mapcar (lambda (dir) | 1075 | (mapcar (lambda (d) |
| 1055 | (directory-files (expand-file-name dir) | 1076 | (directory-files (expand-file-name d) |
| 1056 | t files-re)) | 1077 | t files-re)) |
| 1057 | dirs))) | 1078 | (if (consp dir) dir (list dir))))) |
| 1058 | (done ()) ;Files processed; to remove duplicates. | 1079 | (done ()) ;Files processed; to remove duplicates. |
| 1059 | (changed nil) ;Non-nil if some change occurred. | 1080 | (changed nil) ;Non-nil if some change occurred. |
| 1060 | (last-time) | 1081 | (last-time) |
| @@ -1062,16 +1083,12 @@ write its autoloads into the specified file instead." | |||
| 1062 | ;; files because of file-local autoload-generated-file settings. | 1083 | ;; files because of file-local autoload-generated-file settings. |
| 1063 | (no-autoloads nil) | 1084 | (no-autoloads nil) |
| 1064 | (autoload-modified-buffers nil) | 1085 | (autoload-modified-buffers nil) |
| 1065 | (generated-autoload-file | ||
| 1066 | (if (called-interactively-p 'interactive) | ||
| 1067 | (read-file-name "Write autoload definitions to file: ") | ||
| 1068 | generated-autoload-file)) | ||
| 1069 | (output-time | 1086 | (output-time |
| 1070 | (if (file-exists-p generated-autoload-file) | 1087 | (and (file-exists-p output-file) |
| 1071 | (file-attribute-modification-time | 1088 | (file-attribute-modification-time |
| 1072 | (file-attributes generated-autoload-file))))) | 1089 | (file-attributes output-file))))) |
| 1073 | 1090 | ||
| 1074 | (with-current-buffer (autoload-find-generated-file) | 1091 | (with-current-buffer (autoload-find-generated-file output-file) |
| 1075 | (save-excursion | 1092 | (save-excursion |
| 1076 | ;; Canonicalize file names and remove the autoload file itself. | 1093 | ;; Canonicalize file names and remove the autoload file itself. |
| 1077 | (setq files (delete (file-relative-name buffer-file-name) | 1094 | (setq files (delete (file-relative-name buffer-file-name) |
| @@ -1128,8 +1145,7 @@ write its autoloads into the specified file instead." | |||
| 1128 | (progress (make-progress-reporter | 1145 | (progress (make-progress-reporter |
| 1129 | (byte-compile-info | 1146 | (byte-compile-info |
| 1130 | (concat "Scraping files for " | 1147 | (concat "Scraping files for " |
| 1131 | (file-relative-name | 1148 | (file-relative-name output-file))) |
| 1132 | generated-autoload-file))) | ||
| 1133 | 0 (length files) nil 10)) | 1149 | 0 (length files) nil 10)) |
| 1134 | (file-count 0) | 1150 | (file-count 0) |
| 1135 | file-time) | 1151 | file-time) |
| @@ -1207,7 +1223,7 @@ should be non-nil)." | |||
| 1207 | (let ((args command-line-args-left)) | 1223 | (let ((args command-line-args-left)) |
| 1208 | (batch-update-autoloads--summary args) | 1224 | (batch-update-autoloads--summary args) |
| 1209 | (setq command-line-args-left nil) | 1225 | (setq command-line-args-left nil) |
| 1210 | (apply #'update-directory-autoloads args))) | 1226 | (make-directory-autoloads args generated-autoload-file))) |
| 1211 | 1227 | ||
| 1212 | (provide 'autoload) | 1228 | (provide 'autoload) |
| 1213 | 1229 | ||
diff --git a/lisp/emacs-lisp/backtrace.el b/lisp/emacs-lisp/backtrace.el index 37dad8db162..5874ba72fcd 100644 --- a/lisp/emacs-lisp/backtrace.el +++ b/lisp/emacs-lisp/backtrace.el | |||
| @@ -922,11 +922,15 @@ Output stream used is value of `standard-output'." | |||
| 922 | (princ (backtrace-to-string (backtrace-get-frames 'backtrace))) | 922 | (princ (backtrace-to-string (backtrace-get-frames 'backtrace))) |
| 923 | nil) | 923 | nil) |
| 924 | 924 | ||
| 925 | (defun backtrace-to-string(&optional frames) | 925 | (defun backtrace-to-string (&optional frames) |
| 926 | "Format FRAMES, a list of `backtrace-frame' objects, for output. | 926 | "Format FRAMES, a list of `backtrace-frame' objects, for output. |
| 927 | Return the result as a string. If FRAMES is nil, use all | 927 | Return the result as a string. If FRAMES is nil, use all |
| 928 | function calls currently active." | 928 | function calls currently active." |
| 929 | (unless frames (setq frames (backtrace-get-frames 'backtrace-to-string))) | 929 | (substring-no-properties |
| 930 | (backtrace--to-string | ||
| 931 | (or frames (backtrace-get-frames 'backtrace-to-string))))) | ||
| 932 | |||
| 933 | (defun backtrace--to-string (frames) | ||
| 930 | (let ((backtrace-fontify nil)) | 934 | (let ((backtrace-fontify nil)) |
| 931 | (with-temp-buffer | 935 | (with-temp-buffer |
| 932 | (backtrace-mode) | 936 | (backtrace-mode) |
| @@ -934,8 +938,7 @@ function calls currently active." | |||
| 934 | backtrace-frames frames | 938 | backtrace-frames frames |
| 935 | backtrace-print-function #'cl-prin1) | 939 | backtrace-print-function #'cl-prin1) |
| 936 | (backtrace-print) | 940 | (backtrace-print) |
| 937 | (substring-no-properties (filter-buffer-substring (point-min) | 941 | (filter-buffer-substring (point-min) (point-max))))) |
| 938 | (point-max)))))) | ||
| 939 | 942 | ||
| 940 | (provide 'backtrace) | 943 | (provide 'backtrace) |
| 941 | 944 | ||
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index b0e3158df32..b1e27a4dbda 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -3255,7 +3255,8 @@ for symbols generated by the byte compiler itself." | |||
| 3255 | (t ".")))) | 3255 | (t ".")))) |
| 3256 | (if (eq (car-safe (symbol-function (car form))) 'macro) | 3256 | (if (eq (car-safe (symbol-function (car form))) 'macro) |
| 3257 | (byte-compile-report-error | 3257 | (byte-compile-report-error |
| 3258 | (format "Forgot to expand macro %s in %S" (car form) form))) | 3258 | (format "`%s' defined after use in %S (missing `require' of a library file?)" |
| 3259 | (car form) form))) | ||
| 3259 | (if (and handler | 3260 | (if (and handler |
| 3260 | ;; Make sure that function exists. | 3261 | ;; Make sure that function exists. |
| 3261 | (and (functionp handler) | 3262 | (and (functionp handler) |
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 8571cca1061..86d99a9c6de 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -2999,7 +2999,7 @@ Supported keywords for slots are: | |||
| 2999 | constrs)) | 2999 | constrs)) |
| 3000 | (pcase-dolist (`(,cname ,args ,doc) constrs) | 3000 | (pcase-dolist (`(,cname ,args ,doc) constrs) |
| 3001 | (let* ((anames (cl--arglist-args args)) | 3001 | (let* ((anames (cl--arglist-args args)) |
| 3002 | (make (cl-mapcar (function (lambda (s d) (if (memq s anames) s d))) | 3002 | (make (cl-mapcar (lambda (s d) (if (memq s anames) s d)) |
| 3003 | slots defaults)) | 3003 | slots defaults)) |
| 3004 | ;; `cl-defsubst' is fundamentally broken: it substitutes | 3004 | ;; `cl-defsubst' is fundamentally broken: it substitutes |
| 3005 | ;; its arguments into the body's `sexp' much too naively | 3005 | ;; its arguments into the body's `sexp' much too naively |
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 1bdb2a3d8ca..0e4135b253e 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el | |||
| @@ -320,6 +320,17 @@ the debugger will not be entered." | |||
| 320 | (message "Error in debug printer: %S" err) | 320 | (message "Error in debug printer: %S" err) |
| 321 | (prin1 obj stream)))) | 321 | (prin1 obj stream)))) |
| 322 | 322 | ||
| 323 | (make-obsolete 'debugger-insert-backtrace | ||
| 324 | "use a `backtrace-mode' buffer or `backtrace-to-string'." | ||
| 325 | "Emacs 27.1") | ||
| 326 | |||
| 327 | (defun debugger-insert-backtrace (frames do-xrefs) | ||
| 328 | "Format and insert the backtrace FRAMES at point. | ||
| 329 | Make functions into cross-reference buttons if DO-XREFS is non-nil." | ||
| 330 | (insert (if do-xrefs | ||
| 331 | (backtrace--to-string frames) | ||
| 332 | (backtrace-to-string frames)))) | ||
| 333 | |||
| 323 | (defun debugger-setup-buffer (args) | 334 | (defun debugger-setup-buffer (args) |
| 324 | "Initialize the `*Backtrace*' buffer for entry to the debugger. | 335 | "Initialize the `*Backtrace*' buffer for entry to the debugger. |
| 325 | That buffer should be current already and in debugger-mode." | 336 | That buffer should be current already and in debugger-mode." |
| @@ -527,6 +538,9 @@ The environment used is the one when entering the activation frame at point." | |||
| 527 | (let ((str (eval-expression-print-format val))) | 538 | (let ((str (eval-expression-print-format val))) |
| 528 | (if str (princ str t)))))))) | 539 | (if str (princ str t)))))))) |
| 529 | 540 | ||
| 541 | (define-obsolete-function-alias 'debugger-toggle-locals | ||
| 542 | 'backtrace-toggle-locals "28.1") | ||
| 543 | |||
| 530 | 544 | ||
| 531 | (defvar debugger-mode-map | 545 | (defvar debugger-mode-map |
| 532 | (let ((map (make-keymap))) | 546 | (let ((map (make-keymap))) |
| @@ -621,6 +635,9 @@ Complete list of commands: | |||
| 621 | (buffer-substring (line-beginning-position 0) | 635 | (buffer-substring (line-beginning-position 0) |
| 622 | (line-end-position 0))))) | 636 | (line-end-position 0))))) |
| 623 | 637 | ||
| 638 | (define-obsolete-function-alias 'debug-help-follow | ||
| 639 | 'backtrace-help-follow-symbol "28.1") | ||
| 640 | |||
| 624 | 641 | ||
| 625 | ;; When you change this, you may also need to change the number of | 642 | ;; When you change this, you may also need to change the number of |
| 626 | ;; frames that the debugger skips. | 643 | ;; frames that the debugger skips. |
diff --git a/lisp/emacs-lisp/eieio-base.el b/lisp/emacs-lisp/eieio-base.el index 39ad30afc5a..a484c2ff382 100644 --- a/lisp/emacs-lisp/eieio-base.el +++ b/lisp/emacs-lisp/eieio-base.el | |||
| @@ -201,7 +201,7 @@ This is used with the `object-write' method.") | |||
| 201 | "Saving this object should make backup files. | 201 | "Saving this object should make backup files. |
| 202 | Setting to nil will mean no backups are made.")) | 202 | Setting to nil will mean no backups are made.")) |
| 203 | "This special class enables persistence through save files | 203 | "This special class enables persistence through save files |
| 204 | Use the `object-save' method to write this object to disk. The save | 204 | Use the `object-write' method to write this object to disk. The save |
| 205 | format is Emacs Lisp code which calls the constructor for the saved | 205 | format is Emacs Lisp code which calls the constructor for the saved |
| 206 | object. For this reason, only slots which do not have an `:initarg' | 206 | object. For this reason, only slots which do not have an `:initarg' |
| 207 | specified will not be saved." | 207 | specified will not be saved." |
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index 3c347c0b199..ebb27e8a62c 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el | |||
| @@ -736,7 +736,7 @@ run. ARGS are the arguments to `debugger'." | |||
| 736 | ;; This means we have to limit `print-level' and | 736 | ;; This means we have to limit `print-level' and |
| 737 | ;; `print-length' when printing result objects. That | 737 | ;; `print-length' when printing result objects. That |
| 738 | ;; might not be worth while when we can also use | 738 | ;; might not be worth while when we can also use |
| 739 | ;; `ert-results-rerun-test-debugging-errors-at-point', | 739 | ;; `ert-results-rerun-test-at-point-debugging-errors', |
| 740 | ;; (i.e., when running interactively) but having the | 740 | ;; (i.e., when running interactively) but having the |
| 741 | ;; backtrace ready for printing is important for batch | 741 | ;; backtrace ready for printing is important for batch |
| 742 | ;; use. | 742 | ;; use. |
| @@ -958,7 +958,7 @@ Selectors that do not, such as (member ...), just return the | |||
| 958 | set implied by them without checking whether it is really | 958 | set implied by them without checking whether it is really |
| 959 | contained in UNIVERSE." | 959 | contained in UNIVERSE." |
| 960 | ;; This code needs to match the cases in | 960 | ;; This code needs to match the cases in |
| 961 | ;; `ert-insert-human-readable-selector'. | 961 | ;; `ert--insert-human-readable-selector'. |
| 962 | (pcase-exhaustive selector | 962 | (pcase-exhaustive selector |
| 963 | ('nil nil) | 963 | ('nil nil) |
| 964 | ('t (pcase-exhaustive universe | 964 | ('t (pcase-exhaustive universe |
diff --git a/lisp/emacs-lisp/generic.el b/lisp/emacs-lisp/generic.el index a9328a69036..3bc6d021dc8 100644 --- a/lisp/emacs-lisp/generic.el +++ b/lisp/emacs-lisp/generic.el | |||
| @@ -117,7 +117,7 @@ instead (which see).") | |||
| 117 | "Create a new generic mode MODE. | 117 | "Create a new generic mode MODE. |
| 118 | 118 | ||
| 119 | A \"generic\" mode is a simple major mode with basic support for | 119 | A \"generic\" mode is a simple major mode with basic support for |
| 120 | comment syntax and Font Lock mode, but otherwise do not have a | 120 | comment syntax and Font Lock mode, but otherwise does not have |
| 121 | any special keystrokes or functionality available. | 121 | any special keystrokes or functionality available. |
| 122 | 122 | ||
| 123 | MODE is the name of the command for the generic mode; don't quote it. | 123 | MODE is the name of the command for the generic mode; don't quote it. |
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 81e1400d222..ac1396f88df 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el | |||
| @@ -1013,7 +1013,6 @@ untar into a directory named DIR; otherwise, signal an error." | |||
| 1013 | (write-region (autoload-rubric file "package" nil) nil file nil 'silent)) | 1013 | (write-region (autoload-rubric file "package" nil) nil file nil 'silent)) |
| 1014 | file) | 1014 | file) |
| 1015 | 1015 | ||
| 1016 | (defvar generated-autoload-file) | ||
| 1017 | (defvar autoload-timestamps) | 1016 | (defvar autoload-timestamps) |
| 1018 | (defvar version-control) | 1017 | (defvar version-control) |
| 1019 | 1018 | ||
| @@ -1021,14 +1020,14 @@ untar into a directory named DIR; otherwise, signal an error." | |||
| 1021 | "Generate autoloads in PKG-DIR for package named NAME." | 1020 | "Generate autoloads in PKG-DIR for package named NAME." |
| 1022 | (let* ((auto-name (format "%s-autoloads.el" name)) | 1021 | (let* ((auto-name (format "%s-autoloads.el" name)) |
| 1023 | ;;(ignore-name (concat name "-pkg.el")) | 1022 | ;;(ignore-name (concat name "-pkg.el")) |
| 1024 | (generated-autoload-file (expand-file-name auto-name pkg-dir)) | 1023 | (output-file (expand-file-name auto-name pkg-dir)) |
| 1025 | ;; We don't need 'em, and this makes the output reproducible. | 1024 | ;; We don't need 'em, and this makes the output reproducible. |
| 1026 | (autoload-timestamps nil) | 1025 | (autoload-timestamps nil) |
| 1027 | (backup-inhibited t) | 1026 | (backup-inhibited t) |
| 1028 | (version-control 'never)) | 1027 | (version-control 'never)) |
| 1029 | (package-autoload-ensure-default-file generated-autoload-file) | 1028 | (package-autoload-ensure-default-file output-file) |
| 1030 | (update-directory-autoloads pkg-dir) | 1029 | (make-directory-autoloads pkg-dir output-file) |
| 1031 | (let ((buf (find-buffer-visiting generated-autoload-file))) | 1030 | (let ((buf (find-buffer-visiting output-file))) |
| 1032 | (when buf (kill-buffer buf))) | 1031 | (when buf (kill-buffer buf))) |
| 1033 | auto-name)) | 1032 | auto-name)) |
| 1034 | 1033 | ||
| @@ -3623,7 +3622,7 @@ This is used for `tabulated-list-format' in `package-menu-mode'." | |||
| 3623 | (string< a b)))) | 3622 | (string< a b)))) |
| 3624 | 3623 | ||
| 3625 | (defun package-menu--populate-new-package-list () | 3624 | (defun package-menu--populate-new-package-list () |
| 3626 | "Decide which packages are new in `package-archives-contents'. | 3625 | "Decide which packages are new in `package-archive-contents'. |
| 3627 | Store this list in `package-menu--new-package-list'." | 3626 | Store this list in `package-menu--new-package-list'." |
| 3628 | ;; Find which packages are new. | 3627 | ;; Find which packages are new. |
| 3629 | (when package-menu--old-archive-contents | 3628 | (when package-menu--old-archive-contents |
diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el index fbcd7b8fb8c..78ae3a8c1e5 100644 --- a/lisp/emacs-lisp/re-builder.el +++ b/lisp/emacs-lisp/re-builder.el | |||
| @@ -301,7 +301,7 @@ Except for Lisp syntax this is the same as `reb-regexp'.") | |||
| 301 | "Keymap used by the RE Builder for the subexpression mode.") | 301 | "Keymap used by the RE Builder for the subexpression mode.") |
| 302 | 302 | ||
| 303 | (defun reb-mode-common () | 303 | (defun reb-mode-common () |
| 304 | "Setup functions common to functions `reb-mode' and `reb-mode-lisp'." | 304 | "Setup functions common to functions `reb-mode' and `reb-lisp-mode'." |
| 305 | 305 | ||
| 306 | (setq reb-mode-string "" | 306 | (setq reb-mode-string "" |
| 307 | reb-valid-string "" | 307 | reb-valid-string "" |
| @@ -513,7 +513,7 @@ If SUBEXP is non-nil mark only the corresponding sub-expressions." | |||
| 513 | (reb-update-overlays subexp)) | 513 | (reb-update-overlays subexp)) |
| 514 | 514 | ||
| 515 | (defun reb-auto-update (_beg _end _lenold &optional force) | 515 | (defun reb-auto-update (_beg _end _lenold &optional force) |
| 516 | "Called from `after-update-functions' to update the display. | 516 | "Called from `after-change-functions' to update the display. |
| 517 | BEG, END and LENOLD are passed in from the hook. | 517 | BEG, END and LENOLD are passed in from the hook. |
| 518 | An actual update is only done if the regexp has changed or if the | 518 | An actual update is only done if the regexp has changed or if the |
| 519 | optional fourth argument FORCE is non-nil." | 519 | optional fourth argument FORCE is non-nil." |
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index c4dcb76446e..926305e6077 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el | |||
| @@ -1379,9 +1379,10 @@ the prefix fallback behavior." | |||
| 1379 | 1379 | ||
| 1380 | (cond | 1380 | (cond |
| 1381 | (cua-mode | 1381 | (cua-mode |
| 1382 | (setq cua--saved-state | 1382 | (unless cua--saved-state |
| 1383 | (list | 1383 | (setq cua--saved-state |
| 1384 | (and (boundp 'delete-selection-mode) delete-selection-mode))) | 1384 | (list |
| 1385 | (and (boundp 'delete-selection-mode) delete-selection-mode)))) | ||
| 1385 | (if cua-delete-selection | 1386 | (if cua-delete-selection |
| 1386 | (delete-selection-mode 1) | 1387 | (delete-selection-mode 1) |
| 1387 | (if (and (boundp 'delete-selection-mode) delete-selection-mode) | 1388 | (if (and (boundp 'delete-selection-mode) delete-selection-mode) |
diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el index d2c6dd06b6c..9c3251e0e6f 100644 --- a/lisp/emulation/cua-rect.el +++ b/lisp/emulation/cua-rect.el | |||
| @@ -735,7 +735,7 @@ If command is repeated at same position, delete the rectangle." | |||
| 735 | (setq cua--last-killed-rectangle (cons (and kill-ring (car kill-ring)) killed-rectangle)) | 735 | (setq cua--last-killed-rectangle (cons (and kill-ring (car kill-ring)) killed-rectangle)) |
| 736 | (if ring | 736 | (if ring |
| 737 | (kill-new (mapconcat | 737 | (kill-new (mapconcat |
| 738 | (function (lambda (row) (concat row "\n"))) | 738 | (lambda (row) (concat row "\n")) |
| 739 | killed-rectangle ""))))) | 739 | killed-rectangle ""))))) |
| 740 | 740 | ||
| 741 | (defun cua--activate-rectangle () | 741 | (defun cua--activate-rectangle () |
| @@ -1071,7 +1071,7 @@ The text previously in the rectangle is overwritten by the blanks." | |||
| 1071 | (cua--copy-rectangle-to-global-mark t)) | 1071 | (cua--copy-rectangle-to-global-mark t)) |
| 1072 | (let* ((rect (cua--extract-rectangle)) | 1072 | (let* ((rect (cua--extract-rectangle)) |
| 1073 | (text (mapconcat | 1073 | (text (mapconcat |
| 1074 | (function (lambda (row) (concat row "\n"))) | 1074 | (lambda (row) (concat row "\n")) |
| 1075 | rect ""))) | 1075 | rect ""))) |
| 1076 | (setq arg (cua--prefix-arg arg)) | 1076 | (setq arg (cua--prefix-arg arg)) |
| 1077 | (if cua--register | 1077 | (if cua--register |
diff --git a/lisp/epa-mail.el b/lisp/epa-mail.el index 6e6c0a498d2..3ad4da16c89 100644 --- a/lisp/epa-mail.el +++ b/lisp/epa-mail.el | |||
| @@ -49,6 +49,13 @@ | |||
| 49 | (defvar epa-mail-mode-on-hook nil) | 49 | (defvar epa-mail-mode-on-hook nil) |
| 50 | (defvar epa-mail-mode-off-hook nil) | 50 | (defvar epa-mail-mode-off-hook nil) |
| 51 | 51 | ||
| 52 | (defcustom epa-mail-offer-skip t | ||
| 53 | "If non-nil, when a recipient has no key, ask whether to skip it. | ||
| 54 | Otherwise, signal an error." | ||
| 55 | :type 'boolean | ||
| 56 | :version "28.1" | ||
| 57 | :group 'epa-mail) | ||
| 58 | |||
| 52 | ;;;###autoload | 59 | ;;;###autoload |
| 53 | (define-minor-mode epa-mail-mode | 60 | (define-minor-mode epa-mail-mode |
| 54 | "A minor-mode for composing encrypted/clearsigned mails." | 61 | "A minor-mode for composing encrypted/clearsigned mails." |
| @@ -218,10 +225,12 @@ If no one is selected, symmetric encryption will be performed. " | |||
| 218 | recipient)) | 225 | recipient)) |
| 219 | 'encrypt))) | 226 | 'encrypt))) |
| 220 | (unless (or recipient-key | 227 | (unless (or recipient-key |
| 221 | (y-or-n-p | 228 | (and epa-mail-offer-skip |
| 222 | (format | 229 | (y-or-n-p |
| 223 | "No public key for %s; skip it? " | 230 | (format |
| 224 | recipient))) | 231 | "No public key for %s; skip it? " |
| 232 | recipient))) | ||
| 233 | ) | ||
| 225 | (error "No public key for %s" recipient)) | 234 | (error "No public key for %s" recipient)) |
| 226 | (if recipient-key (list recipient-key)))) | 235 | (if recipient-key (list recipient-key)))) |
| 227 | default-recipients))))) | 236 | default-recipients))))) |
diff --git a/lisp/epa.el b/lisp/epa.el index 609ac5d1917..25e055c201f 100644 --- a/lisp/epa.el +++ b/lisp/epa.el | |||
| @@ -435,33 +435,34 @@ q trust status questionable. - trust status unspecified. | |||
| 435 | (unless (and epa-keys-buffer | 435 | (unless (and epa-keys-buffer |
| 436 | (buffer-live-p epa-keys-buffer)) | 436 | (buffer-live-p epa-keys-buffer)) |
| 437 | (setq epa-keys-buffer (generate-new-buffer "*Keys*"))) | 437 | (setq epa-keys-buffer (generate-new-buffer "*Keys*"))) |
| 438 | (with-current-buffer epa-keys-buffer | 438 | (save-window-excursion |
| 439 | (epa-key-list-mode) | 439 | (with-current-buffer epa-keys-buffer |
| 440 | ;; C-c C-c is the usual way to finish the selection (bug#11159). | 440 | (epa-key-list-mode) |
| 441 | (define-key (current-local-map) "\C-c\C-c" 'exit-recursive-edit) | 441 | ;; C-c C-c is the usual way to finish the selection (bug#11159). |
| 442 | (let ((inhibit-read-only t) | 442 | (define-key (current-local-map) "\C-c\C-c" 'exit-recursive-edit) |
| 443 | buffer-read-only) | 443 | (let ((inhibit-read-only t) |
| 444 | (erase-buffer) | 444 | buffer-read-only) |
| 445 | (insert prompt "\n" | 445 | (erase-buffer) |
| 446 | (substitute-command-keys "\ | 446 | (insert prompt "\n" |
| 447 | (substitute-command-keys "\ | ||
| 447 | - `\\[epa-mark-key]' to mark a key on the line | 448 | - `\\[epa-mark-key]' to mark a key on the line |
| 448 | - `\\[epa-unmark-key]' to unmark a key on the line\n")) | 449 | - `\\[epa-unmark-key]' to unmark a key on the line\n")) |
| 449 | (insert-button "[Cancel]" | 450 | (insert-button "[Cancel]" |
| 450 | 'action (lambda (_button) (abort-recursive-edit))) | 451 | 'action (lambda (_button) (abort-recursive-edit))) |
| 451 | (insert " ") | 452 | (insert " ") |
| 452 | (insert-button "[OK]" | 453 | (insert-button "[OK]" |
| 453 | 'action (lambda (_button) (exit-recursive-edit))) | 454 | 'action (lambda (_button) (exit-recursive-edit))) |
| 454 | (insert "\n\n") | 455 | (insert "\n\n") |
| 455 | (epa--insert-keys keys) | 456 | (epa--insert-keys keys) |
| 456 | (setq epa-exit-buffer-function #'abort-recursive-edit) | 457 | (setq epa-exit-buffer-function #'abort-recursive-edit) |
| 457 | (goto-char (point-min)) | 458 | (goto-char (point-min)) |
| 458 | (let ((display-buffer-mark-dedicated 'soft)) | 459 | (let ((display-buffer-mark-dedicated 'soft)) |
| 459 | (pop-to-buffer (current-buffer)))) | 460 | (pop-to-buffer (current-buffer)))) |
| 460 | (unwind-protect | 461 | (unwind-protect |
| 461 | (progn | 462 | (progn |
| 462 | (recursive-edit) | 463 | (recursive-edit) |
| 463 | (epa--marked-keys)) | 464 | (epa--marked-keys)) |
| 464 | (kill-buffer epa-keys-buffer)))) | 465 | (kill-buffer epa-keys-buffer))))) |
| 465 | 466 | ||
| 466 | ;;;###autoload | 467 | ;;;###autoload |
| 467 | (defun epa-select-keys (context prompt &optional names secret) | 468 | (defun epa-select-keys (context prompt &optional names secret) |
diff --git a/lisp/erc/ChangeLog.1 b/lisp/erc/ChangeLog.1 index ef813bd0325..90bd8bd09ee 100644 --- a/lisp/erc/ChangeLog.1 +++ b/lisp/erc/ChangeLog.1 | |||
| @@ -7296,7 +7296,7 @@ | |||
| 7296 | again. | 7296 | again. |
| 7297 | (erc): Require cl for delete-if. | 7297 | (erc): Require cl for delete-if. |
| 7298 | (erc-button-remove-old-buttons): Rewrote using delete-if to | 7298 | (erc-button-remove-old-buttons): Rewrote using delete-if to |
| 7299 | prevent excesive consing. Having the marker list is still ugly, | 7299 | prevent excessive consing. Having the marker list is still ugly, |
| 7300 | so another solution needs to be found. | 7300 | so another solution needs to be found. |
| 7301 | 7301 | ||
| 7302 | 2003-01-17 Jorgen Schaefer <forcer@users.sourceforge.net> | 7302 | 2003-01-17 Jorgen Schaefer <forcer@users.sourceforge.net> |
| @@ -10260,7 +10260,7 @@ | |||
| 10260 | Upcased the command defuns (erc-cmd-join is now erc-cmd-JOIN) | 10260 | Upcased the command defuns (erc-cmd-join is now erc-cmd-JOIN) |
| 10261 | Fixed erc-complete to not require erc-command-table. | 10261 | Fixed erc-complete to not require erc-command-table. |
| 10262 | Implemented erc-cmd-HELP | 10262 | Implemented erc-cmd-HELP |
| 10263 | (You have to try that, its tooo coool!) | 10263 | (You have to try that, its too coool!) |
| 10264 | e.g. /help auto-q | 10264 | e.g. /help auto-q |
| 10265 | fixed autoloads for erc-add-pal and so on to be interactive. | 10265 | fixed autoloads for erc-add-pal and so on to be interactive. |
| 10266 | 10266 | ||
| @@ -11242,7 +11242,7 @@ | |||
| 11242 | 2001-10-29 Mario Lang <mlang@delysid.org> | 11242 | 2001-10-29 Mario Lang <mlang@delysid.org> |
| 11243 | 11243 | ||
| 11244 | * erc.el: | 11244 | * erc.el: |
| 11245 | Imenu fixed somehow, added IRC services interactive function for indentify to NickServ. Read the diff | 11245 | Imenu fixed somehow, added IRC services interactive function for identify to NickServ. Read the diff |
| 11246 | 11246 | ||
| 11247 | 2001-10-26 Gergely Nagy <algernon@debian.org> | 11247 | 2001-10-26 Gergely Nagy <algernon@debian.org> |
| 11248 | 11248 | ||
| @@ -11316,7 +11316,7 @@ | |||
| 11316 | 11316 | ||
| 11317 | * erc-speak.el: | 11317 | * erc-speak.el: |
| 11318 | * Very important fix! Now erc-speak is really complete. Messages don't get cut anymore. Be sure to use auditory icons, | 11318 | * Very important fix! Now erc-speak is really complete. Messages don't get cut anymore. Be sure to use auditory icons, |
| 11319 | it's reallllly cool now!!! | 11319 | it's really cool now!!! |
| 11320 | 11320 | ||
| 11321 | * erc-speak.el: *** empty log message *** | 11321 | * erc-speak.el: *** empty log message *** |
| 11322 | 11322 | ||
diff --git a/lisp/erc/erc-button.el b/lisp/erc/erc-button.el index 5e6f7c8d107..b799b2427c6 100644 --- a/lisp/erc/erc-button.el +++ b/lisp/erc/erc-button.el | |||
| @@ -198,12 +198,12 @@ PAR is a number of a regexp grouping whose text will be passed to | |||
| 198 | :inline t | 198 | :inline t |
| 199 | (integer :tag "Regexp section number"))))) | 199 | (integer :tag "Regexp section number"))))) |
| 200 | 200 | ||
| 201 | (defcustom erc-emacswiki-url "http://www.emacswiki.org/cgi-bin/wiki.pl?" | 201 | (defcustom erc-emacswiki-url "https://www.emacswiki.org/cgi-bin/wiki.pl?" |
| 202 | "URL of the EmacsWiki Homepage." | 202 | "URL of the EmacsWiki Homepage." |
| 203 | :group 'erc-button | 203 | :group 'erc-button |
| 204 | :type 'string) | 204 | :type 'string) |
| 205 | 205 | ||
| 206 | (defcustom erc-emacswiki-lisp-url "http://www.emacswiki.org/elisp/" | 206 | (defcustom erc-emacswiki-lisp-url "https://www.emacswiki.org/elisp/" |
| 207 | "URL of the EmacsWiki ELisp area." | 207 | "URL of the EmacsWiki ELisp area." |
| 208 | :group 'erc-button | 208 | :group 'erc-button |
| 209 | :type 'string) | 209 | :type 'string) |
diff --git a/lisp/erc/erc-track.el b/lisp/erc/erc-track.el index 3398c8b9d0c..60f0cfa942f 100644 --- a/lisp/erc/erc-track.el +++ b/lisp/erc/erc-track.el | |||
| @@ -860,7 +860,7 @@ is in `erc-mode'." | |||
| 860 | 860 | ||
| 861 | (defvar erc-track-last-non-erc-buffer nil | 861 | (defvar erc-track-last-non-erc-buffer nil |
| 862 | "Stores the name of the last buffer you were in before activating | 862 | "Stores the name of the last buffer you were in before activating |
| 863 | `erc-track-switch-buffers'.") | 863 | `erc-track-switch-buffer'.") |
| 864 | 864 | ||
| 865 | (defun erc-track-sort-by-activest () | 865 | (defun erc-track-sort-by-activest () |
| 866 | "Sort erc-modified-channels-alist by activity. | 866 | "Sort erc-modified-channels-alist by activity. |
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index e7e43f87347..1d5506e2816 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el | |||
| @@ -5039,7 +5039,7 @@ information if it is not already present in the user or channel | |||
| 5039 | lists. | 5039 | lists. |
| 5040 | 5040 | ||
| 5041 | If, and only if, changes are made, or the user is added, | 5041 | If, and only if, changes are made, or the user is added, |
| 5042 | `erc-channel-members-updated-hook' is run, and t is returned. | 5042 | `erc-channel-members-changed-hook' is run, and t is returned. |
| 5043 | 5043 | ||
| 5044 | See also: `erc-update-user' and `erc-update-channel-member'." | 5044 | See also: `erc-update-user' and `erc-update-channel-member'." |
| 5045 | (let* (changed user-changed | 5045 | (let* (changed user-changed |
| @@ -6072,7 +6072,7 @@ Sets the buffer local variables: | |||
| 6072 | - `erc-session-connector' | 6072 | - `erc-session-connector' |
| 6073 | - `erc-session-server' | 6073 | - `erc-session-server' |
| 6074 | - `erc-session-port' | 6074 | - `erc-session-port' |
| 6075 | - `erc-session-full-name' | 6075 | - `erc-session-user-full-name' |
| 6076 | - `erc-server-current-nick'" | 6076 | - `erc-server-current-nick'" |
| 6077 | (setq erc-session-connector erc-server-connect-function | 6077 | (setq erc-session-connector erc-server-connect-function |
| 6078 | erc-session-server (erc-compute-server server) | 6078 | erc-session-server (erc-compute-server server) |
diff --git a/lisp/eshell/esh-util.el b/lisp/eshell/esh-util.el index 0122f9be488..9268921fadc 100644 --- a/lisp/eshell/esh-util.el +++ b/lisp/eshell/esh-util.el | |||
| @@ -534,7 +534,7 @@ list." | |||
| 534 | string))) | 534 | string))) |
| 535 | 535 | ||
| 536 | (defun eshell-directory-files-and-attributes (dir &optional full match nosort id-format) | 536 | (defun eshell-directory-files-and-attributes (dir &optional full match nosort id-format) |
| 537 | "Make sure to use the handler for `directory-file-and-attributes'." | 537 | "Make sure to use the handler for `directory-files-and-attributes'." |
| 538 | (let* ((dir (expand-file-name dir))) | 538 | (let* ((dir (expand-file-name dir))) |
| 539 | (if (string-equal (file-remote-p dir 'method) "ftp") | 539 | (if (string-equal (file-remote-p dir 'method) "ftp") |
| 540 | (let ((files (directory-files dir full match nosort))) | 540 | (let ((files (directory-files dir full match nosort))) |
diff --git a/lisp/eshell/esh-var.el b/lisp/eshell/esh-var.el index 96838d41327..7388279f157 100644 --- a/lisp/eshell/esh-var.el +++ b/lisp/eshell/esh-var.el | |||
| @@ -463,8 +463,8 @@ Possible options are: | |||
| 463 | (eshell-as-subcommand ,(eshell-parse-command cmd)) | 463 | (eshell-as-subcommand ,(eshell-parse-command cmd)) |
| 464 | (ignore | 464 | (ignore |
| 465 | (nconc eshell-this-command-hook | 465 | (nconc eshell-this-command-hook |
| 466 | (list (function (lambda () | 466 | (list (lambda () |
| 467 | (delete-file ,temp)))))) | 467 | (delete-file ,temp))))) |
| 468 | (quote ,temp))) | 468 | (quote ,temp))) |
| 469 | (goto-char (1+ end))))))) | 469 | (goto-char (1+ end))))))) |
| 470 | ((eq (char-after) ?\() | 470 | ((eq (char-after) ?\() |
diff --git a/lisp/faces.el b/lisp/faces.el index 7c23e58fd9d..5b7e0a5aee2 100644 --- a/lisp/faces.el +++ b/lisp/faces.el | |||
| @@ -1770,7 +1770,7 @@ If FRAME is nil, that stands for the selected frame." | |||
| 1770 | (defun defined-colors-with-face-attributes (&optional frame) | 1770 | (defun defined-colors-with-face-attributes (&optional frame) |
| 1771 | "Return a list of colors supported for a particular frame. | 1771 | "Return a list of colors supported for a particular frame. |
| 1772 | See `defined-colors' for arguments and return value. In contrast | 1772 | See `defined-colors' for arguments and return value. In contrast |
| 1773 | to `define-colors' the elements of the returned list are color | 1773 | to `defined-colors' the elements of the returned list are color |
| 1774 | strings with text properties, that make the color names render | 1774 | strings with text properties, that make the color names render |
| 1775 | with the color they represent as background color." | 1775 | with the color they represent as background color." |
| 1776 | (mapcar | 1776 | (mapcar |
diff --git a/lisp/ffap.el b/lisp/ffap.el index a1d80f545c2..ccba2911445 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el | |||
| @@ -172,7 +172,7 @@ well-formed, such as \"user@host\" or \"<user@host>\"." | |||
| 172 | :version "25.2") ; nil -> t | 172 | :version "25.2") ; nil -> t |
| 173 | 173 | ||
| 174 | (defcustom ffap-ftp-default-user "anonymous" | 174 | (defcustom ffap-ftp-default-user "anonymous" |
| 175 | "User name in FTP file names generated by `ffap-host-to-path'. | 175 | "User name in FTP file names generated by `ffap-host-to-filename'. |
| 176 | Note this name may be omitted if it equals the default | 176 | Note this name may be omitted if it equals the default |
| 177 | \(either `efs-default-user' or `ange-ftp-default-user')." | 177 | \(either `efs-default-user' or `ange-ftp-default-user')." |
| 178 | :type 'string | 178 | :type 'string |
diff --git a/lisp/filecache.el b/lisp/filecache.el index 113d28cf75e..00c53138032 100644 --- a/lisp/filecache.el +++ b/lisp/filecache.el | |||
| @@ -46,7 +46,7 @@ | |||
| 46 | ;; * `file-cache-add-file-list': Adds a list of files to the cache | 46 | ;; * `file-cache-add-file-list': Adds a list of files to the cache |
| 47 | ;; | 47 | ;; |
| 48 | ;; The following functions use the regular expressions in | 48 | ;; The following functions use the regular expressions in |
| 49 | ;; `file-cache-delete-regexps' to eliminate unwanted files: | 49 | ;; `file-cache-filter-regexps' to eliminate unwanted files: |
| 50 | ;; | 50 | ;; |
| 51 | ;; * `file-cache-add-directory': Adds the files in a directory to the | 51 | ;; * `file-cache-add-directory': Adds the files in a directory to the |
| 52 | ;; cache. You can also specify a regular expression to match the files | 52 | ;; cache. You can also specify a regular expression to match the files |
diff --git a/lisp/files.el b/lisp/files.el index dc9633f92bd..833a188b03b 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -1395,7 +1395,7 @@ it means chase no more than that many links and then stop." | |||
| 1395 | newname)) | 1395 | newname)) |
| 1396 | 1396 | ||
| 1397 | ;; A handy function to display file sizes in human-readable form. | 1397 | ;; A handy function to display file sizes in human-readable form. |
| 1398 | ;; See http://en.wikipedia.org/wiki/Kibibyte for the reference. | 1398 | ;; See https://en.wikipedia.org/wiki/Kibibyte for the reference. |
| 1399 | (defun file-size-human-readable (file-size &optional flavor space unit) | 1399 | (defun file-size-human-readable (file-size &optional flavor space unit) |
| 1400 | "Produce a string showing FILE-SIZE in human-readable form. | 1400 | "Produce a string showing FILE-SIZE in human-readable form. |
| 1401 | 1401 | ||
| @@ -7779,7 +7779,7 @@ Otherwise, trash FILENAME using the freedesktop.org conventions, | |||
| 7779 | (let (delete-by-moving-to-trash) | 7779 | (let (delete-by-moving-to-trash) |
| 7780 | (rename-file fn new-fn)))) | 7780 | (rename-file fn new-fn)))) |
| 7781 | ;; Otherwise, use the freedesktop.org method, as specified at | 7781 | ;; Otherwise, use the freedesktop.org method, as specified at |
| 7782 | ;; http://freedesktop.org/wiki/Specifications/trash-spec | 7782 | ;; https://freedesktop.org/wiki/Specifications/trash-spec |
| 7783 | (t | 7783 | (t |
| 7784 | (let* ((xdg-data-dir | 7784 | (let* ((xdg-data-dir |
| 7785 | (directory-file-name | 7785 | (directory-file-name |
diff --git a/lisp/filesets.el b/lisp/filesets.el index 1ec0d24b539..4f23faa2203 100644 --- a/lisp/filesets.el +++ b/lisp/filesets.el | |||
| @@ -52,7 +52,7 @@ | |||
| 52 | 52 | ||
| 53 | ;; BTW, if you close a fileset, files, which have been changed, will | 53 | ;; BTW, if you close a fileset, files, which have been changed, will |
| 54 | ;; be silently saved. Change this behavior by setting | 54 | ;; be silently saved. Change this behavior by setting |
| 55 | ;; `filesets-save-buffer-fn'. | 55 | ;; `filesets-save-buffer-function'. |
| 56 | 56 | ||
| 57 | ;;; Supported modes for inclusion groups (`filesets-ingroup-patterns'): | 57 | ;;; Supported modes for inclusion groups (`filesets-ingroup-patterns'): |
| 58 | ;; - Elisp | 58 | ;; - Elisp |
diff --git a/lisp/find-file.el b/lisp/find-file.el index 7e0127da5f2..84d02cb4a26 100644 --- a/lisp/find-file.el +++ b/lisp/find-file.el | |||
| @@ -109,8 +109,8 @@ | |||
| 109 | ;; file. | 109 | ;; file. |
| 110 | 110 | ||
| 111 | ;; CREDITS: | 111 | ;; CREDITS: |
| 112 | ;; Many thanks go to TUSC Computer Systems Pty Ltd for providing an environ- | 112 | ;; Many thanks go to TUSC Computer Systems Pty Ltd for providing an |
| 113 | ;; ment that made the development of this package possible. | 113 | ;; environment that made the development of this package possible. |
| 114 | ;; | 114 | ;; |
| 115 | ;; Many thanks also go to all those who provided valuable feedback throughout | 115 | ;; Many thanks also go to all those who provided valuable feedback throughout |
| 116 | ;; the development of this package: | 116 | ;; the development of this package: |
diff --git a/lisp/follow.el b/lisp/follow.el index d499da7a8dc..f1d823d9f03 100644 --- a/lisp/follow.el +++ b/lisp/follow.el | |||
| @@ -113,7 +113,7 @@ | |||
| 113 | ;; whatever you would like to do. These functions are then added to | 113 | ;; whatever you would like to do. These functions are then added to |
| 114 | ;; a hook. | 114 | ;; a hook. |
| 115 | ;; | 115 | ;; |
| 116 | ;; The keymap `follow-key-map' contains key bindings activated by | 116 | ;; The keymap `follow-mode-map' contains key bindings activated by |
| 117 | ;; `follow-mode'. | 117 | ;; `follow-mode'. |
| 118 | ;; | 118 | ;; |
| 119 | ;; Example: | 119 | ;; Example: |
| @@ -356,7 +356,7 @@ property `follow-mode-use-cache' to non-nil.") | |||
| 356 | Used by `follow-window-size-change'.") | 356 | Used by `follow-window-size-change'.") |
| 357 | 357 | ||
| 358 | (defvar follow-windows-start-end-cache nil | 358 | (defvar follow-windows-start-end-cache nil |
| 359 | "Cache used by `follow-window-start-end'.") | 359 | "Cache used by `follow-window-start' and `follow-window-end'.") |
| 360 | 360 | ||
| 361 | (defvar follow-fixed-window nil | 361 | (defvar follow-fixed-window nil |
| 362 | "If non-nil, the current window must not be scrolled. | 362 | "If non-nil, the current window must not be scrolled. |
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index c633877e640..e708e69bd59 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el | |||
| @@ -822,7 +822,7 @@ happens, so the major mode can be corrected." | |||
| 822 | ;; `font-lock-keywords-alist'. | 822 | ;; `font-lock-keywords-alist'. |
| 823 | (when top-cell | 823 | (when top-cell |
| 824 | (dolist (keyword-list-how-pair (cdr top-cell)) | 824 | (dolist (keyword-list-how-pair (cdr top-cell)) |
| 825 | ;; `keywords-list-how-pair' is a cons with a list of | 825 | ;; `keyword-list-how-pair' is a cons with a list of |
| 826 | ;; keywords in the car top-cell and the original how | 826 | ;; keywords in the car top-cell and the original how |
| 827 | ;; argument in the cdr top-cell. | 827 | ;; argument in the cdr top-cell. |
| 828 | (setcar keyword-list-how-pair | 828 | (setcar keyword-list-how-pair |
diff --git a/lisp/forms.el b/lisp/forms.el index 83daabdcd6e..e9242ce4cb8 100644 --- a/lisp/forms.el +++ b/lisp/forms.el | |||
| @@ -286,7 +286,7 @@ | |||
| 286 | ;; record. | 286 | ;; record. |
| 287 | ;; | 287 | ;; |
| 288 | ;; `write-file-functions' is defined to save the actual data file | 288 | ;; `write-file-functions' is defined to save the actual data file |
| 289 | ;; instead of the buffer data, `revert-file-hook' is defined to | 289 | ;; instead of the buffer data, `revert-buffer-function' is defined to |
| 290 | ;; revert a forms to original. | 290 | ;; revert a forms to original. |
| 291 | 291 | ||
| 292 | ;;; Code: | 292 | ;;; Code: |
diff --git a/lisp/gnus/ChangeLog.2 b/lisp/gnus/ChangeLog.2 index 2f5dd22930e..533ceb84bf1 100644 --- a/lisp/gnus/ChangeLog.2 +++ b/lisp/gnus/ChangeLog.2 | |||
| @@ -3378,7 +3378,7 @@ | |||
| 3378 | 3378 | ||
| 3379 | * gnus-async.el (gnus-asynchronous): Move defcustom of | 3379 | * gnus-async.el (gnus-asynchronous): Move defcustom of |
| 3380 | gnus-asynchronous away from defgroup of gnus-asynchronous. | 3380 | gnus-asynchronous away from defgroup of gnus-asynchronous. |
| 3381 | This seems to fix an intermittant error in which loading gnus-async | 3381 | This seems to fix an intermittent error in which loading gnus-async |
| 3382 | fails to define gnus-asynchronous (the variable). | 3382 | fails to define gnus-asynchronous (the variable). |
| 3383 | 3383 | ||
| 3384 | * gnus-sum.el: Concur with Steve Young, 5th argument to 'load' is | 3384 | * gnus-sum.el: Concur with Steve Young, 5th argument to 'load' is |
| @@ -7096,7 +7096,7 @@ | |||
| 7096 | * nnimap.el (nnimap-callback-callback-function): | 7096 | * nnimap.el (nnimap-callback-callback-function): |
| 7097 | (nnimap-callback-buffer): Remove, these cannot be global but must | 7097 | (nnimap-callback-buffer): Remove, these cannot be global but must |
| 7098 | be embedded into the callback. | 7098 | be embedded into the callback. |
| 7099 | (nnimap-make-callback): New. Embedd article number, callback and | 7099 | (nnimap-make-callback): New. Embed article number, callback and |
| 7100 | buffer in function. | 7100 | buffer in function. |
| 7101 | (nnimap-callback, nnimap-request-article-part): Update. | 7101 | (nnimap-callback, nnimap-request-article-part): Update. |
| 7102 | 7102 | ||
| @@ -8031,7 +8031,7 @@ | |||
| 8031 | (message-xpost-fup2-header, message-xpost-insert-note) | 8031 | (message-xpost-fup2-header, message-xpost-insert-note) |
| 8032 | (message-xpost-fup2, message-reduce-to-to-cc): New functions | 8032 | (message-xpost-fup2, message-reduce-to-to-cc): New functions |
| 8033 | adopted from message-utils.el. Add functions to the keymap, mode | 8033 | adopted from message-utils.el. Add functions to the keymap, mode |
| 8034 | describtion and menu. | 8034 | description and menu. |
| 8035 | (message-change-subject, message-xpost-fup2): Signal error if | 8035 | (message-change-subject, message-xpost-fup2): Signal error if |
| 8036 | current header is empty. | 8036 | current header is empty. |
| 8037 | (message-xpost-insert-note): Change insert position. | 8037 | (message-xpost-insert-note): Change insert position. |
| @@ -8612,7 +8612,7 @@ | |||
| 8612 | 2002-06-11 Simon Josefsson <jas@extundo.com> | 8612 | 2002-06-11 Simon Josefsson <jas@extundo.com> |
| 8613 | 8613 | ||
| 8614 | * gnus-int.el (gnus-request-move-article): Agent expire article if | 8614 | * gnus-int.el (gnus-request-move-article): Agent expire article if |
| 8615 | successfuly moved. | 8615 | successfully moved. |
| 8616 | 8616 | ||
| 8617 | 2002-06-11 Niklas Morberg <niklas.morberg@axis.com> | 8617 | 2002-06-11 Niklas Morberg <niklas.morberg@axis.com> |
| 8618 | 8618 | ||
| @@ -9073,7 +9073,7 @@ | |||
| 9073 | 9073 | ||
| 9074 | 2002-04-13 Josh Huber <huber@alum.wpi.edu> | 9074 | 2002-04-13 Josh Huber <huber@alum.wpi.edu> |
| 9075 | 9075 | ||
| 9076 | * mml-sec.el (mml-secure-message): Change to support arbritrary | 9076 | * mml-sec.el (mml-secure-message): Change to support arbitrary |
| 9077 | modes. | 9077 | modes. |
| 9078 | * mml-sec.el (mml-secure-message-encrypt-(smime|pgp|pgpmime)): | 9078 | * mml-sec.el (mml-secure-message-encrypt-(smime|pgp|pgpmime)): |
| 9079 | changed to support "signencrypt" mode. | 9079 | changed to support "signencrypt" mode. |
diff --git a/lisp/gnus/ChangeLog.3 b/lisp/gnus/ChangeLog.3 index 70eaeb510ac..582c9bd10b7 100644 --- a/lisp/gnus/ChangeLog.3 +++ b/lisp/gnus/ChangeLog.3 | |||
| @@ -170,7 +170,7 @@ | |||
| 170 | 2015-02-09 Lars Ingebrigtsen <larsi@gnus.org> | 170 | 2015-02-09 Lars Ingebrigtsen <larsi@gnus.org> |
| 171 | 171 | ||
| 172 | * mm-decode.el (mm-convert-shr-links): Don't overwrite the faces from | 172 | * mm-decode.el (mm-convert-shr-links): Don't overwrite the faces from |
| 173 | shr, beacause that breaks folding. | 173 | shr, because that breaks folding. |
| 174 | (mm-shr): Don't shorten the width when using fonts. | 174 | (mm-shr): Don't shorten the width when using fonts. |
| 175 | 175 | ||
| 176 | 2015-02-05 Teodor Zlatanov <tzz@lifelogs.com> | 176 | 2015-02-05 Teodor Zlatanov <tzz@lifelogs.com> |
| @@ -596,7 +596,7 @@ | |||
| 596 | 596 | ||
| 597 | 2014-06-05 Katsumi Yamaoka <yamaoka@jpl.org> | 597 | 2014-06-05 Katsumi Yamaoka <yamaoka@jpl.org> |
| 598 | 598 | ||
| 599 | * gnus-art.el (gnus-article-edit-part): Don't modifiy markers. | 599 | * gnus-art.el (gnus-article-edit-part): Don't modify markers. |
| 600 | (gnus-article-read-summary-keys): | 600 | (gnus-article-read-summary-keys): |
| 601 | Don't bug out when there is no article in the summary buffer. | 601 | Don't bug out when there is no article in the summary buffer. |
| 602 | (gnus-mime-buttonize-attachments-in-header): | 602 | (gnus-mime-buttonize-attachments-in-header): |
| @@ -1318,7 +1318,7 @@ | |||
| 1318 | 2013-08-06 Jan Tatarik <jan.tatarik@gmail.com> | 1318 | 2013-08-06 Jan Tatarik <jan.tatarik@gmail.com> |
| 1319 | 1319 | ||
| 1320 | * gnus-icalendar.el (gnus-icalendar-event-from-ical): Replace pcase | 1320 | * gnus-icalendar.el (gnus-icalendar-event-from-ical): Replace pcase |
| 1321 | with cond for backwards compatability. | 1321 | with cond for backwards compatibility. |
| 1322 | 1322 | ||
| 1323 | 2013-08-06 Katsumi Yamaoka <yamaoka@jpl.org> | 1323 | 2013-08-06 Katsumi Yamaoka <yamaoka@jpl.org> |
| 1324 | 1324 | ||
| @@ -2221,7 +2221,7 @@ | |||
| 2221 | 2221 | ||
| 2222 | 2013-04-04 Katsumi Yamaoka <yamaoka@jpl.org> | 2222 | 2013-04-04 Katsumi Yamaoka <yamaoka@jpl.org> |
| 2223 | 2223 | ||
| 2224 | * mml.el (mml-minibuffer-read-description): Use `default' insted of | 2224 | * mml.el (mml-minibuffer-read-description): Use `default' instead of |
| 2225 | `initial-input' for the argument name. | 2225 | `initial-input' for the argument name. |
| 2226 | Suggested by Stefan Monnier <monnier@iro.umontreal.ca>. | 2226 | Suggested by Stefan Monnier <monnier@iro.umontreal.ca>. |
| 2227 | 2227 | ||
| @@ -5541,7 +5541,7 @@ | |||
| 5541 | (registry-prune-hard): Use it. | 5541 | (registry-prune-hard): Use it. |
| 5542 | 5542 | ||
| 5543 | * gnus-registry.el (gnus-registry-fixup-registry): Set prune-factor to | 5543 | * gnus-registry.el (gnus-registry-fixup-registry): Set prune-factor to |
| 5544 | 0.1 expicitly. | 5544 | 0.1 explicitly. |
| 5545 | 5545 | ||
| 5546 | 2011-05-13 Glenn Morris <rgm@gnu.org> | 5546 | 2011-05-13 Glenn Morris <rgm@gnu.org> |
| 5547 | 5547 | ||
| @@ -8758,7 +8758,7 @@ | |||
| 8758 | 8758 | ||
| 8759 | * shr.el (shr-generic): The text nodes should be text, not :text. | 8759 | * shr.el (shr-generic): The text nodes should be text, not :text. |
| 8760 | 8760 | ||
| 8761 | * nnir.el (nnir-search-engine): Ressurect variable, since it's used | 8761 | * nnir.el (nnir-search-engine): Resurrect variable, since it's used |
| 8762 | later in the file. | 8762 | later in the file. |
| 8763 | 8763 | ||
| 8764 | 2010-10-30 Andrew Cohen <cohen@andy.bu.edu> | 8764 | 2010-10-30 Andrew Cohen <cohen@andy.bu.edu> |
| @@ -9481,7 +9481,7 @@ | |||
| 9481 | nil. | 9481 | nil. |
| 9482 | 9482 | ||
| 9483 | * gnus-start.el (gnus-get-unread-articles): Require gnus-agent before | 9483 | * gnus-start.el (gnus-get-unread-articles): Require gnus-agent before |
| 9484 | bidning gnus-agent variables. | 9484 | binding gnus-agent variables. |
| 9485 | 9485 | ||
| 9486 | * shr.el (shr-render-td): Use a cache for the table rendering function | 9486 | * shr.el (shr-render-td): Use a cache for the table rendering function |
| 9487 | to avoid getting an exponential rendering behavior in nested tables. | 9487 | to avoid getting an exponential rendering behavior in nested tables. |
| @@ -11849,7 +11849,7 @@ | |||
| 11849 | 11849 | ||
| 11850 | 2010-08-13 Teodor Zlatanov <tzz@lifelogs.com> | 11850 | 2010-08-13 Teodor Zlatanov <tzz@lifelogs.com> |
| 11851 | 11851 | ||
| 11852 | Doc fixes and keep unknown groups (ammended for nunion bug fix). | 11852 | Doc fixes and keep unknown groups (amended for nunion bug fix). |
| 11853 | 11853 | ||
| 11854 | * gnus-sync.el: Fix docs. | 11854 | * gnus-sync.el: Fix docs. |
| 11855 | (gnus-sync-save): Keep unknown groups in `gnus-sync-newsrc-loader'. | 11855 | (gnus-sync-save): Keep unknown groups in `gnus-sync-newsrc-loader'. |
| @@ -18925,7 +18925,7 @@ | |||
| 18925 | * message.el: Autoload gmm-image-load-path. | 18925 | * message.el: Autoload gmm-image-load-path. |
| 18926 | (message-tool-bar-retro): Prepend "gnus/" subdirectory to some | 18926 | (message-tool-bar-retro): Prepend "gnus/" subdirectory to some |
| 18927 | icon file names. Use old Emacs 21 "mail_send.xpm" icon for | 18927 | icon file names. Use old Emacs 21 "mail_send.xpm" icon for |
| 18928 | consitency. | 18928 | consistency. |
| 18929 | 18929 | ||
| 18930 | * gmm-utils.el (gmm-image-load-path): Also search in | 18930 | * gmm-utils.el (gmm-image-load-path): Also search in |
| 18931 | "../etc/images". Don't set gmm-image-load-path if we don't find | 18931 | "../etc/images". Don't set gmm-image-load-path if we don't find |
| @@ -19523,7 +19523,7 @@ | |||
| 19523 | 19523 | ||
| 19524 | * nnml.el: Don't require gnus-bcklg. Autoload it. | 19524 | * nnml.el: Don't require gnus-bcklg. Autoload it. |
| 19525 | (nnml-use-compressed-files, nnml-save-mail): Support other | 19525 | (nnml-use-compressed-files, nnml-save-mail): Support other |
| 19526 | comression programs such as bzip2. | 19526 | compression programs such as bzip2. |
| 19527 | 19527 | ||
| 19528 | 2005-12-17 Lars Magne Ingebrigtsen <larsi@gnus.org> | 19528 | 2005-12-17 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 19529 | 19529 | ||
| @@ -21227,7 +21227,7 @@ | |||
| 21227 | (nntp-with-open-group): Allow debugging. | 21227 | (nntp-with-open-group): Allow debugging. |
| 21228 | 21228 | ||
| 21229 | * nnheader.el (mail-header-set-extra): Make into a function | 21229 | * nnheader.el (mail-header-set-extra): Make into a function |
| 21230 | because I just could't understand how to quote the list properly. | 21230 | because I just couldn't understand how to quote the list properly. |
| 21231 | 21231 | ||
| 21232 | * dns.el (query-dns-cached): New function. | 21232 | * dns.el (query-dns-cached): New function. |
| 21233 | 21233 | ||
| @@ -24966,7 +24966,7 @@ | |||
| 24966 | functions as needing (default), or not needing, | 24966 | functions as needing (default), or not needing, |
| 24967 | gnus-convert-old-newsrc's "backup before upgrading warning". | 24967 | gnus-convert-old-newsrc's "backup before upgrading warning". |
| 24968 | (gnus-convert-converter-needs-prompt): Tests whether the user | 24968 | (gnus-convert-converter-needs-prompt): Tests whether the user |
| 24969 | should be protected from potentially irreversable changes by the | 24969 | should be protected from potentially irreversible changes by the |
| 24970 | function. | 24970 | function. |
| 24971 | 24971 | ||
| 24972 | * legacy-gnus-agent.el: New. Provides converters that are only | 24972 | * legacy-gnus-agent.el: New. Provides converters that are only |
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 0e15ebce6c6..684c535f143 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el | |||
| @@ -1368,7 +1368,11 @@ CRLF (RFC 5321 SMTP)." | |||
| 1368 | ;; input (3.1, 3.3) | 1368 | ;; input (3.1, 3.3) |
| 1369 | ;; - if line-length is set, error on input exceeding the limit (3.1) | 1369 | ;; - if line-length is set, error on input exceeding the limit (3.1) |
| 1370 | ;; - reject characters outside base encoding (3.3, also section 12) | 1370 | ;; - reject characters outside base encoding (3.3, also section 12) |
| 1371 | (let ((splitstr (split-string str "[\n\r \t]+" t))) | 1371 | ;; |
| 1372 | ;; RFC 5322 section 2.2.3 consideration: | ||
| 1373 | ;; Because base 64-encoded strings can appear in long header fields, remove | ||
| 1374 | ;; folding whitespace while still observing the RFC 4648 decisions above. | ||
| 1375 | (let ((splitstr (split-string str "[ \t]*[\r\n]+[ \t]?" t))) | ||
| 1372 | (when (and reject-newlines (> (length splitstr) 1)) | 1376 | (when (and reject-newlines (> (length splitstr) 1)) |
| 1373 | (error "Invalid Base64 string")) | 1377 | (error "Invalid Base64 string")) |
| 1374 | (dolist (substr splitstr) | 1378 | (dolist (substr splitstr) |
| @@ -1424,7 +1428,7 @@ SPEC is a predicate specifier that contains stuff like `or', `and', | |||
| 1424 | (autoload 'ido-completing-read "ido") | 1428 | (autoload 'ido-completing-read "ido") |
| 1425 | (defun gnus-ido-completing-read (prompt collection &optional require-match | 1429 | (defun gnus-ido-completing-read (prompt collection &optional require-match |
| 1426 | initial-input history def) | 1430 | initial-input history def) |
| 1427 | "Call `ido-completing-read-function'." | 1431 | "Call `ido-completing-read'." |
| 1428 | (ido-completing-read prompt collection nil require-match | 1432 | (ido-completing-read prompt collection nil require-match |
| 1429 | initial-input history def)) | 1433 | initial-input history def)) |
| 1430 | 1434 | ||
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index ef010d6e9c6..77856aeddec 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el | |||
| @@ -5659,7 +5659,7 @@ The result is a fixnum." | |||
| 5659 | (mail-file-babyl-p filename)) | 5659 | (mail-file-babyl-p filename)) |
| 5660 | ;; gnus-output-to-mail does the wrong thing with live, mbox | 5660 | ;; gnus-output-to-mail does the wrong thing with live, mbox |
| 5661 | ;; Rmail buffers in Emacs 23. | 5661 | ;; Rmail buffers in Emacs 23. |
| 5662 | ;; http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=597255 | 5662 | ;; https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=597255 |
| 5663 | (let ((buff (find-buffer-visiting filename))) | 5663 | (let ((buff (find-buffer-visiting filename))) |
| 5664 | (and buff (with-current-buffer buff | 5664 | (and buff (with-current-buffer buff |
| 5665 | (eq major-mode 'rmail-mode))))) | 5665 | (eq major-mode 'rmail-mode))))) |
| @@ -8100,7 +8100,7 @@ See `gmm-tool-bar-from-list' for the format of the list." | |||
| 8100 | (library image &optional path no-error)) | 8100 | (library image &optional path no-error)) |
| 8101 | 8101 | ||
| 8102 | (defun message-make-tool-bar (&optional force) | 8102 | (defun message-make-tool-bar (&optional force) |
| 8103 | "Make a message mode tool bar from `message-tool-bar-list'. | 8103 | "Make a message mode tool bar from `message-tool-bar'. |
| 8104 | When FORCE, rebuild the tool bar." | 8104 | When FORCE, rebuild the tool bar." |
| 8105 | (when (and (boundp 'tool-bar-mode) | 8105 | (when (and (boundp 'tool-bar-mode) |
| 8106 | tool-bar-mode | 8106 | tool-bar-mode |
| @@ -8591,7 +8591,7 @@ Meant for use on `completion-at-point-functions'." | |||
| 8591 | 8591 | ||
| 8592 | ;; FIXME: What is the most common term (circular letter, form letter, serial | 8592 | ;; FIXME: What is the most common term (circular letter, form letter, serial |
| 8593 | ;; letter, standard letter) for such kind of letter? See also | 8593 | ;; letter, standard letter) for such kind of letter? See also |
| 8594 | ;; <http://en.wikipedia.org/wiki/Form_letter> | 8594 | ;; <https://en.wikipedia.org/wiki/Form_letter> |
| 8595 | 8595 | ||
| 8596 | ;; FIXME: Maybe extent message-mode's font-lock support to recognize | 8596 | ;; FIXME: Maybe extent message-mode's font-lock support to recognize |
| 8597 | ;; `message-form-letter-separator', i.e. highlight each message like a single | 8597 | ;; `message-form-letter-separator', i.e. highlight each message like a single |
diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el index 282465722de..958e24c39f5 100644 --- a/lisp/gnus/mm-util.el +++ b/lisp/gnus/mm-util.el | |||
| @@ -70,7 +70,7 @@ | |||
| 70 | (mm-coding-system-p 'cp932)) | 70 | (mm-coding-system-p 'cp932)) |
| 71 | '((windows-31j . cp932))) | 71 | '((windows-31j . cp932))) |
| 72 | ;; Charset name: GBK, Charset aliases: CP936, MS936, windows-936 | 72 | ;; Charset name: GBK, Charset aliases: CP936, MS936, windows-936 |
| 73 | ;; http://www.iana.org/assignments/charset-reg/GBK | 73 | ;; https://www.iana.org/assignments/charset-reg/GBK |
| 74 | ;; Emacs 22.1 has cp936, but not gbk, so we alias it: | 74 | ;; Emacs 22.1 has cp936, but not gbk, so we alias it: |
| 75 | ,@(when (and (not (mm-coding-system-p 'gbk)) | 75 | ,@(when (and (not (mm-coding-system-p 'gbk)) |
| 76 | (mm-coding-system-p 'cp936)) | 76 | (mm-coding-system-p 'cp936)) |
diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el index 69852c381d6..74af99da7e3 100644 --- a/lisp/gnus/mml-sec.el +++ b/lisp/gnus/mml-sec.el | |||
| @@ -938,9 +938,47 @@ If no one is selected, symmetric encryption will be performed. " | |||
| 938 | (signal (car error) (cdr error)))) | 938 | (signal (car error) (cdr error)))) |
| 939 | cipher)) | 939 | cipher)) |
| 940 | 940 | ||
| 941 | ;; Should probably be removed and the interface should be different. | 941 | (defun mml-secure-sender-sign-query (protocol sender) |
| 942 | (defvar mml-secure-allow-signing-with-unknown-recipient nil | 942 | "Query whether to use SENDER to sign when using PROTOCOL. |
| 943 | "Variable to bind to allow automatic recipient selection.") | 943 | PROTOCOL will be `OpenPGP' or `CMS' (smime). |
| 944 | This can also save the resulting value of | ||
| 945 | `mml-secure-smime-sign-with-sender' or | ||
| 946 | `mml-secure-openpgp-sign-with-sender' via Customize. | ||
| 947 | Returns non-nil if the user has chosen to use SENDER." | ||
| 948 | (let ((buffer (get-buffer-create "*MML sender signing options*")) | ||
| 949 | (options '((?a "always" "Sign using this sender now and sign with message sender in future.") | ||
| 950 | (?s "session only" "Sign using this sender now, and sign with message sender for this session only.") | ||
| 951 | (?n "no" "Do not sign this message (and error out)"))) | ||
| 952 | answer done val) | ||
| 953 | (save-window-excursion | ||
| 954 | (pop-to-buffer buffer) | ||
| 955 | (erase-buffer) | ||
| 956 | (insert (format "No %s signing key was found for this message.\nThe sender of this message is \"%s\".\nWould you like to attempt looking up a signing key based on it?" | ||
| 957 | (if (eq protocol 'OpenPGP) | ||
| 958 | "openpgp" "smime") | ||
| 959 | sender)) | ||
| 960 | (while (not done) | ||
| 961 | (setq answer (read-multiple-choice "Sign this message using the sender?" options)) | ||
| 962 | (cl-case (car answer) | ||
| 963 | (?a | ||
| 964 | (if (eq protocol 'OpenPGP) | ||
| 965 | (progn | ||
| 966 | (setq mml-secure-openpgp-sign-with-sender t) | ||
| 967 | (customize-save-variable | ||
| 968 | 'mml-secure-openpgp-sign-with-sender t)) | ||
| 969 | (setq mml-secure-smime-sign-with-sender t) | ||
| 970 | (customize-save-variable 'mml-secure-smime-sign-with-sender t)) | ||
| 971 | (setq done t | ||
| 972 | val t)) | ||
| 973 | (?s | ||
| 974 | (if (eq protocol 'OpenPGP) | ||
| 975 | (setq mml-secure-openpgp-sign-with-sender t) | ||
| 976 | (setq mml-secure-smime-sign-with-sender t)) | ||
| 977 | (setq done t | ||
| 978 | val t)) | ||
| 979 | (?n | ||
| 980 | (setq done t))))) | ||
| 981 | val)) | ||
| 944 | 982 | ||
| 945 | (defun mml-secure-epg-sign (protocol mode) | 983 | (defun mml-secure-epg-sign (protocol mode) |
| 946 | ;; Based on code appearing inside mml2015-epg-sign. | 984 | ;; Based on code appearing inside mml2015-epg-sign. |
| @@ -950,15 +988,21 @@ If no one is selected, symmetric encryption will be performed. " | |||
| 950 | (signers (mml-secure-signers context signer-names)) | 988 | (signers (mml-secure-signers context signer-names)) |
| 951 | signature micalg) | 989 | signature micalg) |
| 952 | (unless signers | 990 | (unless signers |
| 953 | (let ((maybe-msg | 991 | (if (and (not noninteractive) |
| 954 | (if mml-secure-smime-sign-with-sender | 992 | (mml-secure-sender-sign-query protocol sender)) |
| 955 | "." | 993 | (setq signer-names (mml-secure-signer-names protocol sender) |
| 956 | "; try setting `mml-secure-smime-sign-with-sender'."))) | 994 | signers (mml-secure-signers context signer-names))) |
| 957 | ;; If `mml-secure-smime-sign-with-sender' is already non-nil | 995 | (unless signers |
| 958 | ;; then there's no point advising the user to examine it. If | 996 | (let ((maybe-msg |
| 959 | ;; there are any other variables worth examining, please | 997 | (if (or mml-secure-smime-sign-with-sender |
| 960 | ;; improve this error message by having it mention them. | 998 | mml-secure-openpgp-sign-with-sender) |
| 961 | (unless mml-secure-allow-signing-with-unknown-recipient | 999 | "." |
| 1000 | "; try setting `mml-secure-smime-sign-with-sender' or 'mml-secure-openpgp-sign-with-sender'."))) | ||
| 1001 | ;; If `mml-secure-smime-sign-with-sender' or | ||
| 1002 | ;; `mml-secure-openpgp-sign-with-sender' are already non-nil | ||
| 1003 | ;; then there's no point advising the user to examine them. | ||
| 1004 | ;; If there are any other variables worth examining, please | ||
| 1005 | ;; improve this error message by having it mention them. | ||
| 962 | (error "Couldn't find any signer names%s" maybe-msg)))) | 1006 | (error "Couldn't find any signer names%s" maybe-msg)))) |
| 963 | (when (eq 'OpenPGP protocol) | 1007 | (when (eq 'OpenPGP protocol) |
| 964 | (setf (epg-context-armor context) t) | 1008 | (setf (epg-context-armor context) t) |
diff --git a/lisp/gnus/nndiary.el b/lisp/gnus/nndiary.el index a43eee42ad0..ccd17744993 100644 --- a/lisp/gnus/nndiary.el +++ b/lisp/gnus/nndiary.el | |||
| @@ -178,7 +178,7 @@ The hook functions will be called with the full group name as argument." | |||
| 178 | (define-obsolete-variable-alias 'nndiary-request-update-info-hooks | 178 | (define-obsolete-variable-alias 'nndiary-request-update-info-hooks |
| 179 | 'nndiary-request-update-info-functions "24.3") | 179 | 'nndiary-request-update-info-functions "24.3") |
| 180 | (defcustom nndiary-request-update-info-functions nil | 180 | (defcustom nndiary-request-update-info-functions nil |
| 181 | "Hook run after `nndiary-request-update-info-group' is executed. | 181 | "Hook run after `nndiary-request-update-info' is executed. |
| 182 | The hook functions will be called with the full group name as argument." | 182 | The hook functions will be called with the full group name as argument." |
| 183 | :group 'nndiary | 183 | :group 'nndiary |
| 184 | :type 'hook) | 184 | :type 'hook) |
diff --git a/lisp/gnus/nnmaildir.el b/lisp/gnus/nnmaildir.el index 81a148db669..68c31dc4510 100644 --- a/lisp/gnus/nnmaildir.el +++ b/lisp/gnus/nnmaildir.el | |||
| @@ -1767,7 +1767,7 @@ This variable is set by `nnmaildir-request-article'.") | |||
| 1767 | nnmaildir--cur-server nil) | 1767 | nnmaildir--cur-server nil) |
| 1768 | 1768 | ||
| 1769 | ;; This slightly obscure invocation of `alist-get' removes SERVER from | 1769 | ;; This slightly obscure invocation of `alist-get' removes SERVER from |
| 1770 | ;; `nnmaildir-servers'. | 1770 | ;; `nnmaildir--servers'. |
| 1771 | (setf (alist-get (nnmaildir--srv-address server) | 1771 | (setf (alist-get (nnmaildir--srv-address server) |
| 1772 | nnmaildir--servers server 'remove #'equal) | 1772 | nnmaildir--servers server 'remove #'equal) |
| 1773 | server)) | 1773 | server)) |
diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el index 116d7ee9fb2..48c07da1cc8 100644 --- a/lisp/gnus/nnrss.el +++ b/lisp/gnus/nnrss.el | |||
| @@ -450,7 +450,7 @@ nnrss: %s: Not valid XML %s and libxml-parse-html-region doesn't work %s" | |||
| 450 | (defun nnrss-normalize-date (date) | 450 | (defun nnrss-normalize-date (date) |
| 451 | "Return a date string of DATE in the style of RFC 822 and its successors. | 451 | "Return a date string of DATE in the style of RFC 822 and its successors. |
| 452 | This function handles the ISO 8601 date format described in | 452 | This function handles the ISO 8601 date format described in |
| 453 | URL `http://www.w3.org/TR/NOTE-datetime', and also the RFC 822 style | 453 | URL `https://www.w3.org/TR/NOTE-datetime', and also the RFC 822 style |
| 454 | which RSS 2.0 allows." | 454 | which RSS 2.0 allows." |
| 455 | (let (case-fold-search vector year month day time zone cts given) | 455 | (let (case-fold-search vector year month day time zone cts given) |
| 456 | (cond ((null date)) ; do nothing for this case | 456 | (cond ((null date)) ; do nothing for this case |
diff --git a/lisp/gnus/spam-stat.el b/lisp/gnus/spam-stat.el index 3da45a2b623..bf593865d72 100644 --- a/lisp/gnus/spam-stat.el +++ b/lisp/gnus/spam-stat.el | |||
| @@ -4,7 +4,7 @@ | |||
| 4 | 4 | ||
| 5 | ;; Author: Alex Schroeder <alex@gnu.org> | 5 | ;; Author: Alex Schroeder <alex@gnu.org> |
| 6 | ;; Keywords: network | 6 | ;; Keywords: network |
| 7 | ;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?SpamStat | 7 | ;; URL: https://www.emacswiki.org/cgi-bin/wiki.pl?SpamStat |
| 8 | 8 | ||
| 9 | ;; This file is part of GNU Emacs. | 9 | ;; This file is part of GNU Emacs. |
| 10 | 10 | ||
diff --git a/lisp/hexl.el b/lisp/hexl.el index 38eca77e260..0c31d964577 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el | |||
| @@ -886,7 +886,7 @@ and their encoded form is inserted byte by byte." | |||
| 886 | (when (null encoded) | 886 | (when (null encoded) |
| 887 | (setq internal (encode-coding-string internal 'utf-8-emacs) | 887 | (setq internal (encode-coding-string internal 'utf-8-emacs) |
| 888 | internal-hex | 888 | internal-hex |
| 889 | (mapconcat (function (lambda (c) (format "%x" c))) | 889 | (mapconcat (lambda (c) (format "%x" c)) |
| 890 | internal " ")) | 890 | internal " ")) |
| 891 | (if (yes-or-no-p | 891 | (if (yes-or-no-p |
| 892 | (format-message | 892 | (format-message |
| @@ -899,7 +899,7 @@ and their encoded form is inserted byte by byte." | |||
| 899 | (substitute-command-keys "try \\[hexl-insert-hex-string]")))) | 899 | (substitute-command-keys "try \\[hexl-insert-hex-string]")))) |
| 900 | (while (> num 0) | 900 | (while (> num 0) |
| 901 | (mapc | 901 | (mapc |
| 902 | (function (lambda (c) (hexl-insert-char c 1))) encoded) | 902 | (lambda (c) (hexl-insert-char c 1)) encoded) |
| 903 | (setq num (1- num)))))))) | 903 | (setq num (1- num)))))))) |
| 904 | 904 | ||
| 905 | (defun hexl-self-insert-command (arg) | 905 | (defun hexl-self-insert-command (arg) |
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index 1c55a23764d..a81cefacb03 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el | |||
| @@ -820,6 +820,7 @@ SPACES-REGEXP is a regexp to substitute spaces in font-lock search." | |||
| 820 | (font-lock-add-keywords nil hi-lock-file-patterns t) | 820 | (font-lock-add-keywords nil hi-lock-file-patterns t) |
| 821 | (font-lock-flush))) | 821 | (font-lock-flush))) |
| 822 | 822 | ||
| 823 | ;;;###autoload | ||
| 823 | (defun hi-lock-find-patterns () | 824 | (defun hi-lock-find-patterns () |
| 824 | "Add patterns from the current buffer to the list of hi-lock patterns." | 825 | "Add patterns from the current buffer to the list of hi-lock patterns." |
| 825 | (interactive) | 826 | (interactive) |
diff --git a/lisp/image-dired.el b/lisp/image-dired.el index 6f297672caf..a29adde8325 100644 --- a/lisp/image-dired.el +++ b/lisp/image-dired.el | |||
| @@ -60,12 +60,12 @@ | |||
| 60 | ;; ============= | 60 | ;; ============= |
| 61 | ;; | 61 | ;; |
| 62 | ;; * The ImageMagick package. Currently, `convert' and `mogrify' are | 62 | ;; * The ImageMagick package. Currently, `convert' and `mogrify' are |
| 63 | ;; used. Find it here: http://www.imagemagick.org. | 63 | ;; used. Find it here: https://www.imagemagick.org. |
| 64 | ;; | 64 | ;; |
| 65 | ;; * For non-lossy rotation of JPEG images, the JpegTRAN program is | 65 | ;; * For non-lossy rotation of JPEG images, the JpegTRAN program is |
| 66 | ;; needed. | 66 | ;; needed. |
| 67 | ;; | 67 | ;; |
| 68 | ;; * For `image-dired-get-exif-data' and `image-dired-write-exif-data' to work, | 68 | ;; * For `image-dired-get-exif-data' and `image-dired-set-exif-data' to work, |
| 69 | ;; the command line tool `exiftool' is needed. It can be found here: | 69 | ;; the command line tool `exiftool' is needed. It can be found here: |
| 70 | ;; http://www.sno.phy.queensu.ca/~phil/exiftool/. These two functions | 70 | ;; http://www.sno.phy.queensu.ca/~phil/exiftool/. These two functions |
| 71 | ;; are, among other things, used for writing comments to image files | 71 | ;; are, among other things, used for writing comments to image files |
| @@ -205,7 +205,7 @@ the index.html page that image-dired creates." | |||
| 205 | :group 'image-dired) | 205 | :group 'image-dired) |
| 206 | 206 | ||
| 207 | (defcustom image-dired-gallery-image-root-url | 207 | (defcustom image-dired-gallery-image-root-url |
| 208 | "http://your.own.server/image-diredpics" | 208 | "https://your.own.server/image-diredpics" |
| 209 | "URL where the full size images are to be found. | 209 | "URL where the full size images are to be found. |
| 210 | Note that this path has to be configured in your web server. Image-Dired | 210 | Note that this path has to be configured in your web server. Image-Dired |
| 211 | expects to find pictures in this directory." | 211 | expects to find pictures in this directory." |
| @@ -213,7 +213,7 @@ expects to find pictures in this directory." | |||
| 213 | :group 'image-dired) | 213 | :group 'image-dired) |
| 214 | 214 | ||
| 215 | (defcustom image-dired-gallery-thumb-image-root-url | 215 | (defcustom image-dired-gallery-thumb-image-root-url |
| 216 | "http://your.own.server/image-diredthumbs" | 216 | "https://your.own.server/image-diredthumbs" |
| 217 | "URL where the thumbnail images are to be found. | 217 | "URL where the thumbnail images are to be found. |
| 218 | Note that this path has to be configured in your web server. Image-Dired | 218 | Note that this path has to be configured in your web server. Image-Dired |
| 219 | expects to find pictures in this directory." | 219 | expects to find pictures in this directory." |
| @@ -309,7 +309,7 @@ temporary file name (typically generated by pnqnq)." | |||
| 309 | :group 'image-dired) | 309 | :group 'image-dired) |
| 310 | 310 | ||
| 311 | (defcustom image-dired-cmd-optipng-options '("-o5" "%t") | 311 | (defcustom image-dired-cmd-optipng-options '("-o5" "%t") |
| 312 | "Arguments passed to `image-dired-optipng-program'. | 312 | "Arguments passed to `image-dired-cmd-optipng-program'. |
| 313 | Available format specifiers are described in | 313 | Available format specifiers are described in |
| 314 | `image-dired-cmd-create-thumbnail-options'." | 314 | `image-dired-cmd-create-thumbnail-options'." |
| 315 | :version "26.1" | 315 | :version "26.1" |
diff --git a/lisp/image.el b/lisp/image.el index 4b2faa992fc..9ebb603086e 100644 --- a/lisp/image.el +++ b/lisp/image.el | |||
| @@ -841,7 +841,7 @@ multiplication factor for the current value." | |||
| 841 | N=0 refers to the initial animation frame. | 841 | N=0 refers to the initial animation frame. |
| 842 | COUNT is the total number of frames in the animation. | 842 | COUNT is the total number of frames in the animation. |
| 843 | TIME-ELAPSED is the total time that has elapsed since | 843 | TIME-ELAPSED is the total time that has elapsed since |
| 844 | `image-animate-start' was called. | 844 | `image-animate' was called. |
| 845 | LIMIT determines when to stop. If t, loop forever. If nil, stop | 845 | LIMIT determines when to stop. If t, loop forever. If nil, stop |
| 846 | after displaying the last animation frame. Otherwise, stop | 846 | after displaying the last animation frame. Otherwise, stop |
| 847 | after LIMIT seconds have elapsed. | 847 | after LIMIT seconds have elapsed. |
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index b7656d9c1a7..0b6920cf180 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el | |||
| @@ -60,7 +60,7 @@ Vietnamese") | |||
| 60 | ;; For each group (row) of 2-byte character sets. | 60 | ;; For each group (row) of 2-byte character sets. |
| 61 | 61 | ||
| 62 | (define-category ?A "2-byte alnum | 62 | (define-category ?A "2-byte alnum |
| 63 | Alpha-numeric characters of 2-byte character sets") | 63 | Alphanumeric characters of 2-byte character sets") |
| 64 | (define-category ?C "2-byte han | 64 | (define-category ?C "2-byte han |
| 65 | Chinese (Han) characters of 2-byte character sets") | 65 | Chinese (Han) characters of 2-byte character sets") |
| 66 | (define-category ?G "2-byte Greek | 66 | (define-category ?G "2-byte Greek |
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index a6dcd02dc68..2da8635f80b 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el | |||
| @@ -795,7 +795,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"." | |||
| 795 | (forward-line 1))) | 795 | (forward-line 1))) |
| 796 | (maphash #'(lambda (key val) (setq dic (cons (cons key val) dic))) | 796 | (maphash #'(lambda (key val) (setq dic (cons (cons key val) dic))) |
| 797 | table))) | 797 | table))) |
| 798 | (setq dic (sort dic (function (lambda (x y) (string< (car x ) (car y)))))) | 798 | (setq dic (sort dic (lambda (x y) (string< (car x ) (car y))))) |
| 799 | (dolist (elt dic) | 799 | (dolist (elt dic) |
| 800 | (insert (format "(%S\t%S)\n" (car elt) (cdr elt)))) | 800 | (insert (format "(%S\t%S)\n" (car elt) (cdr elt)))) |
| 801 | (let ((punctuation '((";" "$(0!'!2!"!#!.!/(B" "$(G!'!2!"!#!.!/(B") | 801 | (let ((punctuation '((";" "$(0!'!2!"!#!.!/(B" "$(G!'!2!"!#!.!/(B") |
| @@ -956,7 +956,7 @@ method `chinese-tonepy' with which you must specify tones by digits | |||
| 956 | (setq trans (mapconcat 'identity trans ""))))) | 956 | (setq trans (mapconcat 'identity trans ""))))) |
| 957 | (setq dic (cons (cons key trans) dic))) | 957 | (setq dic (cons (cons key trans) dic))) |
| 958 | table))) | 958 | table))) |
| 959 | (setq dic (sort dic (function (lambda (x y) (string< (car x) (car y)))))) | 959 | (setq dic (sort dic (lambda (x y) (string< (car x) (car y))))) |
| 960 | (goto-char (point-max)) | 960 | (goto-char (point-max)) |
| 961 | (insert (format "%S\n" "$A::WVJdHk!K!>WTH;!?!K(B | 961 | (insert (format "%S\n" "$A::WVJdHk!K!>WTH;!?!K(B |
| 962 | 962 | ||
diff --git a/lisp/international/ucs-normalize.el b/lisp/international/ucs-normalize.el index 6b7419fa4cd..33d0f0dda29 100644 --- a/lisp/international/ucs-normalize.el +++ b/lisp/international/ucs-normalize.el | |||
| @@ -25,8 +25,8 @@ | |||
| 25 | ;; This program has passed the NormalizationTest-5.2.0.txt. | 25 | ;; This program has passed the NormalizationTest-5.2.0.txt. |
| 26 | ;; | 26 | ;; |
| 27 | ;; References: | 27 | ;; References: |
| 28 | ;; http://www.unicode.org/reports/tr15/ | 28 | ;; https://www.unicode.org/reports/tr15/ |
| 29 | ;; http://www.unicode.org/review/pr-29.html | 29 | ;; https://www.unicode.org/review/pr-29.html |
| 30 | ;; | 30 | ;; |
| 31 | ;; HFS-Normalization: | 31 | ;; HFS-Normalization: |
| 32 | ;; Reference: | 32 | ;; Reference: |
| @@ -131,7 +131,7 @@ | |||
| 131 | #x1D1BF #x1D1C0) | 131 | #x1D1BF #x1D1C0) |
| 132 | "Composition Exclusion List. | 132 | "Composition Exclusion List. |
| 133 | This list is taken from | 133 | This list is taken from |
| 134 | http://www.unicode.org/Public/UNIDATA/5.2/CompositionExclusions.txt") | 134 | https://www.unicode.org/Public/UNIDATA/5.2/CompositionExclusions.txt") |
| 135 | 135 | ||
| 136 | ;; Unicode ranges that decompositions & combining characters are defined. | 136 | ;; Unicode ranges that decompositions & combining characters are defined. |
| 137 | (defvar check-range nil) | 137 | (defvar check-range nil) |
diff --git a/lisp/isearch.el b/lisp/isearch.el index 4e964b325cd..781a8c5a93a 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -271,9 +271,8 @@ are `word-search-regexp' \(`\\[isearch-toggle-word]'), `isearch-symbol-regexp' | |||
| 271 | 271 | ||
| 272 | (defcustom search-highlight-submatches t | 272 | (defcustom search-highlight-submatches t |
| 273 | "Whether to highlight regexp subexpressions of the current regexp match. | 273 | "Whether to highlight regexp subexpressions of the current regexp match. |
| 274 | 274 | The faces used to do the highlights are named `isearch-group-odd' and | |
| 275 | The faces used to do the highlights are named `isearch-group-1', | 275 | `isearch-group-even'." |
| 276 | `isearch-group-2', and so on." | ||
| 277 | :type 'boolean | 276 | :type 'boolean |
| 278 | :version "28.1") | 277 | :version "28.1") |
| 279 | 278 | ||
| @@ -3664,97 +3663,26 @@ since they have special meaning in a regexp." | |||
| 3664 | (defvar isearch-overlay nil) | 3663 | (defvar isearch-overlay nil) |
| 3665 | (defvar isearch-submatches-overlays nil) | 3664 | (defvar isearch-submatches-overlays nil) |
| 3666 | 3665 | ||
| 3667 | (defface isearch-group-1 | 3666 | (defface isearch-group-odd |
| 3668 | '((((class color) (min-colors 88) (background light)) | 3667 | '((((class color) (min-colors 88) (background light)) |
| 3669 | (:background "#ff00ff" :foreground "lightskyblue1")) | 3668 | (:background "#ff00ff" :foreground "lightskyblue1")) |
| 3670 | (((class color) (min-colors 88) (background dark)) | 3669 | (((class color) (min-colors 88) (background dark)) |
| 3671 | (:background "palevioletred3" :foreground "brown4")) | 3670 | (:background "palevioletred3" :foreground "brown4")) |
| 3672 | (t (:inherit isearch))) | 3671 | (t (:inherit isearch))) |
| 3673 | "Face for highlighting Isearch sub-group matches (first sub-group)." | 3672 | "Face for highlighting Isearch the odd group matches." |
| 3674 | :group 'isearch | ||
| 3675 | :version "28.1") | ||
| 3676 | |||
| 3677 | (defface isearch-group-2 | ||
| 3678 | '((((class color) (min-colors 88) (background light)) | ||
| 3679 | (:background "#d000d0" :foreground "lightskyblue1")) | ||
| 3680 | (((class color) (min-colors 88) (background dark)) | ||
| 3681 | (:background "#be698f" :foreground "black")) | ||
| 3682 | (t (:inherit isearch))) | ||
| 3683 | "Face for highlighting Isearch sub-group matches (second sub-group)." | ||
| 3684 | :group 'isearch | ||
| 3685 | :version "28.1") | ||
| 3686 | |||
| 3687 | (defface isearch-group-3 | ||
| 3688 | '((((class color) (min-colors 88) (background light)) | ||
| 3689 | (:background "#a000a0" :foreground "lightskyblue1")) | ||
| 3690 | (((class color) (min-colors 88) (background dark)) | ||
| 3691 | (:background "#a06080" :foreground "brown4")) | ||
| 3692 | (t (:inherit isearch))) | ||
| 3693 | "Face for highlighting Isearch sub-group matches (third sub-group)." | ||
| 3694 | :group 'isearch | 3673 | :group 'isearch |
| 3695 | :version "28.1") | 3674 | :version "28.1") |
| 3696 | 3675 | ||
| 3697 | (defface isearch-group-4 | 3676 | (defface isearch-group-even |
| 3698 | '((((class color) (min-colors 88) (background light)) | 3677 | '((((class color) (min-colors 88) (background light)) |
| 3699 | (:background "#800080" :foreground "lightskyblue1")) | 3678 | (:background "#800080" :foreground "lightskyblue1")) |
| 3700 | (((class color) (min-colors 88) (background dark)) | 3679 | (((class color) (min-colors 88) (background dark)) |
| 3701 | (:background "#905070" :foreground "brown4")) | 3680 | (:background "#905070" :foreground "brown4")) |
| 3702 | (t (:inherit isearch))) | 3681 | (t (:inherit isearch))) |
| 3703 | "Face for highlighting Isearch sub-group matches (fourth sub-group)." | 3682 | "Face for highlighting Isearch the even group matches." |
| 3704 | :group 'isearch | ||
| 3705 | :version "28.1") | ||
| 3706 | |||
| 3707 | (defface isearch-group-5 | ||
| 3708 | '((((class color) (min-colors 88) (background light)) | ||
| 3709 | (:background "#600060" :foreground "lightskyblue1")) | ||
| 3710 | (((class color) (min-colors 88) (background dark)) | ||
| 3711 | (:background "#804060" :foreground "black")) | ||
| 3712 | (t (:inherit isearch))) | ||
| 3713 | "Face for highlighting Isearch sub-group matches (fifth sub-group)." | ||
| 3714 | :group 'isearch | ||
| 3715 | :version "28.1") | ||
| 3716 | |||
| 3717 | (defface isearch-group-6 | ||
| 3718 | '((((class color) (min-colors 88) (background light)) | ||
| 3719 | (:background "#500050" :foreground "lightskyblue1")) | ||
| 3720 | (((class color) (min-colors 88) (background dark)) | ||
| 3721 | (:background "#703050" :foreground "white")) | ||
| 3722 | (t (:inherit isearch))) | ||
| 3723 | "Face for highlighting Isearch sub-group matches (sixth sub-group)." | ||
| 3724 | :group 'isearch | ||
| 3725 | :version "28.1") | ||
| 3726 | |||
| 3727 | (defface isearch-group-7 | ||
| 3728 | '((((class color) (min-colors 88) (background light)) | ||
| 3729 | (:background "#400040" :foreground "lightskyblue1")) | ||
| 3730 | (((class color) (min-colors 88) (background dark)) | ||
| 3731 | (:background "#602050" :foreground "white")) | ||
| 3732 | (t (:inherit isearch))) | ||
| 3733 | "Face for highlighting Isearch sub-group matches (seventh sub-group)." | ||
| 3734 | :group 'isearch | ||
| 3735 | :version "28.1") | ||
| 3736 | |||
| 3737 | (defface isearch-group-8 | ||
| 3738 | '((((class color) (min-colors 88) (background light)) | ||
| 3739 | (:background "#300030" :foreground "lightskyblue1")) | ||
| 3740 | (((class color) (min-colors 88) (background dark)) | ||
| 3741 | (:background "#501050" :foreground "white")) | ||
| 3742 | (t (:inherit isearch))) | ||
| 3743 | "Face for highlighting Isearch sub-group matches (eighth sub-group)." | ||
| 3744 | :group 'isearch | 3683 | :group 'isearch |
| 3745 | :version "28.1") | 3684 | :version "28.1") |
| 3746 | 3685 | ||
| 3747 | (defface isearch-group-9 | ||
| 3748 | '((((class color) (min-colors 88) (background light)) | ||
| 3749 | (:background "#200020" :foreground "lightskyblue1")) | ||
| 3750 | (((class color) (min-colors 88) (background dark)) | ||
| 3751 | (:background "#400040" :foreground "white")) | ||
| 3752 | (t (:inherit isearch))) | ||
| 3753 | "Face for highlighting Isearch sub-group matches (ninth sub-group)." | ||
| 3754 | :group 'isearch | ||
| 3755 | :version "28.1") | ||
| 3756 | |||
| 3757 | |||
| 3758 | (defun isearch-highlight (beg end) | 3686 | (defun isearch-highlight (beg end) |
| 3759 | (if search-highlight | 3687 | (if search-highlight |
| 3760 | (if isearch-overlay | 3688 | (if isearch-overlay |
| @@ -3769,14 +3697,14 @@ since they have special meaning in a regexp." | |||
| 3769 | isearch-regexp) | 3697 | isearch-regexp) |
| 3770 | (mapc 'delete-overlay isearch-submatches-overlays) | 3698 | (mapc 'delete-overlay isearch-submatches-overlays) |
| 3771 | (setq isearch-submatches-overlays nil) | 3699 | (setq isearch-submatches-overlays nil) |
| 3772 | (let ((i 0) ov) | 3700 | (dotimes (i (/ (length (match-data)) 2)) |
| 3773 | (while (<= i 9) | 3701 | (unless (zerop i) |
| 3774 | (when (match-beginning i) | 3702 | (let ((ov (make-overlay (match-beginning i) (match-end i)))) |
| 3775 | (setq ov (make-overlay (match-beginning i) (match-end i))) | 3703 | (overlay-put ov 'face (if (zerop (mod i 2)) |
| 3776 | (overlay-put ov 'face (intern-soft (format "isearch-group-%d" i))) | 3704 | 'isearch-group-even |
| 3705 | 'isearch-group-odd)) | ||
| 3777 | (overlay-put ov 'priority 1002) | 3706 | (overlay-put ov 'priority 1002) |
| 3778 | (push ov isearch-submatches-overlays)) | 3707 | (push ov isearch-submatches-overlays)))))) |
| 3779 | (setq i (1+ i)))))) | ||
| 3780 | 3708 | ||
| 3781 | (defun isearch-dehighlight () | 3709 | (defun isearch-dehighlight () |
| 3782 | (when isearch-overlay | 3710 | (when isearch-overlay |
diff --git a/lisp/jsonrpc.el b/lisp/jsonrpc.el index b319bf6e924..ffbc253a976 100644 --- a/lisp/jsonrpc.el +++ b/lisp/jsonrpc.el | |||
| @@ -239,8 +239,8 @@ JSON object. | |||
| 239 | The caller can expect SUCCESS-FN or ERROR-FN to be called with a | 239 | The caller can expect SUCCESS-FN or ERROR-FN to be called with a |
| 240 | JSONRPC `:result' or `:error' object, respectively. If this | 240 | JSONRPC `:result' or `:error' object, respectively. If this |
| 241 | doesn't happen after TIMEOUT seconds (defaults to | 241 | doesn't happen after TIMEOUT seconds (defaults to |
| 242 | `jsonrpc-request-timeout'), the caller can expect TIMEOUT-FN to be | 242 | `jrpc-default-request-timeout'), the caller can expect TIMEOUT-FN |
| 243 | called with no arguments. The default values of SUCCESS-FN, | 243 | to be called with no arguments. The default values of SUCCESS-FN, |
| 244 | ERROR-FN and TIMEOUT-FN simply log the events into | 244 | ERROR-FN and TIMEOUT-FN simply log the events into |
| 245 | `jsonrpc-events-buffer'. | 245 | `jsonrpc-events-buffer'. |
| 246 | 246 | ||
| @@ -649,7 +649,7 @@ TIMEOUT is nil)." | |||
| 649 | (if (jsonrpc-connection-ready-p connection deferred) | 649 | (if (jsonrpc-connection-ready-p connection deferred) |
| 650 | ;; Server is ready, we jump below and send it immediately. | 650 | ;; Server is ready, we jump below and send it immediately. |
| 651 | (remhash (list deferred buf) (jsonrpc--deferred-actions connection)) | 651 | (remhash (list deferred buf) (jsonrpc--deferred-actions connection)) |
| 652 | ;; Otherwise, save in `eglot--deferred-actions' and exit non-locally | 652 | ;; Otherwise, save in `jsonrpc--deferred-actions' and exit non-locally |
| 653 | (unless old-id | 653 | (unless old-id |
| 654 | (jsonrpc--debug connection `(:deferring ,method :id ,id :params | 654 | (jsonrpc--debug connection `(:deferring ,method :id ,id :params |
| 655 | ,params))) | 655 | ,params))) |
diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el index 8684cdb1338..04369f6af87 100644 --- a/lisp/language/tibet-util.el +++ b/lisp/language/tibet-util.el | |||
| @@ -275,7 +275,7 @@ The returned string has no composition information." | |||
| 275 | (compose-region from to components))))))) | 275 | (compose-region from to components))))))) |
| 276 | 276 | ||
| 277 | (defvar tibetan-decompose-precomposition-alist | 277 | (defvar tibetan-decompose-precomposition-alist |
| 278 | (mapcar (function (lambda (x) (cons (string-to-char (cdr x)) (car x)))) | 278 | (mapcar (lambda (x) (cons (string-to-char (cdr x)) (car x))) |
| 279 | tibetan-precomposition-rule-alist)) | 279 | tibetan-precomposition-rule-alist)) |
| 280 | 280 | ||
| 281 | ;;;###autoload | 281 | ;;;###autoload |
diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index 40a4150628a..3260b67a993 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el | |||
| @@ -1528,7 +1528,7 @@ ENTRY is the name of a password-store entry. | |||
| 1528 | The key used to retrieve the password is the symbol `secret'. | 1528 | The key used to retrieve the password is the symbol `secret'. |
| 1529 | 1529 | ||
| 1530 | The convention used as the format for a password-store file is | 1530 | The convention used as the format for a password-store file is |
| 1531 | the following (see http://www.passwordstore.org/#organization): | 1531 | the following (see https://www.passwordstore.org/#organization): |
| 1532 | 1532 | ||
| 1533 | secret | 1533 | secret |
| 1534 | key1: value1 | 1534 | key1: value1 |
| @@ -5950,12 +5950,12 @@ Variables controlling indentation style: | |||
| 5950 | `cperl-min-label-indent' | 5950 | `cperl-min-label-indent' |
| 5951 | Minimal indentation for line that is a label. | 5951 | Minimal indentation for line that is a label. |
| 5952 | 5952 | ||
| 5953 | Settings for classic indent-styles: K&R BSD=C++ GNU PerlStyle=Whitesmith | 5953 | Settings for classic indent-styles: K&R BSD=C++ GNU PBP PerlStyle=Whitesmith |
| 5954 | `cperl-indent-level' 5 4 2 4 | 5954 | `cperl-indent-level' 5 4 2 4 4 |
| 5955 | `cperl-brace-offset' 0 0 0 0 | 5955 | `cperl-brace-offset' 0 0 0 0 0 |
| 5956 | `cperl-continued-brace-offset' -5 -4 0 0 | 5956 | `cperl-continued-brace-offset' -5 -4 0 0 0 |
| 5957 | `cperl-label-offset' -5 -4 -2 -4 | 5957 | `cperl-label-offset' -5 -4 -2 -2 -4 |
| 5958 | `cperl-continued-statement-offset' 5 4 2 4 | 5958 | `cperl-continued-statement-offset' 5 4 2 4 4 |
| 5959 | 5959 | ||
| 5960 | CPerl knows several indentation styles, and may bulk set the | 5960 | CPerl knows several indentation styles, and may bulk set the |
| 5961 | corresponding variables. Use \\[cperl-set-style] to do this. Use | 5961 | corresponding variables. Use \\[cperl-set-style] to do this. Use |
| @@ -6726,7 +6726,7 @@ Create a new data-debug buffer with NAME. | |||
| 6726 | (autoload 'dbus-handle-event "dbus" "\ | 6726 | (autoload 'dbus-handle-event "dbus" "\ |
| 6727 | Handle events from the D-Bus. | 6727 | Handle events from the D-Bus. |
| 6728 | EVENT is a D-Bus event, see `dbus-check-event'. HANDLER, being | 6728 | EVENT is a D-Bus event, see `dbus-check-event'. HANDLER, being |
| 6729 | part of the event, is called with arguments ARGS. | 6729 | part of the event, is called with arguments ARGS (without type information). |
| 6730 | If the HANDLER returns a `dbus-error', it is propagated as return message. | 6730 | If the HANDLER returns a `dbus-error', it is propagated as return message. |
| 6731 | 6731 | ||
| 6732 | \(fn EVENT)" t nil) | 6732 | \(fn EVENT)" t nil) |
| @@ -7762,6 +7762,23 @@ Keybindings: | |||
| 7762 | \(fn &optional DIRNAME SWITCHES)" nil nil) | 7762 | \(fn &optional DIRNAME SWITCHES)" nil nil) |
| 7763 | (put 'dired-find-alternate-file 'disabled t) | 7763 | (put 'dired-find-alternate-file 'disabled t) |
| 7764 | 7764 | ||
| 7765 | (autoload 'dired-jump "dired" "\ | ||
| 7766 | Jump to Dired buffer corresponding to current buffer. | ||
| 7767 | If in a file, Dired the current directory and move to file's line. | ||
| 7768 | If in Dired already, pop up a level and goto old directory's line. | ||
| 7769 | In case the proper Dired file line cannot be found, refresh the dired | ||
| 7770 | buffer and try again. | ||
| 7771 | When OTHER-WINDOW is non-nil, jump to Dired buffer in other window. | ||
| 7772 | When FILE-NAME is non-nil, jump to its line in Dired. | ||
| 7773 | Interactively with prefix argument, read FILE-NAME. | ||
| 7774 | |||
| 7775 | \(fn &optional OTHER-WINDOW FILE-NAME)" t nil) | ||
| 7776 | |||
| 7777 | (autoload 'dired-jump-other-window "dired" "\ | ||
| 7778 | Like \\[dired-jump] (`dired-jump') but in other window. | ||
| 7779 | |||
| 7780 | \(fn &optional FILE-NAME)" t nil) | ||
| 7781 | |||
| 7765 | (register-definition-prefixes "dired" '("dired-")) | 7782 | (register-definition-prefixes "dired" '("dired-")) |
| 7766 | 7783 | ||
| 7767 | ;;;*** | 7784 | ;;;*** |
| @@ -8300,9 +8317,6 @@ BODY contains code to execute each time the mode is enabled or disabled. | |||
| 8300 | the minor mode is global): | 8317 | the minor mode is global): |
| 8301 | 8318 | ||
| 8302 | :group GROUP Custom group name to use in all generated `defcustom' forms. | 8319 | :group GROUP Custom group name to use in all generated `defcustom' forms. |
| 8303 | Defaults to MODE without the possible trailing \"-mode\". | ||
| 8304 | Don't use this default group name unless you have written a | ||
| 8305 | `defgroup' to define that group properly. | ||
| 8306 | :global GLOBAL If non-nil specifies that the minor mode is not meant to be | 8320 | :global GLOBAL If non-nil specifies that the minor mode is not meant to be |
| 8307 | buffer-local, so don't make the variable MODE buffer-local. | 8321 | buffer-local, so don't make the variable MODE buffer-local. |
| 8308 | By default, the mode is buffer-local. | 8322 | By default, the mode is buffer-local. |
| @@ -10028,7 +10042,7 @@ It creates an autoload function for CNAME's constructor. | |||
| 10028 | 10042 | ||
| 10029 | ;;;### (autoloads nil "eldoc" "emacs-lisp/eldoc.el" (0 0 0 0)) | 10043 | ;;;### (autoloads nil "eldoc" "emacs-lisp/eldoc.el" (0 0 0 0)) |
| 10030 | ;;; Generated autoloads from emacs-lisp/eldoc.el | 10044 | ;;; Generated autoloads from emacs-lisp/eldoc.el |
| 10031 | (push (purecopy '(eldoc 1 9 0)) package--builtin-versions) | 10045 | (push (purecopy '(eldoc 1 10 0)) package--builtin-versions) |
| 10032 | 10046 | ||
| 10033 | ;;;*** | 10047 | ;;;*** |
| 10034 | 10048 | ||
| @@ -10292,7 +10306,7 @@ displayed." t nil) | |||
| 10292 | ;;;;;; (0 0 0 0)) | 10306 | ;;;;;; (0 0 0 0)) |
| 10293 | ;;; Generated autoloads from eshell/em-unix.el | 10307 | ;;; Generated autoloads from eshell/em-unix.el |
| 10294 | 10308 | ||
| 10295 | (register-definition-prefixes "em-unix" '("eshell" "nil-blank-string" "pcomplete/")) | 10309 | (register-definition-prefixes "em-unix" '("eshell" "nil-blank-string")) |
| 10296 | 10310 | ||
| 10297 | ;;;*** | 10311 | ;;;*** |
| 10298 | 10312 | ||
| @@ -10300,7 +10314,7 @@ displayed." t nil) | |||
| 10300 | ;;;;;; (0 0 0 0)) | 10314 | ;;;;;; (0 0 0 0)) |
| 10301 | ;;; Generated autoloads from eshell/em-xtra.el | 10315 | ;;; Generated autoloads from eshell/em-xtra.el |
| 10302 | 10316 | ||
| 10303 | (register-definition-prefixes "em-xtra" '("eshell/" "pcomplete/bcc")) | 10317 | (register-definition-prefixes "em-xtra" '("eshell/")) |
| 10304 | 10318 | ||
| 10305 | ;;;*** | 10319 | ;;;*** |
| 10306 | 10320 | ||
| @@ -10349,7 +10363,15 @@ Already submitted bugs can be found in the Emacs bug tracker: | |||
| 10349 | 10363 | ||
| 10350 | (set-advertised-calling-convention 'report-emacs-bug '(topic) '"24.5") | 10364 | (set-advertised-calling-convention 'report-emacs-bug '(topic) '"24.5") |
| 10351 | 10365 | ||
| 10352 | (register-definition-prefixes "emacsbug" '("report-emacs-bug-")) | 10366 | (autoload 'submit-emacs-patch "emacsbug" "\ |
| 10367 | Send an Emacs patch to the Emacs maintainers. | ||
| 10368 | Interactively, you will be prompted for SUBJECT and a patch FILE | ||
| 10369 | name (which will be attached to the mail). You will end up in a | ||
| 10370 | Message buffer where you can explain more about the patch. | ||
| 10371 | |||
| 10372 | \(fn SUBJECT FILE)" t nil) | ||
| 10373 | |||
| 10374 | (register-definition-prefixes "emacsbug" '("emacs-bug--system-description" "report-emacs-bug-")) | ||
| 10353 | 10375 | ||
| 10354 | ;;;*** | 10376 | ;;;*** |
| 10355 | 10377 | ||
| @@ -11106,6 +11128,14 @@ Interactively select a server to connect to using `erc-server-alist'." t nil) | |||
| 11106 | 11128 | ||
| 11107 | ;;;*** | 11129 | ;;;*** |
| 11108 | 11130 | ||
| 11131 | ;;;### (autoloads "actual autoloads are elsewhere" "erc-status-sidebar" | ||
| 11132 | ;;;;;; "erc/erc-status-sidebar.el" (0 0 0 0)) | ||
| 11133 | ;;; Generated autoloads from erc/erc-status-sidebar.el | ||
| 11134 | |||
| 11135 | (register-definition-prefixes "erc-status-sidebar" '("erc-status-sidebar-")) | ||
| 11136 | |||
| 11137 | ;;;*** | ||
| 11138 | |||
| 11109 | ;;;### (autoloads "actual autoloads are elsewhere" "erc-track" "erc/erc-track.el" | 11139 | ;;;### (autoloads "actual autoloads are elsewhere" "erc-track" "erc/erc-track.el" |
| 11110 | ;;;;;; (0 0 0 0)) | 11140 | ;;;;;; (0 0 0 0)) |
| 11111 | ;;; Generated autoloads from erc/erc-track.el | 11141 | ;;; Generated autoloads from erc/erc-track.el |
| @@ -11253,6 +11283,11 @@ Emacs shell interactive mode. | |||
| 11253 | 11283 | ||
| 11254 | \(fn)" t nil) | 11284 | \(fn)" t nil) |
| 11255 | 11285 | ||
| 11286 | (autoload 'eshell-bookmark-jump "esh-mode" "\ | ||
| 11287 | Default bookmark handler for Eshell buffers. | ||
| 11288 | |||
| 11289 | \(fn BOOKMARK)" nil nil) | ||
| 11290 | |||
| 11256 | (register-definition-prefixes "esh-mode" '("eshell")) | 11291 | (register-definition-prefixes "esh-mode" '("eshell")) |
| 11257 | 11292 | ||
| 11258 | ;;;*** | 11293 | ;;;*** |
| @@ -11599,7 +11634,7 @@ Do `query-replace-regexp' of FROM with TO on all files listed in tags table. | |||
| 11599 | Third arg DELIMITED (prefix arg) means replace only word-delimited matches. | 11634 | Third arg DELIMITED (prefix arg) means replace only word-delimited matches. |
| 11600 | If you exit (\\[keyboard-quit], RET or q), you can resume the query replace | 11635 | If you exit (\\[keyboard-quit], RET or q), you can resume the query replace |
| 11601 | with the command \\[tags-loop-continue]. | 11636 | with the command \\[tags-loop-continue]. |
| 11602 | For non-interactive use, superceded by `fileloop-initialize-replace'. | 11637 | For non-interactive use, superseded by `fileloop-initialize-replace'. |
| 11603 | 11638 | ||
| 11604 | \(fn FROM TO &optional DELIMITED FILES)" t nil) | 11639 | \(fn FROM TO &optional DELIMITED FILES)" t nil) |
| 11605 | 11640 | ||
| @@ -12818,6 +12853,9 @@ The command run (after changing into DIR) is essentially | |||
| 12818 | except that the car of the variable `find-ls-option' specifies what to | 12853 | except that the car of the variable `find-ls-option' specifies what to |
| 12819 | use in place of \"-ls\" as the final argument. | 12854 | use in place of \"-ls\" as the final argument. |
| 12820 | 12855 | ||
| 12856 | Collect output in the \"*Find*\" buffer. To kill the job before | ||
| 12857 | it finishes, type \\[kill-find]. | ||
| 12858 | |||
| 12821 | \(fn DIR ARGS)" t nil) | 12859 | \(fn DIR ARGS)" t nil) |
| 12822 | 12860 | ||
| 12823 | (autoload 'find-name-dired "find-dired" "\ | 12861 | (autoload 'find-name-dired "find-dired" "\ |
| @@ -14112,6 +14150,10 @@ instead (which see).") | |||
| 14112 | (autoload 'define-generic-mode "generic" "\ | 14150 | (autoload 'define-generic-mode "generic" "\ |
| 14113 | Create a new generic mode MODE. | 14151 | Create a new generic mode MODE. |
| 14114 | 14152 | ||
| 14153 | A \"generic\" mode is a simple major mode with basic support for | ||
| 14154 | comment syntax and Font Lock mode, but otherwise does not have | ||
| 14155 | any special keystrokes or functionality available. | ||
| 14156 | |||
| 14115 | MODE is the name of the command for the generic mode; don't quote it. | 14157 | MODE is the name of the command for the generic mode; don't quote it. |
| 14116 | The optional DOCSTRING is the documentation for the mode command. If | 14158 | The optional DOCSTRING is the documentation for the mode command. If |
| 14117 | you do not supply it, `define-generic-mode' uses a default | 14159 | you do not supply it, `define-generic-mode' uses a default |
| @@ -17590,7 +17632,7 @@ The main features of this mode are | |||
| 17590 | \\[idlwave-info] to display (complain to your sysadmin if that does | 17632 | \\[idlwave-info] to display (complain to your sysadmin if that does |
| 17591 | not work). For Postscript, PDF, and HTML versions of the | 17633 | not work). For Postscript, PDF, and HTML versions of the |
| 17592 | documentation, check IDLWAVE's homepage at URL | 17634 | documentation, check IDLWAVE's homepage at URL |
| 17593 | `http://github.com/jdtsmith/idlwave'. | 17635 | `https://github.com/jdtsmith/idlwave'. |
| 17594 | IDLWAVE has customize support - see the group `idlwave'. | 17636 | IDLWAVE has customize support - see the group `idlwave'. |
| 17595 | 17637 | ||
| 17596 | 10.Keybindings | 17638 | 10.Keybindings |
| @@ -21608,7 +21650,7 @@ upper atmosphere. These cause momentary pockets of higher-pressure | |||
| 21608 | air to form, which act as lenses that deflect incoming cosmic rays, | 21650 | air to form, which act as lenses that deflect incoming cosmic rays, |
| 21609 | focusing them to strike the drive platter and flip the desired bit. | 21651 | focusing them to strike the drive platter and flip the desired bit. |
| 21610 | You can type `M-x butterfly C-M-c' to run it. This is a permuted | 21652 | You can type `M-x butterfly C-M-c' to run it. This is a permuted |
| 21611 | variation of `C-x M-c M-butterfly' from url `http://xkcd.com/378/'." t nil) | 21653 | variation of `C-x M-c M-butterfly' from url `https://xkcd.com/378/'." t nil) |
| 21612 | 21654 | ||
| 21613 | (autoload 'list-dynamic-libraries "misc" "\ | 21655 | (autoload 'list-dynamic-libraries "misc" "\ |
| 21614 | Display a list of all dynamic libraries known to Emacs. | 21656 | Display a list of all dynamic libraries known to Emacs. |
| @@ -22130,6 +22172,12 @@ different buffer menu using the function `msb'. | |||
| 22130 | ;;;### (autoloads nil "mspools" "mail/mspools.el" (0 0 0 0)) | 22172 | ;;;### (autoloads nil "mspools" "mail/mspools.el" (0 0 0 0)) |
| 22131 | ;;; Generated autoloads from mail/mspools.el | 22173 | ;;; Generated autoloads from mail/mspools.el |
| 22132 | 22174 | ||
| 22175 | (autoload 'mspools-show "mspools" "\ | ||
| 22176 | Show the list of non-empty spool files in the *spools* buffer. | ||
| 22177 | Buffer is not displayed if SHOW is non-nil. | ||
| 22178 | |||
| 22179 | \(fn &optional NOSHOW)" t nil) | ||
| 22180 | |||
| 22133 | (register-definition-prefixes "mspools" '("mspools-")) | 22181 | (register-definition-prefixes "mspools" '("mspools-")) |
| 22134 | 22182 | ||
| 22135 | ;;;*** | 22183 | ;;;*** |
| @@ -22848,7 +22896,7 @@ This command does not work if you use short group names." t nil) | |||
| 22848 | ;;;### (autoloads nil "nnir" "gnus/nnir.el" (0 0 0 0)) | 22896 | ;;;### (autoloads nil "nnir" "gnus/nnir.el" (0 0 0 0)) |
| 22849 | ;;; Generated autoloads from gnus/nnir.el | 22897 | ;;; Generated autoloads from gnus/nnir.el |
| 22850 | 22898 | ||
| 22851 | (register-definition-prefixes "nnir" '("gnus-" "nnir-")) | 22899 | (register-definition-prefixes "nnir" '("nnir-")) |
| 22852 | 22900 | ||
| 22853 | ;;;*** | 22901 | ;;;*** |
| 22854 | 22902 | ||
| @@ -22927,6 +22975,13 @@ Generate NOV databases in all nnml directories. | |||
| 22927 | 22975 | ||
| 22928 | ;;;*** | 22976 | ;;;*** |
| 22929 | 22977 | ||
| 22978 | ;;;### (autoloads nil "nnselect" "gnus/nnselect.el" (0 0 0 0)) | ||
| 22979 | ;;; Generated autoloads from gnus/nnselect.el | ||
| 22980 | |||
| 22981 | (register-definition-prefixes "nnselect" '("gnus-" "ids-by-group" "nnselect-" "numbers-by-group")) | ||
| 22982 | |||
| 22983 | ;;;*** | ||
| 22984 | |||
| 22930 | ;;;### (autoloads nil "nnspool" "gnus/nnspool.el" (0 0 0 0)) | 22985 | ;;;### (autoloads nil "nnspool" "gnus/nnspool.el" (0 0 0 0)) |
| 22931 | ;;; Generated autoloads from gnus/nnspool.el | 22986 | ;;; Generated autoloads from gnus/nnspool.el |
| 22932 | 22987 | ||
| @@ -25502,7 +25557,12 @@ Completion rules for the `ssh' command." nil nil) | |||
| 25502 | Completion rules for the `scp' command. | 25557 | Completion rules for the `scp' command. |
| 25503 | Includes files as well as host names followed by a colon." nil nil) | 25558 | Includes files as well as host names followed by a colon." nil nil) |
| 25504 | 25559 | ||
| 25505 | (register-definition-prefixes "pcmpl-unix" '("pcmpl-")) | 25560 | (autoload 'pcomplete/telnet "pcmpl-unix" nil nil nil) |
| 25561 | |||
| 25562 | (autoload 'pcomplete/rsh "pcmpl-unix" "\ | ||
| 25563 | Complete `rsh', which, after the user and hostname, is like xargs." nil nil) | ||
| 25564 | |||
| 25565 | (register-definition-prefixes "pcmpl-unix" '("pcmpl-" "pcomplete/")) | ||
| 25506 | 25566 | ||
| 25507 | ;;;*** | 25567 | ;;;*** |
| 25508 | 25568 | ||
| @@ -25522,6 +25582,11 @@ long options." nil nil) | |||
| 25522 | (autoload 'pcomplete/ag "pcmpl-x" "\ | 25582 | (autoload 'pcomplete/ag "pcmpl-x" "\ |
| 25523 | Completion for the `ag' command." nil nil) | 25583 | Completion for the `ag' command." nil nil) |
| 25524 | 25584 | ||
| 25585 | (autoload 'pcomplete/bcc32 "pcmpl-x" "\ | ||
| 25586 | Completion function for Borland's C++ compiler." nil nil) | ||
| 25587 | |||
| 25588 | (defalias 'pcomplete/bcc 'pcomplete/bcc32) | ||
| 25589 | |||
| 25525 | (register-definition-prefixes "pcmpl-x" '("pcmpl-x-")) | 25590 | (register-definition-prefixes "pcmpl-x" '("pcmpl-x-")) |
| 25526 | 25591 | ||
| 25527 | ;;;*** | 25592 | ;;;*** |
| @@ -26573,7 +26638,7 @@ Open profile FILENAME. | |||
| 26573 | 26638 | ||
| 26574 | ;;;### (autoloads nil "project" "progmodes/project.el" (0 0 0 0)) | 26639 | ;;;### (autoloads nil "project" "progmodes/project.el" (0 0 0 0)) |
| 26575 | ;;; Generated autoloads from progmodes/project.el | 26640 | ;;; Generated autoloads from progmodes/project.el |
| 26576 | (push (purecopy '(project 0 5 1)) package--builtin-versions) | 26641 | (push (purecopy '(project 0 5 2)) package--builtin-versions) |
| 26577 | 26642 | ||
| 26578 | (autoload 'project-current "project" "\ | 26643 | (autoload 'project-current "project" "\ |
| 26579 | Return the project instance in DIRECTORY, defaulting to `default-directory'. | 26644 | Return the project instance in DIRECTORY, defaulting to `default-directory'. |
| @@ -26622,7 +26687,8 @@ Run project command, displaying resultant buffer in a new tab. | |||
| 26622 | The following commands are available: | 26687 | The following commands are available: |
| 26623 | 26688 | ||
| 26624 | \\{project-prefix-map}" t nil) | 26689 | \\{project-prefix-map}" t nil) |
| 26625 | (define-key tab-prefix-map "p" #'project-other-tab-command) | 26690 | |
| 26691 | (when (bound-and-true-p tab-prefix-map) (define-key tab-prefix-map "p" #'project-other-tab-command)) | ||
| 26626 | 26692 | ||
| 26627 | (autoload 'project-find-regexp "project" "\ | 26693 | (autoload 'project-find-regexp "project" "\ |
| 26628 | Find all matches for REGEXP in the current project's roots. | 26694 | Find all matches for REGEXP in the current project's roots. |
| @@ -26742,7 +26808,7 @@ identical. Only the buffers that match a condition in | |||
| 26742 | `project-kill-buffer-conditions' will be killed. If NO-CONFIRM | 26808 | `project-kill-buffer-conditions' will be killed. If NO-CONFIRM |
| 26743 | is non-nil, the command will not ask the user for confirmation. | 26809 | is non-nil, the command will not ask the user for confirmation. |
| 26744 | NO-CONFIRM is always nil when the command is invoked | 26810 | NO-CONFIRM is always nil when the command is invoked |
| 26745 | interactivly. | 26811 | interactively. |
| 26746 | 26812 | ||
| 26747 | \(fn &optional NO-CONFIRM)" t nil) | 26813 | \(fn &optional NO-CONFIRM)" t nil) |
| 26748 | 26814 | ||
| @@ -28249,6 +28315,8 @@ disabled. | |||
| 28249 | Reveal mode is a buffer-local minor mode. When enabled, it | 28315 | Reveal mode is a buffer-local minor mode. When enabled, it |
| 28250 | reveals invisible text around point. | 28316 | reveals invisible text around point. |
| 28251 | 28317 | ||
| 28318 | Also see the `reveal-auto-hide' variable. | ||
| 28319 | |||
| 28252 | \(fn &optional ARG)" t nil) | 28320 | \(fn &optional ARG)" t nil) |
| 28253 | 28321 | ||
| 28254 | (defvar global-reveal-mode nil "\ | 28322 | (defvar global-reveal-mode nil "\ |
| @@ -28873,7 +28941,7 @@ to use for finding the schema. | |||
| 28873 | ;;;### (autoloads nil "rng-xsd" "nxml/rng-xsd.el" (0 0 0 0)) | 28941 | ;;;### (autoloads nil "rng-xsd" "nxml/rng-xsd.el" (0 0 0 0)) |
| 28874 | ;;; Generated autoloads from nxml/rng-xsd.el | 28942 | ;;; Generated autoloads from nxml/rng-xsd.el |
| 28875 | 28943 | ||
| 28876 | (put 'http://www\.w3\.org/2001/XMLSchema-datatypes 'rng-dt-compile #'rng-xsd-compile) | 28944 | (put 'https://www\.w3\.org/2001/XMLSchema-datatypes 'rng-dt-compile #'rng-xsd-compile) |
| 28877 | 28945 | ||
| 28878 | (autoload 'rng-xsd-compile "rng-xsd" "\ | 28946 | (autoload 'rng-xsd-compile "rng-xsd" "\ |
| 28879 | Provide W3C XML Schema as a RELAX NG datatypes library. | 28947 | Provide W3C XML Schema as a RELAX NG datatypes library. |
| @@ -30414,7 +30482,7 @@ and `default-sendmail-coding-system', | |||
| 30414 | but lower priority than the local value of `buffer-file-coding-system'. | 30482 | but lower priority than the local value of `buffer-file-coding-system'. |
| 30415 | See also the function `select-message-coding-system'.") | 30483 | See also the function `select-message-coding-system'.") |
| 30416 | 30484 | ||
| 30417 | (defvar default-sendmail-coding-system 'iso-latin-1 "\ | 30485 | (defvar default-sendmail-coding-system 'utf-8 "\ |
| 30418 | Default coding system for encoding the outgoing mail. | 30486 | Default coding system for encoding the outgoing mail. |
| 30419 | This variable is used only when `sendmail-coding-system' is nil. | 30487 | This variable is used only when `sendmail-coding-system' is nil. |
| 30420 | 30488 | ||
| @@ -31479,7 +31547,7 @@ Use \\[so-long-customize] to configure the behaviour. | |||
| 31479 | 31547 | ||
| 31480 | ;;;### (autoloads nil "soap-client" "net/soap-client.el" (0 0 0 0)) | 31548 | ;;;### (autoloads nil "soap-client" "net/soap-client.el" (0 0 0 0)) |
| 31481 | ;;; Generated autoloads from net/soap-client.el | 31549 | ;;; Generated autoloads from net/soap-client.el |
| 31482 | (push (purecopy '(soap-client 3 1 5)) package--builtin-versions) | 31550 | (push (purecopy '(soap-client 3 2 0)) package--builtin-versions) |
| 31483 | 31551 | ||
| 31484 | (register-definition-prefixes "soap-client" '("soap-")) | 31552 | (register-definition-prefixes "soap-client" '("soap-")) |
| 31485 | 31553 | ||
| @@ -32718,6 +32786,27 @@ Studlify-case the current buffer." t nil) | |||
| 32718 | ;;;### (autoloads nil "subr-x" "emacs-lisp/subr-x.el" (0 0 0 0)) | 32786 | ;;;### (autoloads nil "subr-x" "emacs-lisp/subr-x.el" (0 0 0 0)) |
| 32719 | ;;; Generated autoloads from emacs-lisp/subr-x.el | 32787 | ;;; Generated autoloads from emacs-lisp/subr-x.el |
| 32720 | 32788 | ||
| 32789 | (autoload 'if-let "subr-x" "\ | ||
| 32790 | Bind variables according to SPEC and evaluate THEN or ELSE. | ||
| 32791 | Evaluate each binding in turn, as in `let*', stopping if a | ||
| 32792 | binding value is nil. If all are non-nil return the value of | ||
| 32793 | THEN, otherwise the last form in ELSE. | ||
| 32794 | |||
| 32795 | Each element of SPEC is a list (SYMBOL VALUEFORM) that binds | ||
| 32796 | SYMBOL to the value of VALUEFORM. An element can additionally be | ||
| 32797 | of the form (VALUEFORM), which is evaluated and checked for nil; | ||
| 32798 | i.e. SYMBOL can be omitted if only the test result is of | ||
| 32799 | interest. It can also be of the form SYMBOL, then the binding of | ||
| 32800 | SYMBOL is checked for nil. | ||
| 32801 | |||
| 32802 | As a special case, interprets a SPEC of the form (SYMBOL SOMETHING) | ||
| 32803 | like ((SYMBOL SOMETHING)). This exists for backward compatibility | ||
| 32804 | with an old syntax that accepted only one binding. | ||
| 32805 | |||
| 32806 | \(fn SPEC THEN &rest ELSE)" nil t) | ||
| 32807 | |||
| 32808 | (function-put 'if-let 'lisp-indent-function '2) | ||
| 32809 | |||
| 32721 | (autoload 'when-let "subr-x" "\ | 32810 | (autoload 'when-let "subr-x" "\ |
| 32722 | Bind variables according to SPEC and conditionally evaluate BODY. | 32811 | Bind variables according to SPEC and conditionally evaluate BODY. |
| 32723 | Evaluate each binding in turn, stopping if a binding value is nil. | 32812 | Evaluate each binding in turn, stopping if a binding value is nil. |
| @@ -32734,7 +32823,7 @@ Truncate STRING to LENGTH, replacing initial surplus with \"...\". | |||
| 32734 | 32823 | ||
| 32735 | \(fn STRING LENGTH)" nil nil) | 32824 | \(fn STRING LENGTH)" nil nil) |
| 32736 | 32825 | ||
| 32737 | (register-definition-prefixes "subr-x" '("and-let*" "hash-table-" "if-let" "internal--" "replace-region-contents" "string-" "thread-" "when-let*")) | 32826 | (register-definition-prefixes "subr-x" '("and-let*" "hash-table-" "if-let*" "internal--" "replace-region-contents" "string-" "thread-" "when-let*")) |
| 32738 | 32827 | ||
| 32739 | ;;;*** | 32828 | ;;;*** |
| 32740 | 32829 | ||
| @@ -32880,7 +32969,7 @@ and `sc-post-hook' is run after the guts of this function." nil nil) | |||
| 32880 | 32969 | ||
| 32881 | ;;;### (autoloads nil "svg" "svg.el" (0 0 0 0)) | 32970 | ;;;### (autoloads nil "svg" "svg.el" (0 0 0 0)) |
| 32882 | ;;; Generated autoloads from svg.el | 32971 | ;;; Generated autoloads from svg.el |
| 32883 | (push (purecopy '(svg 1 0)) package--builtin-versions) | 32972 | (push (purecopy '(svg 1 1)) package--builtin-versions) |
| 32884 | 32973 | ||
| 32885 | (register-definition-prefixes "svg" '("svg-")) | 32974 | (register-definition-prefixes "svg" '("svg-")) |
| 32886 | 32975 | ||
| @@ -33383,7 +33472,7 @@ buffer, and leaves the previous contents of the buffer untouched. | |||
| 33383 | References used for this implementation: | 33472 | References used for this implementation: |
| 33384 | 33473 | ||
| 33385 | HTML: | 33474 | HTML: |
| 33386 | URL `http://www.w3.org' | 33475 | URL `https://www.w3.org' |
| 33387 | 33476 | ||
| 33388 | LaTeX: | 33477 | LaTeX: |
| 33389 | URL `http://www.maths.tcd.ie/~dwilkins/LaTeXPrimer/Tables.html' | 33478 | URL `http://www.maths.tcd.ie/~dwilkins/LaTeXPrimer/Tables.html' |
| @@ -34597,7 +34686,7 @@ runs the normal hook `display-time-hook' after each update. | |||
| 34597 | 34686 | ||
| 34598 | \(fn &optional ARG)" t nil) | 34687 | \(fn &optional ARG)" t nil) |
| 34599 | 34688 | ||
| 34600 | (defalias 'display-time-world #'world-clock) | 34689 | (define-obsolete-function-alias 'display-time-world #'world-clock "28.1") |
| 34601 | 34690 | ||
| 34602 | (autoload 'world-clock "time" "\ | 34691 | (autoload 'world-clock "time" "\ |
| 34603 | Display a world clock buffer with times in various time zones. | 34692 | Display a world clock buffer with times in various time zones. |
| @@ -34608,8 +34697,10 @@ To turn off the world time display, go to the window and type `\\[quit-window]'. | |||
| 34608 | Return a string giving the uptime of this instance of Emacs. | 34697 | Return a string giving the uptime of this instance of Emacs. |
| 34609 | FORMAT is a string to format the result, using `format-seconds'. | 34698 | FORMAT is a string to format the result, using `format-seconds'. |
| 34610 | For example, the Unix uptime command format is \"%D, %z%2h:%.2m\". | 34699 | For example, the Unix uptime command format is \"%D, %z%2h:%.2m\". |
| 34700 | If the optional argument HERE is non-nil, insert string at | ||
| 34701 | point. | ||
| 34611 | 34702 | ||
| 34612 | \(fn &optional FORMAT)" t nil) | 34703 | \(fn &optional FORMAT HERE)" t nil) |
| 34613 | 34704 | ||
| 34614 | (autoload 'emacs-init-time "time" "\ | 34705 | (autoload 'emacs-init-time "time" "\ |
| 34615 | Return a string giving the duration of the Emacs initialization." t nil) | 34706 | Return a string giving the duration of the Emacs initialization." t nil) |
| @@ -38441,6 +38532,11 @@ See also `warning-series', `warning-prefix-function', | |||
| 38441 | `warning-fill-prefix', and `warning-fill-column' for additional | 38532 | `warning-fill-prefix', and `warning-fill-column' for additional |
| 38442 | programming features. | 38533 | programming features. |
| 38443 | 38534 | ||
| 38535 | This will also display buttons allowing the user to permanently | ||
| 38536 | disable automatic display of the warning or disable the warning | ||
| 38537 | entirely by setting `warning-suppress-types' or | ||
| 38538 | `warning-suppress-log-types' on their behalf. | ||
| 38539 | |||
| 38444 | \(fn TYPE MESSAGE &optional LEVEL BUFFER-NAME)" nil nil) | 38540 | \(fn TYPE MESSAGE &optional LEVEL BUFFER-NAME)" nil nil) |
| 38445 | 38541 | ||
| 38446 | (autoload 'lwarn "warnings" "\ | 38542 | (autoload 'lwarn "warnings" "\ |
| @@ -39601,16 +39697,16 @@ Zone out, completely." t nil) | |||
| 39601 | ;;;;;; "erc/erc-notify.el" "erc/erc-page.el" "erc/erc-pcomplete.el" | 39697 | ;;;;;; "erc/erc-notify.el" "erc/erc-page.el" "erc/erc-pcomplete.el" |
| 39602 | ;;;;;; "erc/erc-replace.el" "erc/erc-ring.el" "erc/erc-services.el" | 39698 | ;;;;;; "erc/erc-replace.el" "erc/erc-ring.el" "erc/erc-services.el" |
| 39603 | ;;;;;; "erc/erc-sound.el" "erc/erc-speedbar.el" "erc/erc-spelling.el" | 39699 | ;;;;;; "erc/erc-sound.el" "erc/erc-speedbar.el" "erc/erc-spelling.el" |
| 39604 | ;;;;;; "erc/erc-stamp.el" "erc/erc-track.el" "erc/erc-truncate.el" | 39700 | ;;;;;; "erc/erc-stamp.el" "erc/erc-status-sidebar.el" "erc/erc-track.el" |
| 39605 | ;;;;;; "erc/erc-xdcc.el" "eshell/em-alias.el" "eshell/em-banner.el" | 39701 | ;;;;;; "erc/erc-truncate.el" "erc/erc-xdcc.el" "eshell/em-alias.el" |
| 39606 | ;;;;;; "eshell/em-basic.el" "eshell/em-cmpl.el" "eshell/em-dirs.el" | 39702 | ;;;;;; "eshell/em-banner.el" "eshell/em-basic.el" "eshell/em-cmpl.el" |
| 39607 | ;;;;;; "eshell/em-glob.el" "eshell/em-hist.el" "eshell/em-ls.el" | 39703 | ;;;;;; "eshell/em-dirs.el" "eshell/em-glob.el" "eshell/em-hist.el" |
| 39608 | ;;;;;; "eshell/em-pred.el" "eshell/em-prompt.el" "eshell/em-rebind.el" | 39704 | ;;;;;; "eshell/em-ls.el" "eshell/em-pred.el" "eshell/em-prompt.el" |
| 39609 | ;;;;;; "eshell/em-script.el" "eshell/em-smart.el" "eshell/em-term.el" | 39705 | ;;;;;; "eshell/em-rebind.el" "eshell/em-script.el" "eshell/em-smart.el" |
| 39610 | ;;;;;; "eshell/em-tramp.el" "eshell/em-unix.el" "eshell/em-xtra.el" | 39706 | ;;;;;; "eshell/em-term.el" "eshell/em-tramp.el" "eshell/em-unix.el" |
| 39611 | ;;;;;; "facemenu.el" "faces.el" "files.el" "font-core.el" "font-lock.el" | 39707 | ;;;;;; "eshell/em-xtra.el" "facemenu.el" "faces.el" "files.el" "font-core.el" |
| 39612 | ;;;;;; "format.el" "frame.el" "help.el" "hfy-cmap.el" "ibuf-ext.el" | 39708 | ;;;;;; "font-lock.el" "format.el" "frame.el" "help.el" "hfy-cmap.el" |
| 39613 | ;;;;;; "indent.el" "international/characters.el" "international/charprop.el" | 39709 | ;;;;;; "ibuf-ext.el" "indent.el" "international/characters.el" "international/charprop.el" |
| 39614 | ;;;;;; "international/charscript.el" "international/cp51932.el" | 39710 | ;;;;;; "international/charscript.el" "international/cp51932.el" |
| 39615 | ;;;;;; "international/eucjp-ms.el" "international/mule-cmds.el" | 39711 | ;;;;;; "international/eucjp-ms.el" "international/mule-cmds.el" |
| 39616 | ;;;;;; "international/mule-conf.el" "international/mule.el" "international/uni-bidi.el" | 39712 | ;;;;;; "international/mule-conf.el" "international/mule.el" "international/uni-bidi.el" |
diff --git a/lisp/leim/quail/ipa.el b/lisp/leim/quail/ipa.el index d4170564c58..cbc555d1faa 100644 --- a/lisp/leim/quail/ipa.el +++ b/lisp/leim/quail/ipa.el | |||
| @@ -340,7 +340,7 @@ See http://www.phon.ucl.ac.uk/home/sampa/ipasam-x.pdf for a full definition | |||
| 340 | of the mapping.") | 340 | of the mapping.") |
| 341 | 341 | ||
| 342 | (quail-define-rules | 342 | (quail-define-rules |
| 343 | ;; Table taken from http://en.wikipedia.org/wiki/X-SAMPA, checked with | 343 | ;; Table taken from https://en.wikipedia.org/wiki/X-SAMPA, checked with |
| 344 | ;; http://www.phon.ucl.ac.uk/home/sampa/ipasam-x.pdf | 344 | ;; http://www.phon.ucl.ac.uk/home/sampa/ipasam-x.pdf |
| 345 | 345 | ||
| 346 | ("d`" "É–") ;; Voiced retroflex plosive U+0256 | 346 | ("d`" "É–") ;; Voiced retroflex plosive U+0256 |
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index f1a455dce2d..bd9aef17a87 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el | |||
| @@ -1852,8 +1852,8 @@ place. It affects how `mail-extract-address-components' works." | |||
| 1852 | ;; | 1852 | ;; |
| 1853 | ;; Source: ISO 3166 Maintenance Agency | 1853 | ;; Source: ISO 3166 Maintenance Agency |
| 1854 | ;; http://www.iso.org/iso/en/prods-services/iso3166ma/02iso-3166-code-lists/list-en1-semic.txt | 1854 | ;; http://www.iso.org/iso/en/prods-services/iso3166ma/02iso-3166-code-lists/list-en1-semic.txt |
| 1855 | ;; http://www.iana.org/domain-names.htm | 1855 | ;; https://www.iana.org/domain-names.htm |
| 1856 | ;; http://www.iana.org/cctld/cctld-whois.htm | 1856 | ;; https://www.iana.org/cctld/cctld-whois.htm |
| 1857 | ;; Latest change: 2007/11/15 | 1857 | ;; Latest change: 2007/11/15 |
| 1858 | 1858 | ||
| 1859 | (defconst mail-extr-all-top-level-domains | 1859 | (defconst mail-extr-all-top-level-domains |
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index 1f688734d47..2b76539e152 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el | |||
| @@ -517,7 +517,7 @@ PREFIX is the string we want to complete." | |||
| 517 | (setq mail-names | 517 | (setq mail-names |
| 518 | (sort (append (if (consp mail-aliases) | 518 | (sort (append (if (consp mail-aliases) |
| 519 | (mapcar | 519 | (mapcar |
| 520 | (function (lambda (a) (list (car a)))) | 520 | (lambda (a) (list (car a))) |
| 521 | mail-aliases)) | 521 | mail-aliases)) |
| 522 | (if (consp mail-local-names) | 522 | (if (consp mail-local-names) |
| 523 | mail-local-names) | 523 | mail-local-names) |
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 8bcb9af4d16..7ff7db3e8cb 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -2786,7 +2786,7 @@ The current mail message becomes the message displayed." | |||
| 2786 | (with-current-buffer rmail-view-buffer | 2786 | (with-current-buffer rmail-view-buffer |
| 2787 | ;; We give the view buffer a buffer-local value of | 2787 | ;; We give the view buffer a buffer-local value of |
| 2788 | ;; rmail-header-style based on the binding in effect when | 2788 | ;; rmail-header-style based on the binding in effect when |
| 2789 | ;; this function is called; `rmail-toggle-headers' can | 2789 | ;; this function is called; `rmail-toggle-header' can |
| 2790 | ;; inspect this value to determine how to toggle. | 2790 | ;; inspect this value to determine how to toggle. |
| 2791 | (set (make-local-variable 'rmail-header-style) header-style) | 2791 | (set (make-local-variable 'rmail-header-style) header-style) |
| 2792 | ;; In case viewing the previous message sets the paragraph | 2792 | ;; In case viewing the previous message sets the paragraph |
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 1786608dd67..63c8f14085a 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el | |||
| @@ -50,7 +50,7 @@ | |||
| 50 | 50 | ||
| 51 | ;; Modified by Simon Josefsson <jas@pdc.kth.se>, 22/2/99, to support SMTP | 51 | ;; Modified by Simon Josefsson <jas@pdc.kth.se>, 22/2/99, to support SMTP |
| 52 | ;; Authentication by the AUTH mechanism. | 52 | ;; Authentication by the AUTH mechanism. |
| 53 | ;; See http://www.ietf.org/rfc/rfc2554.txt | 53 | ;; See https://www.ietf.org/rfc/rfc2554.txt |
| 54 | 54 | ||
| 55 | ;;; Code: | 55 | ;;; Code: |
| 56 | ;;; Dependencies | 56 | ;;; Dependencies |
diff --git a/lisp/master.el b/lisp/master.el index 387116a8fbd..32556a535f3 100644 --- a/lisp/master.el +++ b/lisp/master.el | |||
| @@ -36,12 +36,12 @@ | |||
| 36 | ;; SQL buffer. | 36 | ;; SQL buffer. |
| 37 | ;; | 37 | ;; |
| 38 | ;; (add-hook 'sql-mode-hook | 38 | ;; (add-hook 'sql-mode-hook |
| 39 | ;; (function (lambda () | 39 | ;; (lambda () |
| 40 | ;; (master-mode t) | 40 | ;; (master-mode t) |
| 41 | ;; (master-set-slave sql-buffer)))) | 41 | ;; (master-set-slave sql-buffer))) |
| 42 | ;; (add-hook 'sql-set-sqli-hook | 42 | ;; (add-hook 'sql-set-sqli-hook |
| 43 | ;; (function (lambda () | 43 | ;; (lambda () |
| 44 | ;; (master-set-slave sql-buffer)))) | 44 | ;; (master-set-slave sql-buffer))) |
| 45 | 45 | ||
| 46 | ;;; Thanks to all the people who helped me out: | 46 | ;;; Thanks to all the people who helped me out: |
| 47 | ;; | 47 | ;; |
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index d3e434aec90..1b3e102cfa7 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -671,7 +671,7 @@ PROPS are additional properties." | |||
| 671 | &rest body) | 671 | &rest body) |
| 672 | "Define a menu-bar toggle command. | 672 | "Define a menu-bar toggle command. |
| 673 | See `menu-bar-make-toggle-command', for which this is a | 673 | See `menu-bar-make-toggle-command', for which this is a |
| 674 | compatability wrapper. BODY is passed in as SETTING-SEXP in that macro." | 674 | compatibility wrapper. BODY is passed in as SETTING-SEXP in that macro." |
| 675 | (declare (obsolete menu-bar-make-toggle-command "28.1")) | 675 | (declare (obsolete menu-bar-make-toggle-command "28.1")) |
| 676 | `(menu-bar-make-toggle-command ,command ,variable ,item-name ,message ,help | 676 | `(menu-bar-make-toggle-command ,command ,variable ,item-name ,message ,help |
| 677 | ,(and body | 677 | ,(and body |
diff --git a/lisp/mh-e/ChangeLog.1 b/lisp/mh-e/ChangeLog.1 index dad3d1ec560..d30441f91a8 100644 --- a/lisp/mh-e/ChangeLog.1 +++ b/lisp/mh-e/ChangeLog.1 | |||
| @@ -324,7 +324,7 @@ | |||
| 324 | 324 | ||
| 325 | * mh-customize.el (mh-show-pgg-good-face) | 325 | * mh-customize.el (mh-show-pgg-good-face) |
| 326 | (mh-show-pgg-unknown-face, mh-show-pgg-bad-face): Faces added to | 326 | (mh-show-pgg-unknown-face, mh-show-pgg-bad-face): Faces added to |
| 327 | highlight buttons introduced for encrpted or signed MIME parts. | 327 | highlight buttons introduced for encrypted or signed MIME parts. |
| 328 | 328 | ||
| 329 | 2005-03-19 Bill Wohler <wohler@newt.com> | 329 | 2005-03-19 Bill Wohler <wohler@newt.com> |
| 330 | 330 | ||
| @@ -428,7 +428,7 @@ | |||
| 428 | 2004-11-28 Jeffrey C Honig <jch@honig.net> | 428 | 2004-11-28 Jeffrey C Honig <jch@honig.net> |
| 429 | 429 | ||
| 430 | * mh-comp.el (mh-complete-word): Kill the *Completions* buffer in | 430 | * mh-comp.el (mh-complete-word): Kill the *Completions* buffer in |
| 431 | any cases where we belive we are done with it. Not perfect, but | 431 | any cases where we believe we are done with it. Not perfect, but |
| 432 | better than just leaving it around. | 432 | better than just leaving it around. |
| 433 | 433 | ||
| 434 | 2004-11-08 Satyaki Das <satyaki@theforce.stanford.edu> | 434 | 2004-11-08 Satyaki Das <satyaki@theforce.stanford.edu> |
| @@ -818,7 +818,7 @@ | |||
| 818 | 818 | ||
| 819 | * Makefile: | 819 | * Makefile: |
| 820 | (mh-e-autoloads.el): Add target to make `mh-e-autoloads.el', a | 820 | (mh-e-autoloads.el): Add target to make `mh-e-autoloads.el', a |
| 821 | file containg usual entry commands into MH-E to be used for users | 821 | file containing usual entry commands into MH-E to be used for users |
| 822 | installing MH-E separately from Emacs. | 822 | installing MH-E separately from Emacs. |
| 823 | (XEMACS_LOADDEFS_FILE): New. Used to generate mh-loaddefs.el | 823 | (XEMACS_LOADDEFS_FILE): New. Used to generate mh-loaddefs.el |
| 824 | in XEmacs. | 824 | in XEmacs. |
| @@ -1201,7 +1201,7 @@ | |||
| 1201 | 1201 | ||
| 1202 | 2003-11-01 Peter S Galbraith <psg@debian.org> | 1202 | 2003-11-01 Peter S Galbraith <psg@debian.org> |
| 1203 | 1203 | ||
| 1204 | * Makefile: Add target to make `mh-startup.el', a file containg | 1204 | * Makefile: Add target to make `mh-startup.el', a file containing |
| 1205 | usual entry commands into MH-E to be used for users installing | 1205 | usual entry commands into MH-E to be used for users installing |
| 1206 | MH-E separately from Emacs. | 1206 | MH-E separately from Emacs. |
| 1207 | 1207 | ||
| @@ -1914,7 +1914,7 @@ | |||
| 1914 | 2003-08-18 Peter S Galbraith <psg@debian.org> | 1914 | 2003-08-18 Peter S Galbraith <psg@debian.org> |
| 1915 | 1915 | ||
| 1916 | * mh-comp.el (mh-letter-mode): Call `mh-find-path unconditionally, | 1916 | * mh-comp.el (mh-letter-mode): Call `mh-find-path unconditionally, |
| 1917 | like elsewehere in MH-E. | 1917 | like elsewhere in MH-E. |
| 1918 | 1918 | ||
| 1919 | * mh-utils.el (mh-find-path): Run setup code only if | 1919 | * mh-utils.el (mh-find-path): Run setup code only if |
| 1920 | `mh-find-path-run' is nil such that this is only done once. | 1920 | `mh-find-path-run' is nil such that this is only done once. |
| @@ -2588,7 +2588,7 @@ | |||
| 2588 | 2003-07-24 Satyaki Das <satyakid@stanford.edu> | 2588 | 2003-07-24 Satyaki Das <satyakid@stanford.edu> |
| 2589 | 2589 | ||
| 2590 | * mh-e.el (mh-folder-message-menu, mh-folder-folder-menu): Use the | 2590 | * mh-e.el (mh-folder-message-menu, mh-folder-folder-menu): Use the |
| 2591 | predicate mh-outstanding-commands-p instead of its exapansion. | 2591 | predicate mh-outstanding-commands-p instead of its expansion. |
| 2592 | Also use the same label in both menus. | 2592 | Also use the same label in both menus. |
| 2593 | (mh-outstanding-commands-p): Generalized so that it will work in | 2593 | (mh-outstanding-commands-p): Generalized so that it will work in |
| 2594 | mh-show-mode buffers as well. | 2594 | mh-show-mode buffers as well. |
| @@ -3915,7 +3915,7 @@ | |||
| 3915 | 2003-04-22 Satyaki Das <satyaki@theforce.stanford.edu> | 3915 | 2003-04-22 Satyaki Das <satyaki@theforce.stanford.edu> |
| 3916 | 3916 | ||
| 3917 | * mh-utils.el (mh-normalize-folder-name): Make the completion | 3917 | * mh-utils.el (mh-normalize-folder-name): Make the completion |
| 3918 | code work properly with XEmacs. This change is neeeded since | 3918 | code work properly with XEmacs. This change is needed since |
| 3919 | split-string behaves differently in XEmacs than it does in GNU | 3919 | split-string behaves differently in XEmacs than it does in GNU |
| 3920 | Emacs. | 3920 | Emacs. |
| 3921 | (mh-exec-cmd-error): Add a comment, so that we change it later on. | 3921 | (mh-exec-cmd-error): Add a comment, so that we change it later on. |
| @@ -7391,7 +7391,7 @@ | |||
| 7391 | numbers. | 7391 | numbers. |
| 7392 | (mh-cmd-note): Mention mh-set-cmd-note in docstring. Also suggest | 7392 | (mh-cmd-note): Mention mh-set-cmd-note in docstring. Also suggest |
| 7393 | that it is updated dynamically only if mh-scan-format-file is t. | 7393 | that it is updated dynamically only if mh-scan-format-file is t. |
| 7394 | (mh-set-cmd-note): Grammer fix in docstring. | 7394 | (mh-set-cmd-note): Grammar fix in docstring. |
| 7395 | (mh-cmd-note): Noted that the first column is column number 0. | 7395 | (mh-cmd-note): Noted that the first column is column number 0. |
| 7396 | 7396 | ||
| 7397 | * mh-e.el (mh-scan-format-file): Added information about | 7397 | * mh-e.el (mh-scan-format-file): Added information about |
| @@ -7696,7 +7696,7 @@ | |||
| 7696 | 7696 | ||
| 7697 | * mh-identity.el: New file. Multiple Identify support for MH-E. | 7697 | * mh-identity.el: New file. Multiple Identify support for MH-E. |
| 7698 | Used to easily set different fields such as From and Organization, | 7698 | Used to easily set different fields such as From and Organization, |
| 7699 | as well as diffrent signature files. This file won't be included | 7699 | as well as different signature files. This file won't be included |
| 7700 | with V7.0. | 7700 | with V7.0. |
| 7701 | 7701 | ||
| 7702 | 2002-11-02 Bill Wohler <wohler@newt.com> | 7702 | 2002-11-02 Bill Wohler <wohler@newt.com> |
| @@ -9458,10 +9458,10 @@ | |||
| 9458 | 9458 | ||
| 9459 | 2002-07-15 Mark D. Baushke <mdb@gnu.org> | 9459 | 2002-07-15 Mark D. Baushke <mdb@gnu.org> |
| 9460 | 9460 | ||
| 9461 | * mh-utils.el (mm-decode): Use load for the Non-fatal depencency | 9461 | * mh-utils.el (mm-decode): Use load for the Non-fatal dependency |
| 9462 | on the mm-decode library. | 9462 | on the mm-decode library. |
| 9463 | * mh-mime.el (mm-decode, mm-uu, mm-view): Use load for the | 9463 | * mh-mime.el (mm-decode, mm-uu, mm-view): Use load for the |
| 9464 | Non-fatal depencencies on the mm-decode, mm-uu and mm-view | 9464 | Non-fatal dependencies on the mm-decode, mm-uu and mm-view |
| 9465 | libraries. | 9465 | libraries. |
| 9466 | 9466 | ||
| 9467 | 2002-07-15 Satyaki Das <satyaki@theforce.stanford.edu> | 9467 | 2002-07-15 Satyaki Das <satyaki@theforce.stanford.edu> |
| @@ -11356,7 +11356,7 @@ | |||
| 11356 | 4 was silly for my case. | 11356 | 4 was silly for my case. |
| 11357 | * mh-e.el (mh-update-sequences): Check for nil value of | 11357 | * mh-e.el (mh-update-sequences): Check for nil value of |
| 11358 | mh-current-folder, which happens if mh-summary-height < 4 | 11358 | mh-current-folder, which happens if mh-summary-height < 4 |
| 11359 | although I haven't tracked doen why that happens. | 11359 | although I haven't tracked down why that happens. |
| 11360 | 11360 | ||
| 11361 | 2001-10-22 Peter S Galbraith <psg@debian.org> | 11361 | 2001-10-22 Peter S Galbraith <psg@debian.org> |
| 11362 | 11362 | ||
diff --git a/lisp/mh-e/mh-compat.el b/lisp/mh-e/mh-compat.el index 92b7d801c7b..c02b095b2ea 100644 --- a/lisp/mh-e/mh-compat.el +++ b/lisp/mh-e/mh-compat.el | |||
| @@ -134,7 +134,7 @@ introduced in Emacs 22." | |||
| 134 | 134 | ||
| 135 | (defmacro mh-face-background (face &optional frame inherit) | 135 | (defmacro mh-face-background (face &optional frame inherit) |
| 136 | "Return the background color name of face, or nil if unspecified. | 136 | "Return the background color name of face, or nil if unspecified. |
| 137 | See documentation for `back-foreground' for a description of the | 137 | See documentation for `face-background' for a description of the |
| 138 | arguments FACE, FRAME, and INHERIT. | 138 | arguments FACE, FRAME, and INHERIT. |
| 139 | This macro is used by Emacs versions that lack an INHERIT argument, | 139 | This macro is used by Emacs versions that lack an INHERIT argument, |
| 140 | introduced in Emacs 22." | 140 | introduced in Emacs 22." |
diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el index dd05d691c91..3ac5c8f7aed 100644 --- a/lisp/mh-e/mh-e.el +++ b/lisp/mh-e/mh-e.el | |||
| @@ -1550,7 +1550,7 @@ as the result is undefined." | |||
| 1550 | ,(append | 1550 | ,(append |
| 1551 | '(radio) | 1551 | '(radio) |
| 1552 | (mapcar | 1552 | (mapcar |
| 1553 | (function (lambda (arg) `(const ,arg))) | 1553 | (lambda (arg) `(const ,arg)) |
| 1554 | (mapcar 'car mh-identity-list)))) | 1554 | (mapcar 'car mh-identity-list)))) |
| 1555 | (cons :tag "Fcc Field" | 1555 | (cons :tag "Fcc Field" |
| 1556 | (const "fcc") | 1556 | (const "fcc") |
| @@ -1577,7 +1577,7 @@ See `mh-identity-list'." | |||
| 1577 | :type (append | 1577 | :type (append |
| 1578 | '(radio) | 1578 | '(radio) |
| 1579 | (cons '(const :tag "None" nil) | 1579 | (cons '(const :tag "None" nil) |
| 1580 | (mapcar (function (lambda (arg) `(const ,arg))) | 1580 | (mapcar (lambda (arg) `(const ,arg)) |
| 1581 | (mapcar 'car mh-identity-list)))) | 1581 | (mapcar 'car mh-identity-list)))) |
| 1582 | :group 'mh-identity | 1582 | :group 'mh-identity |
| 1583 | :package-version '(MH-E . "7.1")) | 1583 | :package-version '(MH-E . "7.1")) |
| @@ -1914,7 +1914,7 @@ of images into \"X-Face:\" header fields (see URL | |||
| 1914 | 1914 | ||
| 1915 | Use the \"make-face\" script to convert a JPEG image to the higher | 1915 | Use the \"make-face\" script to convert a JPEG image to the higher |
| 1916 | resolution, color, \"Face:\" header field (see URL | 1916 | resolution, color, \"Face:\" header field (see URL |
| 1917 | `http://quimby.gnus.org/circus/face/make-face'). | 1917 | `https://quimby.gnus.org/circus/face/make-face'). |
| 1918 | 1918 | ||
| 1919 | The URL of any image can be used for the \"X-Image-URL:\" field and no | 1919 | The URL of any image can be used for the \"X-Image-URL:\" field and no |
| 1920 | processing of the image is required. | 1920 | processing of the image is required. |
| @@ -2420,11 +2420,11 @@ of citations entirely, choose \"None\"." | |||
| 2420 | 2420 | ||
| 2421 | ;; These entries have been intentionally excluded by the developers. | 2421 | ;; These entries have been intentionally excluded by the developers. |
| 2422 | ;; "Comments:" ; RFC 822 (or later) - show this one | 2422 | ;; "Comments:" ; RFC 822 (or later) - show this one |
| 2423 | ;; "Fax:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2423 | ;; "Fax:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2424 | ;; "Mail-System-Version:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2424 | ;; "Mail-System-Version:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2425 | ;; "Mailer:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2425 | ;; "Mailer:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2426 | ;; "Organization:" ; | 2426 | ;; "Organization:" ; |
| 2427 | ;; "Phone:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2427 | ;; "Phone:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2428 | ;; "Reply-By:" ; RFC 2156 | 2428 | ;; "Reply-By:" ; RFC 2156 |
| 2429 | ;; "Reply-To:" ; RFC 822 (or later) | 2429 | ;; "Reply-To:" ; RFC 822 (or later) |
| 2430 | ;; "Sender:" ; | 2430 | ;; "Sender:" ; |
| @@ -2437,13 +2437,13 @@ of citations entirely, choose \"None\"." | |||
| 2437 | ;; Mention source, if known. | 2437 | ;; Mention source, if known. |
| 2438 | (defvar mh-invisible-header-fields-internal | 2438 | (defvar mh-invisible-header-fields-internal |
| 2439 | '( | 2439 | '( |
| 2440 | "Abuse-Reports-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2440 | "Abuse-Reports-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2441 | "Accept-Language:" | 2441 | "Accept-Language:" |
| 2442 | "AcceptLanguage:" | 2442 | "AcceptLanguage:" |
| 2443 | "Accreditor:" ; Habeas | 2443 | "Accreditor:" ; Habeas |
| 2444 | "Also-Control:" ; H. Spencer: News Article Format and Transmission, June 1994 | 2444 | "Also-Control:" ; H. Spencer: News Article Format and Transmission, June 1994 |
| 2445 | "Alternate-recipient:" ; RFC 2156 | 2445 | "Alternate-recipient:" ; RFC 2156 |
| 2446 | "Approved-By:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2446 | "Approved-By:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2447 | "Approved:" ; RFC 1036 | 2447 | "Approved:" ; RFC 1036 |
| 2448 | "Article-Names:" ; H. Spencer: News Article Format and Transmission, June 1994 | 2448 | "Article-Names:" ; H. Spencer: News Article Format and Transmission, June 1994 |
| 2449 | "Article-Updates:" ; H. Spencer: News Article Format and Transmission, June 1994 | 2449 | "Article-Updates:" ; H. Spencer: News Article Format and Transmission, June 1994 |
| @@ -2454,7 +2454,7 @@ of citations entirely, choose \"None\"." | |||
| 2454 | "Bounces-To:" | 2454 | "Bounces-To:" |
| 2455 | "Bounces_to:" | 2455 | "Bounces_to:" |
| 2456 | "Bytes:" | 2456 | "Bytes:" |
| 2457 | "Cancel-Key:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2457 | "Cancel-Key:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2458 | "Cancel-Lock:" ; NNTP posts | 2458 | "Cancel-Lock:" ; NNTP posts |
| 2459 | "Comment:" ; Shows up with DomainKeys | 2459 | "Comment:" ; Shows up with DomainKeys |
| 2460 | "Content-" ; RFC 2045, 1123, 1766, 1864, 2045, 2110, 2156, 2183, 2912 | 2460 | "Content-" ; RFC 2045, 1123, 1766, 1864, 2045, 2110, 2156, 2183, 2912 |
| @@ -2475,14 +2475,14 @@ of citations entirely, choose \"None\"." | |||
| 2475 | "DomainKey-Signature:" | 2475 | "DomainKey-Signature:" |
| 2476 | "Encoding:" ; RFC 1505 | 2476 | "Encoding:" ; RFC 1505 |
| 2477 | "Envelope-to:" | 2477 | "Envelope-to:" |
| 2478 | "Errors-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2478 | "Errors-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2479 | "Expires:" ; RFC 1036 | 2479 | "Expires:" ; RFC 1036 |
| 2480 | "Expiry-Date:" ; RFC 2156 | 2480 | "Expiry-Date:" ; RFC 2156 |
| 2481 | "Face:" ; Gnus Face header | 2481 | "Face:" ; Gnus Face header |
| 2482 | "Followup-To:" ; RFC 1036 | 2482 | "Followup-To:" ; RFC 1036 |
| 2483 | "For-Approval:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2483 | "For-Approval:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2484 | "For-Comment:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2484 | "For-Comment:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2485 | "For-Handling:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2485 | "For-Handling:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2486 | "Forwarded:" ; MH | 2486 | "Forwarded:" ; MH |
| 2487 | "From " ; sendmail | 2487 | "From " ; sendmail |
| 2488 | "Generate-Delivery-Report:" ; RFC 2156 | 2488 | "Generate-Delivery-Report:" ; RFC 2156 |
| @@ -2493,12 +2493,12 @@ of citations entirely, choose \"None\"." | |||
| 2493 | "Language:" ; RFC 2156 | 2493 | "Language:" ; RFC 2156 |
| 2494 | "Lines:" ; RFC 1036 | 2494 | "Lines:" ; RFC 1036 |
| 2495 | "List-" ; RFC 2369, 2919 | 2495 | "List-" ; RFC 2369, 2919 |
| 2496 | "Mail-Copies-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2496 | "Mail-Copies-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2497 | "Mail-Followup-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2497 | "Mail-Followup-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2498 | "Mail-from:" ; MH | 2498 | "Mail-from:" ; MH |
| 2499 | "Mail-Reply-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2499 | "Mail-Reply-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2500 | "Mailing-List:" ; Egroups/yahoogroups mailing list manager | 2500 | "Mailing-List:" ; Egroups/yahoogroups mailing list manager |
| 2501 | "Message-Content:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2501 | "Message-Content:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2502 | "Message-ID:" ; RFC 822 (or later) | 2502 | "Message-ID:" ; RFC 822 (or later) |
| 2503 | "Message-Type:" ; RFC 2156 | 2503 | "Message-Type:" ; RFC 2156 |
| 2504 | "Mime-Version" ; RFC 2045 | 2504 | "Mime-Version" ; RFC 2045 |
| @@ -2516,42 +2516,42 @@ of citations entirely, choose \"None\"." | |||
| 2516 | "Original-Recipient:" ; RFC 2298 | 2516 | "Original-Recipient:" ; RFC 2298 |
| 2517 | "Original-To:" ; mail to news | 2517 | "Original-To:" ; mail to news |
| 2518 | "Original-X-" ; mail to news | 2518 | "Original-X-" ; mail to news |
| 2519 | "Origination-Client:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2519 | "Origination-Client:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2520 | "Originator:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2520 | "Originator:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2521 | "P1-Content-Type:" ; X400 | 2521 | "P1-Content-Type:" ; X400 |
| 2522 | "P1-Message-Id:" ; X400 | 2522 | "P1-Message-Id:" ; X400 |
| 2523 | "P1-Recipient:" ; X400 | 2523 | "P1-Recipient:" ; X400 |
| 2524 | "Path:" ; RFC 1036 | 2524 | "Path:" ; RFC 1036 |
| 2525 | "Pics-Label:" ; W3C | 2525 | "Pics-Label:" ; W3C |
| 2526 | "Posted-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2526 | "Posted-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2527 | "Precedence:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2527 | "Precedence:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2528 | "Prev-Resent" ; MH | 2528 | "Prev-Resent" ; MH |
| 2529 | "Prevent-NonDelivery-Report:" ; RFC 2156 | 2529 | "Prevent-NonDelivery-Report:" ; RFC 2156 |
| 2530 | "Priority:" ; RFC 2156 | 2530 | "Priority:" ; RFC 2156 |
| 2531 | "Read-Receipt-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2531 | "Read-Receipt-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2532 | "Received-SPF:" ; Gmail | 2532 | "Received-SPF:" ; Gmail |
| 2533 | "Received:" ; RFC 822 (or later) | 2533 | "Received:" ; RFC 822 (or later) |
| 2534 | "References:" ; RFC 822 (or later) | 2534 | "References:" ; RFC 822 (or later) |
| 2535 | "Registered-Mail-Reply-Requested-By:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2535 | "Registered-Mail-Reply-Requested-By:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2536 | "Remailed-" ; MH | 2536 | "Remailed-" ; MH |
| 2537 | "Replaces:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2537 | "Replaces:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2538 | "Replied:" ; MH | 2538 | "Replied:" ; MH |
| 2539 | "Resent-" ; RFC 822 (or later) | 2539 | "Resent-" ; RFC 822 (or later) |
| 2540 | "Return-Path:" ; RFC 822 (or later) | 2540 | "Return-Path:" ; RFC 822 (or later) |
| 2541 | "Return-Receipt-Requested:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2541 | "Return-Receipt-Requested:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2542 | "Return-Receipt-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2542 | "Return-Receipt-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2543 | "Seal-Send-Time:" | 2543 | "Seal-Send-Time:" |
| 2544 | "See-Also:" ; H. Spencer: News Article Format and Transmission, June 1994 | 2544 | "See-Also:" ; H. Spencer: News Article Format and Transmission, June 1994 |
| 2545 | "Sensitivity:" ; RFC 2156, 2421 | 2545 | "Sensitivity:" ; RFC 2156, 2421 |
| 2546 | "Speech-Act:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2546 | "Speech-Act:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2547 | "Status:" ; sendmail | 2547 | "Status:" ; sendmail |
| 2548 | "Supersedes:" ; H. Spencer: News Article Format and Transmission, June 1994 | 2548 | "Supersedes:" ; H. Spencer: News Article Format and Transmission, June 1994 |
| 2549 | "Telefax:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2549 | "Telefax:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2550 | "Thread-" | 2550 | "Thread-" |
| 2551 | "Thread-Index:" | 2551 | "Thread-Index:" |
| 2552 | "Thread-Topic:" | 2552 | "Thread-Topic:" |
| 2553 | "Translated-By:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2553 | "Translated-By:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2554 | "Translation-Of:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2554 | "Translation-Of:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2555 | "Ua-Content-Id:" ; X400 | 2555 | "Ua-Content-Id:" ; X400 |
| 2556 | "Via:" ; MH | 2556 | "Via:" ; MH |
| 2557 | "X-Abuse-and-DMCA-" | 2557 | "X-Abuse-and-DMCA-" |
| @@ -2559,7 +2559,7 @@ of citations entirely, choose \"None\"." | |||
| 2559 | "X-Accept-Language:" ; Netscape/Mozilla | 2559 | "X-Accept-Language:" ; Netscape/Mozilla |
| 2560 | "X-Ack:" | 2560 | "X-Ack:" |
| 2561 | "X-ACL-Warn:" ; http://www.exim.org | 2561 | "X-ACL-Warn:" ; http://www.exim.org |
| 2562 | "X-Admin:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2562 | "X-Admin:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2563 | "X-Administrivia-To:" | 2563 | "X-Administrivia-To:" |
| 2564 | "X-AMAZON" ; Amazon.com | 2564 | "X-AMAZON" ; Amazon.com |
| 2565 | "X-AnalysisOut:" ; Exchange | 2565 | "X-AnalysisOut:" ; Exchange |
| @@ -2594,9 +2594,9 @@ of citations entirely, choose \"None\"." | |||
| 2594 | "X-CanIt-Geo:" ; IEEE spam filter | 2594 | "X-CanIt-Geo:" ; IEEE spam filter |
| 2595 | "X-Cloudmark-SP-" ; Cloudmark (www.cloudmark.com) | 2595 | "X-Cloudmark-SP-" ; Cloudmark (www.cloudmark.com) |
| 2596 | "X-Comment:" ; AT&T Mailennium | 2596 | "X-Comment:" ; AT&T Mailennium |
| 2597 | "X-Complaints-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2597 | "X-Complaints-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2598 | "X-Completed:" | 2598 | "X-Completed:" |
| 2599 | "X-Confirm-Reading-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2599 | "X-Confirm-Reading-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2600 | "X-Content-Filtered-By:" | 2600 | "X-Content-Filtered-By:" |
| 2601 | "X-ContentStamp:" ; NetZero | 2601 | "X-ContentStamp:" ; NetZero |
| 2602 | "X-Country-Chain:" ; http://www.declude.com/x-note.htm | 2602 | "X-Country-Chain:" ; http://www.declude.com/x-note.htm |
| @@ -2622,13 +2622,13 @@ of citations entirely, choose \"None\"." | |||
| 2622 | "X-Email-Type-Id:" ; Paypal http://www.paypal.com | 2622 | "X-Email-Type-Id:" ; Paypal http://www.paypal.com |
| 2623 | "X-Enigmail-Version:" | 2623 | "X-Enigmail-Version:" |
| 2624 | "X-Envelope-Date:" ; GNU mailutils | 2624 | "X-Envelope-Date:" ; GNU mailutils |
| 2625 | "X-Envelope-From:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2625 | "X-Envelope-From:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2626 | "X-Envelope-Sender:" | 2626 | "X-Envelope-Sender:" |
| 2627 | "X-Envelope-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2627 | "X-Envelope-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2628 | "X-EviteMessageId:" ; evite.com | 2628 | "X-EviteMessageId:" ; evite.com |
| 2629 | "X-Evolution:" ; Evolution mail client | 2629 | "X-Evolution:" ; Evolution mail client |
| 2630 | "X-ExtLoop" | 2630 | "X-ExtLoop" |
| 2631 | "X-Face:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2631 | "X-Face:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2632 | "X-Facebook" ; Facebook | 2632 | "X-Facebook" ; Facebook |
| 2633 | "X-FB-SS:" | 2633 | "X-FB-SS:" |
| 2634 | "X-fmx-" | 2634 | "X-fmx-" |
| @@ -2652,7 +2652,7 @@ of citations entirely, choose \"None\"." | |||
| 2652 | "X-Identity:" ; http://www.declude.com/x-note.htm | 2652 | "X-Identity:" ; http://www.declude.com/x-note.htm |
| 2653 | "X-IEEE-UCE-" ; IEEE spam filter | 2653 | "X-IEEE-UCE-" ; IEEE spam filter |
| 2654 | "X-Image-URL:" | 2654 | "X-Image-URL:" |
| 2655 | "X-IMAP:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2655 | "X-IMAP:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2656 | "X-Info:" ; NTMail | 2656 | "X-Info:" ; NTMail |
| 2657 | "X-IronPort-" ; IronPort AV | 2657 | "X-IronPort-" ; IronPort AV |
| 2658 | "X-ISI-4-30-3-MailScanner:" | 2658 | "X-ISI-4-30-3-MailScanner:" |
| @@ -2662,12 +2662,12 @@ of citations entirely, choose \"None\"." | |||
| 2662 | "X-Juno-" ; Juno | 2662 | "X-Juno-" ; Juno |
| 2663 | "X-Key:" | 2663 | "X-Key:" |
| 2664 | "X-Launchpad-" ; plaunchpad.net | 2664 | "X-Launchpad-" ; plaunchpad.net |
| 2665 | "X-List-Host:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2665 | "X-List-Host:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2666 | "X-List-Subscribe:" ; Unknown mailing list managers | 2666 | "X-List-Subscribe:" ; Unknown mailing list managers |
| 2667 | "X-List-Unsubscribe:" ; Unknown mailing list managers | 2667 | "X-List-Unsubscribe:" ; Unknown mailing list managers |
| 2668 | "X-Listprocessor-" ; ListProc(tm) by CREN | 2668 | "X-Listprocessor-" ; ListProc(tm) by CREN |
| 2669 | "X-Listserver:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2669 | "X-Listserver:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2670 | "X-Loop:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2670 | "X-Loop:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2671 | "X-Lrde-Mailscanner:" | 2671 | "X-Lrde-Mailscanner:" |
| 2672 | "X-Lumos-SenderID:" ; Roving ConstantContact | 2672 | "X-Lumos-SenderID:" ; Roving ConstantContact |
| 2673 | "X-mail_abuse_inquiries:" ; http://www.salesforce.com | 2673 | "X-mail_abuse_inquiries:" ; http://www.salesforce.com |
| @@ -2693,18 +2693,18 @@ of citations entirely, choose \"None\"." | |||
| 2693 | "X-MessageWall-Score:" ; Unknown mailing list manager, AUC TeX | 2693 | "X-MessageWall-Score:" ; Unknown mailing list manager, AUC TeX |
| 2694 | "X-MHE-Checksum:" ; Checksum added during index search | 2694 | "X-MHE-Checksum:" ; Checksum added during index search |
| 2695 | "X-MIME-Autoconverted:" ; sendmail | 2695 | "X-MIME-Autoconverted:" ; sendmail |
| 2696 | "X-MIMEOLE:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/sendmail | 2696 | "X-MIMEOLE:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/sendmail |
| 2697 | "X-MIMETrack:" | 2697 | "X-MIMETrack:" |
| 2698 | "X-Mms-" ; T-Mobile pictures | 2698 | "X-Mms-" ; T-Mobile pictures |
| 2699 | "X-Mozilla-Status:" ; Netscape/Mozilla | 2699 | "X-Mozilla-Status:" ; Netscape/Mozilla |
| 2700 | "X-MS-" ; MS Outlook | 2700 | "X-MS-" ; MS Outlook |
| 2701 | "X-Msmail-" ; MS Outlook | 2701 | "X-Msmail-" ; MS Outlook |
| 2702 | "X-MSMail-Priority" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2702 | "X-MSMail-Priority" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2703 | "X-MXL-Hash:" | 2703 | "X-MXL-Hash:" |
| 2704 | "X-NAI-Spam-" ; Network Associates Inc. SpamKiller | 2704 | "X-NAI-Spam-" ; Network Associates Inc. SpamKiller |
| 2705 | "X-News:" ; News | 2705 | "X-News:" ; News |
| 2706 | "X-Newsreader:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2706 | "X-Newsreader:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2707 | "X-No-Archive:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2707 | "X-No-Archive:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2708 | "X-Notes-Item:" ; Lotus Notes Domino structured header | 2708 | "X-Notes-Item:" ; Lotus Notes Domino structured header |
| 2709 | "X-Notification-" ; Google+ | 2709 | "X-Notification-" ; Google+ |
| 2710 | "X-Notifications:" ; Google+ | 2710 | "X-Notifications:" ; Google+ |
| @@ -2713,7 +2713,7 @@ of citations entirely, choose \"None\"." | |||
| 2713 | "X-ORBL:" | 2713 | "X-ORBL:" |
| 2714 | "X-Orcl-Content-Type:" | 2714 | "X-Orcl-Content-Type:" |
| 2715 | "X-Organization:" | 2715 | "X-Organization:" |
| 2716 | "X-Original-Arrival-Type:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2716 | "X-Original-Arrival-Type:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2717 | "X-Original-Complaints-To:" | 2717 | "X-Original-Complaints-To:" |
| 2718 | "X-Original-Date:" ; SourceForge mailing list manager | 2718 | "X-Original-Date:" ; SourceForge mailing list manager |
| 2719 | "X-Original-To:" | 2719 | "X-Original-To:" |
| @@ -2733,10 +2733,10 @@ of citations entirely, choose \"None\"." | |||
| 2733 | "X-Provags-ID:" | 2733 | "X-Provags-ID:" |
| 2734 | "X-PSTN-" | 2734 | "X-PSTN-" |
| 2735 | "X-Qotd-" ; User added | 2735 | "X-Qotd-" ; User added |
| 2736 | "X-RCPT-TO:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2736 | "X-RCPT-TO:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2737 | "X-Received-Date:" | 2737 | "X-Received-Date:" |
| 2738 | "X-Received:" | 2738 | "X-Received:" |
| 2739 | "X-Report-Abuse-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2739 | "X-Report-Abuse-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2740 | "X-Request-" | 2740 | "X-Request-" |
| 2741 | "X-Resolved-to:" ; fastmail.fm | 2741 | "X-Resolved-to:" ; fastmail.fm |
| 2742 | "X-Return-Path-Hint:" ; Roving ConstantContact | 2742 | "X-Return-Path-Hint:" ; Roving ConstantContact |
| @@ -2753,7 +2753,7 @@ of citations entirely, choose \"None\"." | |||
| 2753 | "X-SBRule:" ; Spam | 2753 | "X-SBRule:" ; Spam |
| 2754 | "X-Scanned-By:" | 2754 | "X-Scanned-By:" |
| 2755 | "X-Sender-ID:" ; Google+ | 2755 | "X-Sender-ID:" ; Google+ |
| 2756 | "X-Sender:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2756 | "X-Sender:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2757 | "X-Sendergroup:" ; Cisco Email Security (formerly IronPort; http://www.ironport.com) | 2757 | "X-Sendergroup:" ; Cisco Email Security (formerly IronPort; http://www.ironport.com) |
| 2758 | "X-Server-Date:" | 2758 | "X-Server-Date:" |
| 2759 | "X-Server-Uuid:" | 2759 | "X-Server-Uuid:" |
| @@ -2776,11 +2776,11 @@ of citations entirely, choose \"None\"." | |||
| 2776 | "X-TM-IMSS-Message-ID:" ; http://www.trendmicro.com | 2776 | "X-TM-IMSS-Message-ID:" ; http://www.trendmicro.com |
| 2777 | "X-Trace:" | 2777 | "X-Trace:" |
| 2778 | "X-UID" | 2778 | "X-UID" |
| 2779 | "X-UIDL:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2779 | "X-UIDL:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2780 | "X-Unity" | 2780 | "X-Unity" |
| 2781 | "X-UNTD-" ; NetZero | 2781 | "X-UNTD-" ; NetZero |
| 2782 | "X-URI:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2782 | "X-URI:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2783 | "X-URL:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2783 | "X-URL:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2784 | "X-USANET-" ; usa.net | 2784 | "X-USANET-" ; usa.net |
| 2785 | "X-Usenet-Provider" | 2785 | "X-Usenet-Provider" |
| 2786 | "X-UserInfo1:" | 2786 | "X-UserInfo1:" |
| @@ -2792,7 +2792,7 @@ of citations entirely, choose \"None\"." | |||
| 2792 | "X-VSMLoop:" ; NTMail | 2792 | "X-VSMLoop:" ; NTMail |
| 2793 | "X-WebTV-Signature:" | 2793 | "X-WebTV-Signature:" |
| 2794 | "X-Wss-Id:" ; Worldtalk gateways | 2794 | "X-Wss-Id:" ; Worldtalk gateways |
| 2795 | "X-X-Sender:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ | 2795 | "X-X-Sender:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ |
| 2796 | "X-XPT-XSL-Name:" ; Paypal http://www.paypal.com | 2796 | "X-XPT-XSL-Name:" ; Paypal http://www.paypal.com |
| 2797 | "X-xsi-" | 2797 | "X-xsi-" |
| 2798 | "X-XWALL-" ; http://www.dataenter.co.at/doc/xwall_undocumented_config.htm | 2798 | "X-XWALL-" ; http://www.dataenter.co.at/doc/xwall_undocumented_config.htm |
| @@ -3036,7 +3036,7 @@ supports it. | |||
| 3036 | The first header field used, if present, is the Gnus-specific | 3036 | The first header field used, if present, is the Gnus-specific |
| 3037 | \"Face:\" field. The \"Face:\" field appeared in GNU Emacs 21 and | 3037 | \"Face:\" field. The \"Face:\" field appeared in GNU Emacs 21 and |
| 3038 | XEmacs. For more information, see URL | 3038 | XEmacs. For more information, see URL |
| 3039 | `http://quimby.gnus.org/circus/face/'. Next is the traditional | 3039 | `https://quimby.gnus.org/circus/face/'. Next is the traditional |
| 3040 | \"X-Face:\" header field. The display of this field requires the | 3040 | \"X-Face:\" header field. The display of this field requires the |
| 3041 | \"uncompface\" program (see URL | 3041 | \"uncompface\" program (see URL |
| 3042 | `ftp://ftp.cs.indiana.edu/pub/faces/compface/compface.tar.z'). Recent | 3042 | `ftp://ftp.cs.indiana.edu/pub/faces/compface/compface.tar.z'). Recent |
| @@ -3049,7 +3049,7 @@ header field if neither the \"Face:\" nor the \"X-Face:\" fields are | |||
| 3049 | present. The display of the images requires \"wget\" (see URL | 3049 | present. The display of the images requires \"wget\" (see URL |
| 3050 | `https://www.gnu.org/software/wget/wget.html'), \"fetch\", or \"curl\" | 3050 | `https://www.gnu.org/software/wget/wget.html'), \"fetch\", or \"curl\" |
| 3051 | to fetch the image and the \"convert\" program from the ImageMagick | 3051 | to fetch the image and the \"convert\" program from the ImageMagick |
| 3052 | suite (see URL `http://www.imagemagick.org/'). Of the three header | 3052 | suite (see URL `https://www.imagemagick.org/'). Of the three header |
| 3053 | fields this is the most efficient in terms of network usage since the | 3053 | fields this is the most efficient in terms of network usage since the |
| 3054 | image doesn't need to be transmitted with every single mail. | 3054 | image doesn't need to be transmitted with every single mail. |
| 3055 | 3055 | ||
diff --git a/lisp/mh-e/mh-junk.el b/lisp/mh-e/mh-junk.el index eea04c63783..ebc5038a194 100644 --- a/lisp/mh-e/mh-junk.el +++ b/lisp/mh-e/mh-junk.el | |||
| @@ -58,7 +58,7 @@ program, see: | |||
| 58 | (defun mh-blacklist-a-msg (message) | 58 | (defun mh-blacklist-a-msg (message) |
| 59 | "Blacklist MESSAGE. | 59 | "Blacklist MESSAGE. |
| 60 | If MESSAGE is nil then the message at point is blacklisted. | 60 | If MESSAGE is nil then the message at point is blacklisted. |
| 61 | The hook `mh-blacklisted-msg-hook' is called after you mark a message | 61 | The hook `mh-blacklist-msg-hook' is called after you mark a message |
| 62 | for blacklisting." | 62 | for blacklisting." |
| 63 | (save-excursion | 63 | (save-excursion |
| 64 | (if (numberp message) | 64 | (if (numberp message) |
diff --git a/lisp/mh-e/mh-thread.el b/lisp/mh-e/mh-thread.el index fc30187245d..43a589aeca2 100644 --- a/lisp/mh-e/mh-thread.el +++ b/lisp/mh-e/mh-thread.el | |||
| @@ -26,7 +26,7 @@ | |||
| 26 | 26 | ||
| 27 | ;; The threading portion of this files tries to implement the | 27 | ;; The threading portion of this files tries to implement the |
| 28 | ;; algorithm described at: | 28 | ;; algorithm described at: |
| 29 | ;; http://www.jwz.org/doc/threading.html | 29 | ;; https://www.jwz.org/doc/threading.html |
| 30 | ;; It also begins to implement the threading section of the IMAP - | 30 | ;; It also begins to implement the threading section of the IMAP - |
| 31 | ;; SORT and THREAD Extensions RFC at: | 31 | ;; SORT and THREAD Extensions RFC at: |
| 32 | ;; http://tools.ietf.org/html/rfc5256 | 32 | ;; http://tools.ietf.org/html/rfc5256 |
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 3e23c05bb0c..427636e8662 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el | |||
| @@ -3110,12 +3110,12 @@ or a symbol, see `completion-pcm--merge-completions'." | |||
| 3110 | (while p | 3110 | (while p |
| 3111 | (pcase p | 3111 | (pcase p |
| 3112 | (`(,(or 'any 'any-delim) point . ,rest) (setq p `(point . ,rest))) | 3112 | (`(,(or 'any 'any-delim) point . ,rest) (setq p `(point . ,rest))) |
| 3113 | ;; This is not just a performance improvement: it also turns | 3113 | ;; This is not just a performance improvement: it turns a |
| 3114 | ;; a terminating `point' into an implicit `any', which | 3114 | ;; terminating `point' into an implicit `any', which affects |
| 3115 | ;; affects the final position of point (because `point' gets | 3115 | ;; the final position of point (because `point' gets turned |
| 3116 | ;; turned into a non-greedy ".*?" regexp whereas we need | 3116 | ;; into a non-greedy ".*?" regexp whereas we need it to be |
| 3117 | ;; it the be greedy when it's at the end, see bug#38458). | 3117 | ;; greedy when it's at the end, see bug#38458). |
| 3118 | (`(,(pred symbolp)) (setq p nil)) ;Implicit terminating `any'. | 3118 | (`(point) (setq p nil)) ;Implicit terminating `any'. |
| 3119 | (_ (push (pop p) n)))) | 3119 | (_ (push (pop p) n)))) |
| 3120 | (nreverse n))) | 3120 | (nreverse n))) |
| 3121 | 3121 | ||
diff --git a/lisp/misearch.el b/lisp/misearch.el index 958c10a1bf6..6ec10fe2c2e 100644 --- a/lisp/misearch.el +++ b/lisp/misearch.el | |||
| @@ -236,11 +236,7 @@ set in `multi-isearch-buffers' or `multi-isearch-buffers-regexp'." | |||
| 236 | (buf nil) | 236 | (buf nil) |
| 237 | (ido-ignore-item-temp-list bufs)) | 237 | (ido-ignore-item-temp-list bufs)) |
| 238 | (while (not (string-equal | 238 | (while (not (string-equal |
| 239 | (setq buf (read-buffer | 239 | (setq buf (read-buffer (multi-occur--prompt) nil t)) |
| 240 | (if (eq read-buffer-function #'ido-read-buffer) | ||
| 241 | "Next buffer to search (C-j to end): " | ||
| 242 | "Next buffer to search (RET to end): ") | ||
| 243 | nil t)) | ||
| 244 | "")) | 240 | "")) |
| 245 | (add-to-list 'bufs buf) | 241 | (add-to-list 'bufs buf) |
| 246 | (setq ido-ignore-item-temp-list bufs)) | 242 | (setq ido-ignore-item-temp-list bufs)) |
diff --git a/lisp/mouse.el b/lisp/mouse.el index 06fdca12b9c..9e7eee61e57 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -2206,8 +2206,8 @@ and selects that window." | |||
| 2206 | ;; Sort the list to put the most popular major modes first. | 2206 | ;; Sort the list to put the most popular major modes first. |
| 2207 | (setq split-by-major-mode | 2207 | (setq split-by-major-mode |
| 2208 | (sort split-by-major-mode | 2208 | (sort split-by-major-mode |
| 2209 | (function (lambda (elt1 elt2) | 2209 | (lambda (elt1 elt2) |
| 2210 | (> (length elt1) (length elt2)))))) | 2210 | (> (length elt1) (length elt2))))) |
| 2211 | ;; Make a separate submenu for each major mode | 2211 | ;; Make a separate submenu for each major mode |
| 2212 | ;; that has more than one buffer, | 2212 | ;; that has more than one buffer, |
| 2213 | ;; unless all the remaining buffers are less than 1/10 of them. | 2213 | ;; unless all the remaining buffers are less than 1/10 of them. |
| @@ -2248,8 +2248,8 @@ and selects that window." | |||
| 2248 | head) | 2248 | head) |
| 2249 | (setq buffers | 2249 | (setq buffers |
| 2250 | (sort buffers | 2250 | (sort buffers |
| 2251 | (function (lambda (elt1 elt2) | 2251 | (lambda (elt1 elt2) |
| 2252 | (string< (buffer-name elt1) (buffer-name elt2)))))) | 2252 | (string< (buffer-name elt1) (buffer-name elt2))))) |
| 2253 | (setq tail buffers) | 2253 | (setq tail buffers) |
| 2254 | (while tail | 2254 | (while tail |
| 2255 | (or (eq ?\s (aref (buffer-name (car tail)) 0)) | 2255 | (or (eq ?\s (aref (buffer-name (car tail)) 0)) |
diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el index 23ba191e3cf..48712a9c3d8 100644 --- a/lisp/net/dbus.el +++ b/lisp/net/dbus.el | |||
| @@ -165,6 +165,9 @@ See URL `https://dbus.freedesktop.org/doc/dbus-specification.html#bus-messages-b | |||
| 165 | ;; </signal> | 165 | ;; </signal> |
| 166 | ;; </interface> | 166 | ;; </interface> |
| 167 | 167 | ||
| 168 | (defconst dbus-annotation-deprecated (concat dbus-interface-dbus ".Deprecated") | ||
| 169 | "An annotation indicating a deprecated interface, method, signal, or property.") | ||
| 170 | |||
| 168 | 171 | ||
| 169 | ;;; Default D-Bus errors. | 172 | ;;; Default D-Bus errors. |
| 170 | 173 | ||
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 1ed87c66250..fd9fe98439d 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el | |||
| @@ -450,11 +450,11 @@ killed after rendering." | |||
| 450 | 450 | ||
| 451 | ;;;###autoload | 451 | ;;;###autoload |
| 452 | (defun eww-search-words () | 452 | (defun eww-search-words () |
| 453 | "Search the web for the text between BEG and END. | 453 | "Search the web for the text in the region. |
| 454 | If region is active (and not whitespace), search the web for | 454 | If region is active (and not whitespace), search the web for |
| 455 | the text between BEG and END. Else, prompt the user for a search | 455 | the text between region beginning and end. Else, prompt the |
| 456 | string. See the `eww-search-prefix' variable for the search | 456 | user for a search string. See the variable `eww-search-prefix' |
| 457 | engine used." | 457 | for the search engine used." |
| 458 | (interactive) | 458 | (interactive) |
| 459 | (if (use-region-p) | 459 | (if (use-region-p) |
| 460 | (let ((region-string (buffer-substring (region-beginning) (region-end)))) | 460 | (let ((region-string (buffer-substring (region-beginning) (region-end)))) |
diff --git a/lisp/net/gnutls.el b/lisp/net/gnutls.el index e713c94117b..8ad721964dd 100644 --- a/lisp/net/gnutls.el +++ b/lisp/net/gnutls.el | |||
| @@ -348,8 +348,11 @@ defaults to GNUTLS_VERIFY_ALLOW_X509_V1_CA_CRT." | |||
| 348 | (t nil)))) | 348 | (t nil)))) |
| 349 | (min-prime-bits (or min-prime-bits gnutls-min-prime-bits))) | 349 | (min-prime-bits (or min-prime-bits gnutls-min-prime-bits))) |
| 350 | 350 | ||
| 351 | (when verify-hostname-error | 351 | ;; Only add :hostname if `verify-error' is not t, since t |
| 352 | (push :hostname verify-error)) | 352 | ;; means "include :hostname" Bug#38602. |
| 353 | (and verify-hostname-error | ||
| 354 | (not (eq verify-error t)) | ||
| 355 | (push :hostname verify-error)) | ||
| 353 | 356 | ||
| 354 | `(:priority ,priority-string | 357 | `(:priority ,priority-string |
| 355 | :hostname ,hostname | 358 | :hostname ,hostname |
diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el index ef3651b0335..8c7d33a67d4 100644 --- a/lisp/net/net-utils.el +++ b/lisp/net/net-utils.el | |||
| @@ -771,7 +771,7 @@ This command uses `smbclient-program' to connect to HOST." | |||
| 771 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 771 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 772 | 772 | ||
| 773 | ;; Full list is available at: | 773 | ;; Full list is available at: |
| 774 | ;; http://www.iana.org/assignments/port-numbers | 774 | ;; https://www.iana.org/assignments/port-numbers |
| 775 | (defvar network-connection-service-alist | 775 | (defvar network-connection-service-alist |
| 776 | (list | 776 | (list |
| 777 | (cons 'echo 7) | 777 | (cons 'echo 7) |
diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el index b8f1bccd788..f45abf780f7 100644 --- a/lisp/net/newst-backend.el +++ b/lisp/net/newst-backend.el | |||
| @@ -68,9 +68,6 @@ considered to be running if the newsticker timer list is not empty." | |||
| 68 | ;; Hard-coding URLs like this is a recipe for propagating obsolete info. | 68 | ;; Hard-coding URLs like this is a recipe for propagating obsolete info. |
| 69 | (defconst newsticker--raw-url-list-defaults | 69 | (defconst newsticker--raw-url-list-defaults |
| 70 | '( | 70 | '( |
| 71 | ;; 2017/12: no response. | ||
| 72 | ;;; ("CNET News.com" | ||
| 73 | ;;; "http://export.cnet.com/export/feeds/news/rss/1,11176,,00.xml") | ||
| 74 | ("Debian Security Advisories" | 71 | ("Debian Security Advisories" |
| 75 | "http://www.debian.org/security/dsa.en.rdf") | 72 | "http://www.debian.org/security/dsa.en.rdf") |
| 76 | ("Debian Security Advisories - Long format" | 73 | ("Debian Security Advisories - Long format" |
| @@ -81,11 +78,6 @@ considered to be running if the newsticker timer list is not empty." | |||
| 81 | 3600) | 78 | 3600) |
| 82 | ("LWN (Linux Weekly News)" | 79 | ("LWN (Linux Weekly News)" |
| 83 | "https://lwn.net/headlines/rss") | 80 | "https://lwn.net/headlines/rss") |
| 84 | ;; Not updated since 2010. | ||
| 85 | ;;; ("NY Times: Technology" | ||
| 86 | ;;; "http://www.nytimes.com/services/xml/rss/userland/Technology.xml") | ||
| 87 | ;;; ("NY Times" | ||
| 88 | ;;; "http://www.nytimes.com/services/xml/rss/userland/HomePage.xml") | ||
| 89 | ("Quote of the day" | 81 | ("Quote of the day" |
| 90 | "http://feeds.feedburner.com/quotationspage/qotd" | 82 | "http://feeds.feedburner.com/quotationspage/qotd" |
| 91 | "07:00" | 83 | "07:00" |
| @@ -898,7 +890,7 @@ Argument BUFFER is the buffer of the retrieval process." | |||
| 898 | ;; Atom 1.0 feed. | 890 | ;; Atom 1.0 feed. |
| 899 | 891 | ||
| 900 | ;; (and (eq 'feed (xml-node-name topnode)) | 892 | ;; (and (eq 'feed (xml-node-name topnode)) |
| 901 | ;; (string= "http://www.w3.org/2005/Atom" | 893 | ;; (string= "https://www.w3.org/2005/Atom" |
| 902 | ;; (xml-get-attribute topnode 'xmlns))) | 894 | ;; (xml-get-attribute topnode 'xmlns))) |
| 903 | (setq image-url (newsticker--get-logo-url-atom-1.0 topnode)) | 895 | (setq image-url (newsticker--get-logo-url-atom-1.0 topnode)) |
| 904 | (setq icon-url (newsticker--get-icon-url-atom-1.0 topnode)) | 896 | (setq icon-url (newsticker--get-icon-url-atom-1.0 topnode)) |
diff --git a/lisp/net/newsticker.el b/lisp/net/newsticker.el index 6329e7660f7..535122a31fb 100644 --- a/lisp/net/newsticker.el +++ b/lisp/net/newsticker.el | |||
| @@ -54,7 +54,7 @@ | |||
| 54 | ;; as well as the following Atom formats: | 54 | ;; as well as the following Atom formats: |
| 55 | ;; * Atom 0.3 | 55 | ;; * Atom 0.3 |
| 56 | ;; * Atom 1.0 | 56 | ;; * Atom 1.0 |
| 57 | ;; (see http://www.ietf.org/internet-drafts/draft-ietf-atompub-format-11.txt) | 57 | ;; (see https://www.ietf.org/internet-drafts/draft-ietf-atompub-format-11.txt) |
| 58 | ;; That makes Newsticker.el an "Atom aggregator, "RSS reader", "RSS | 58 | ;; That makes Newsticker.el an "Atom aggregator, "RSS reader", "RSS |
| 59 | ;; aggregator", and "Feed Reader". | 59 | ;; aggregator", and "Feed Reader". |
| 60 | 60 | ||
diff --git a/lisp/net/nsm.el b/lisp/net/nsm.el index cc22427e6d1..2b300401650 100644 --- a/lisp/net/nsm.el +++ b/lisp/net/nsm.el | |||
| @@ -164,7 +164,7 @@ STATUS SETTINGS. HOST is the host domain, PORT is a TCP port | |||
| 164 | number, STATUS is the peer status returned by | 164 | number, STATUS is the peer status returned by |
| 165 | `gnutls-peer-status', and SETTINGS is the persistent and session | 165 | `gnutls-peer-status', and SETTINGS is the persistent and session |
| 166 | settings for the host HOST. Please refer to the contents of | 166 | settings for the host HOST. Please refer to the contents of |
| 167 | `nsm-setting-file' for details. If a problem is found, the check | 167 | `nsm-settings-file' for details. If a problem is found, the check |
| 168 | function is required to return an error message, and nil | 168 | function is required to return an error message, and nil |
| 169 | otherwise. | 169 | otherwise. |
| 170 | 170 | ||
diff --git a/lisp/net/puny.el b/lisp/net/puny.el index cc406076c58..5c58fe02cbf 100644 --- a/lisp/net/puny.el +++ b/lisp/net/puny.el | |||
| @@ -23,7 +23,7 @@ | |||
| 23 | ;;; Commentary: | 23 | ;;; Commentary: |
| 24 | 24 | ||
| 25 | ;; Written by looking at | 25 | ;; Written by looking at |
| 26 | ;; http://stackoverflow.com/questions/183485/can-anyone-recommend-a-good-free-javascript-for-punycode-to-unicode-conversion | 26 | ;; https://stackoverflow.com/questions/183485/can-anyone-recommend-a-good-free-javascript-for-punycode-to-unicode-conversion |
| 27 | 27 | ||
| 28 | ;;; Code: | 28 | ;;; Code: |
| 29 | 29 | ||
| @@ -196,12 +196,12 @@ For instance \"xn--bcher-kva\" => \"bücher\"." | |||
| 196 | (cl-incf i))) | 196 | (cl-incf i))) |
| 197 | (buffer-string))) | 197 | (buffer-string))) |
| 198 | 198 | ||
| 199 | ;; http://www.unicode.org/reports/tr39/#Restriction_Level_Detection | 199 | ;; https://www.unicode.org/reports/tr39/#Restriction_Level_Detection |
| 200 | ;; http://www.unicode.org/reports/tr31/#Table_Candidate_Characters_for_Inclusion_in_Identifiers | 200 | ;; https://www.unicode.org/reports/tr31/#Table_Candidate_Characters_for_Inclusion_in_Identifiers |
| 201 | 201 | ||
| 202 | (defun puny-highly-restrictive-string-p (string) | 202 | (defun puny-highly-restrictive-string-p (string) |
| 203 | "Say whether STRING is \"highly restrictive\" in the Unicode IDNA sense. | 203 | "Say whether STRING is \"highly restrictive\" in the Unicode IDNA sense. |
| 204 | See http://www.unicode.org/reports/tr39/#Restriction_Level_Detection | 204 | See https://www.unicode.org/reports/tr39/#Restriction_Level_Detection |
| 205 | for details. The main idea is that if you're mixing | 205 | for details. The main idea is that if you're mixing |
| 206 | scripts (like latin and cyrillic), you may confuse the user by | 206 | scripts (like latin and cyrillic), you may confuse the user by |
| 207 | using homographs." | 207 | using homographs." |
diff --git a/lisp/net/secrets.el b/lisp/net/secrets.el index 10d061fba20..dc1b468a118 100644 --- a/lisp/net/secrets.el +++ b/lisp/net/secrets.el | |||
| @@ -23,7 +23,7 @@ | |||
| 23 | ;;; Commentary: | 23 | ;;; Commentary: |
| 24 | 24 | ||
| 25 | ;; This package provides an implementation of the Secret Service API | 25 | ;; This package provides an implementation of the Secret Service API |
| 26 | ;; <http://www.freedesktop.org/wiki/Specifications/secret-storage-spec>. | 26 | ;; <https://www.freedesktop.org/wiki/Specifications/secret-storage-spec>. |
| 27 | ;; This API is meant to make GNOME-Keyring- and KWallet-like daemons | 27 | ;; This API is meant to make GNOME-Keyring- and KWallet-like daemons |
| 28 | ;; available under a common D-BUS interface and thus increase | 28 | ;; available under a common D-BUS interface and thus increase |
| 29 | ;; interoperability between GNOME, KDE and other applications having | 29 | ;; interoperability between GNOME, KDE and other applications having |
diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el index f07d214e122..241ce9efcb3 100644 --- a/lisp/net/soap-client.el +++ b/lisp/net/soap-client.el | |||
| @@ -2078,7 +2078,7 @@ This is a specialization of `soap-decode-type' for | |||
| 2078 | soap-headers ; list of (message part use) | 2078 | soap-headers ; list of (message part use) |
| 2079 | soap-body ; message parts present in the body | 2079 | soap-body ; message parts present in the body |
| 2080 | use ; 'literal or 'encoded, see | 2080 | use ; 'literal or 'encoded, see |
| 2081 | ; http://www.w3.org/TR/wsdl#_soap:body | 2081 | ; https://www.w3.org/TR/wsdl#_soap:body |
| 2082 | ) | 2082 | ) |
| 2083 | 2083 | ||
| 2084 | (cl-defstruct (soap-binding (:include soap-element)) | 2084 | (cl-defstruct (soap-binding (:include soap-element)) |
| @@ -2111,6 +2111,8 @@ This is a specialization of `soap-decode-type' for | |||
| 2111 | 2111 | ||
| 2112 | ;; Add the XSD types to the wsdl document | 2112 | ;; Add the XSD types to the wsdl document |
| 2113 | (let ((ns (soap-make-xs-basic-types | 2113 | (let ((ns (soap-make-xs-basic-types |
| 2114 | ;; The following string is a name and not an URL, so | ||
| 2115 | ;; the "http:" should not be changed. | ||
| 2114 | "http://www.w3.org/2001/XMLSchema" "xsd"))) | 2116 | "http://www.w3.org/2001/XMLSchema" "xsd"))) |
| 2115 | (soap-wsdl-add-namespace ns wsdl) | 2117 | (soap-wsdl-add-namespace ns wsdl) |
| 2116 | (soap-wsdl-add-alias "xsd" (soap-namespace-name ns) wsdl)) | 2118 | (soap-wsdl-add-alias "xsd" (soap-namespace-name ns) wsdl)) |
diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el index 218594b551c..c554a8d0c2d 100644 --- a/lisp/net/tramp-compat.el +++ b/lisp/net/tramp-compat.el | |||
| @@ -45,6 +45,14 @@ | |||
| 45 | (declare-function tramp-handle-temporary-file-directory "tramp") | 45 | (declare-function tramp-handle-temporary-file-directory "tramp") |
| 46 | (defvar tramp-temp-name-prefix) | 46 | (defvar tramp-temp-name-prefix) |
| 47 | 47 | ||
| 48 | (defconst tramp-compat-emacs-compiled-version (eval-when-compile emacs-version) | ||
| 49 | "The Emacs version used for compilation.") | ||
| 50 | |||
| 51 | (unless (= emacs-major-version | ||
| 52 | (car (version-to-list tramp-compat-emacs-compiled-version))) | ||
| 53 | (warn "Tramp has been compiled with Emacs %s, this is Emacs %s" | ||
| 54 | tramp-compat-emacs-compiled-version emacs-version)) | ||
| 55 | |||
| 48 | ;; For not existing functions, obsolete functions, or functions with a | 56 | ;; For not existing functions, obsolete functions, or functions with a |
| 49 | ;; changed argument list, there are compiler warnings. We want to | 57 | ;; changed argument list, there are compiler warnings. We want to |
| 50 | ;; avoid them in cases we know what we do. | 58 | ;; avoid them in cases we know what we do. |
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index a51edae1482..15eab0a4de5 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el | |||
| @@ -756,7 +756,7 @@ for($i = 0; $i < $n; $i++) | |||
| 756 | $stat[1]); | 756 | $stat[1]); |
| 757 | } | 757 | } |
| 758 | printf(\")\\n\");' \"$1\" \"$2\" 2>/dev/null" | 758 | printf(\")\\n\");' \"$1\" \"$2\" 2>/dev/null" |
| 759 | "Perl script implementing `directory-files-attributes' as Lisp `read'able | 759 | "Perl script implementing `directory-files-and-attributes' as Lisp `read'able |
| 760 | output. | 760 | output. |
| 761 | Escape sequence %s is replaced with name of Perl binary. | 761 | Escape sequence %s is replaced with name of Perl binary. |
| 762 | This string is passed to `format', so percent characters need to be doubled.") | 762 | This string is passed to `format', so percent characters need to be doubled.") |
| @@ -4408,7 +4408,7 @@ process to set up. VEC specifies the connection." | |||
| 4408 | 4408 | ||
| 4409 | ;; IRIX64 bash expands "!" even when in single quotes. This | 4409 | ;; IRIX64 bash expands "!" even when in single quotes. This |
| 4410 | ;; destroys our shell functions, we must disable it. See | 4410 | ;; destroys our shell functions, we must disable it. See |
| 4411 | ;; <http://stackoverflow.com/questions/3291692/irix-bash-shell-expands-expression-in-single-quotes-yet-shouldnt>. | 4411 | ;; <https://stackoverflow.com/questions/3291692/irix-bash-shell-expands-expression-in-single-quotes-yet-shouldnt>. |
| 4412 | (when (string-match-p "^IRIX64" uname) | 4412 | (when (string-match-p "^IRIX64" uname) |
| 4413 | (tramp-send-command vec "set +H" t)) | 4413 | (tramp-send-command vec "set +H" t)) |
| 4414 | 4414 | ||
diff --git a/lisp/notifications.el b/lisp/notifications.el index e6ce9a5d76d..3c2a8cf39c0 100644 --- a/lisp/notifications.el +++ b/lisp/notifications.el | |||
| @@ -108,7 +108,7 @@ | |||
| 108 | (setq notifications-on-action-object nil))))) | 108 | (setq notifications-on-action-object nil))))) |
| 109 | 109 | ||
| 110 | (defun notifications-on-closed-signal (id &optional reason) | 110 | (defun notifications-on-closed-signal (id &optional reason) |
| 111 | "Dispatch signals to callback functions from `notifications-on-closed-map'." | 111 | "Dispatch signals to callback functions from `notifications-on-close-map'." |
| 112 | ;; notification-daemon prior 0.4.0 does not send a reason. So we | 112 | ;; notification-daemon prior 0.4.0 does not send a reason. So we |
| 113 | ;; make it optional, and assume `undefined' as default. | 113 | ;; make it optional, and assume `undefined' as default. |
| 114 | (let* ((bus (dbus-event-bus-name last-input-event)) | 114 | (let* ((bus (dbus-event-bus-name last-input-event)) |
diff --git a/lisp/obsolete/erc-hecomplete.el b/lisp/obsolete/erc-hecomplete.el index 8f554282aed..cd26edeaa24 100644 --- a/lisp/obsolete/erc-hecomplete.el +++ b/lisp/obsolete/erc-hecomplete.el | |||
| @@ -4,7 +4,7 @@ | |||
| 4 | ;; Inc. | 4 | ;; Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Alex Schroeder <alex@gnu.org> | 6 | ;; Author: Alex Schroeder <alex@gnu.org> |
| 7 | ;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ErcCompletion | 7 | ;; URL: https://www.emacswiki.org/cgi-bin/wiki.pl?ErcCompletion |
| 8 | ;; Obsolete-since: 24.1 | 8 | ;; Obsolete-since: 24.1 |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
diff --git a/lisp/org/ChangeLog.1 b/lisp/org/ChangeLog.1 index 65d60bee11d..ef62ae7356c 100644 --- a/lisp/org/ChangeLog.1 +++ b/lisp/org/ChangeLog.1 | |||
| @@ -1615,7 +1615,7 @@ | |||
| 1615 | (org-babel-load-in-session-maybe, org-babel-pop-to-session-maybe): | 1615 | (org-babel-load-in-session-maybe, org-babel-pop-to-session-maybe): |
| 1616 | Use it. | 1616 | Use it. |
| 1617 | (org-babel-execute-src-block): Use `copy-tree' to prevent setf | 1617 | (org-babel-execute-src-block): Use `copy-tree' to prevent setf |
| 1618 | from modifying users variables withing let-bound `info' variable. | 1618 | from modifying users variables within let-bound `info' variable. |
| 1619 | 1619 | ||
| 1620 | * ob-exp.el (org-export-babel-evaluate): Add a 'inline-only | 1620 | * ob-exp.el (org-export-babel-evaluate): Add a 'inline-only |
| 1621 | option. | 1621 | option. |
| @@ -1821,7 +1821,7 @@ | |||
| 1821 | it is an ARRAY ref, otherwise print it without a final newline. | 1821 | it is an ARRAY ref, otherwise print it without a final newline. |
| 1822 | (org-babel-perl-preface): Content of this variable is prepended to | 1822 | (org-babel-perl-preface): Content of this variable is prepended to |
| 1823 | body before invocation of perl. Rename input parameter body to | 1823 | body before invocation of perl. Rename input parameter body to |
| 1824 | ibody and let-bind body to concatentation of | 1824 | ibody and let-bind body to concatenation of |
| 1825 | `org-babel-perl-preface' and ibody. Implement results | 1825 | `org-babel-perl-preface' and ibody. Implement results |
| 1826 | interpretation so that tables are easier to produce. | 1826 | interpretation so that tables are easier to produce. |
| 1827 | 1827 | ||
| @@ -3142,7 +3142,7 @@ | |||
| 3142 | relatively to the current timestamp, not to today's date. | 3142 | relatively to the current timestamp, not to today's date. |
| 3143 | 3143 | ||
| 3144 | * org-agenda.el (org-agenda-filter-apply): | 3144 | * org-agenda.el (org-agenda-filter-apply): |
| 3145 | Deactive `org-agenda-entry-text-mode' when filtering. | 3145 | Deactivate `org-agenda-entry-text-mode' when filtering. |
| 3146 | (org-agenda-entry-text-mode): Don't allow in filtered views. | 3146 | (org-agenda-entry-text-mode): Don't allow in filtered views. |
| 3147 | Don't show the maximum number of lines when turning off. | 3147 | Don't show the maximum number of lines when turning off. |
| 3148 | 3148 | ||
| @@ -3439,7 +3439,7 @@ | |||
| 3439 | (org-edit-src-exit): Cancel the timer. | 3439 | (org-edit-src-exit): Cancel the timer. |
| 3440 | (org-edit-src-save): Prevent saving when editing fixed-width | 3440 | (org-edit-src-save): Prevent saving when editing fixed-width |
| 3441 | buffer, exiting will save already. | 3441 | buffer, exiting will save already. |
| 3442 | (org-edit-src-exit): Inconditionally kill the src/example | 3442 | (org-edit-src-exit): Unconditionally kill the src/example |
| 3443 | editing buffer. | 3443 | editing buffer. |
| 3444 | 3444 | ||
| 3445 | * org-pcomplete.el (pcomplete/org-mode/file-option): | 3445 | * org-pcomplete.el (pcomplete/org-mode/file-option): |
| @@ -3490,7 +3490,7 @@ | |||
| 3490 | 3490 | ||
| 3491 | * org-pcomplete.el (pcomplete/org-mode/file-option/x): | 3491 | * org-pcomplete.el (pcomplete/org-mode/file-option/x): |
| 3492 | Resurrect. Use `org-default-options' to initialize completion | 3492 | Resurrect. Use `org-default-options' to initialize completion |
| 3493 | fonctions for the most important keywords. | 3493 | functions for the most important keywords. |
| 3494 | 3494 | ||
| 3495 | * org-macs.el (org-default-options): Rename and adapt from | 3495 | * org-macs.el (org-default-options): Rename and adapt from |
| 3496 | `org-get-current-options'. | 3496 | `org-get-current-options'. |
| @@ -3588,7 +3588,7 @@ | |||
| 3588 | new sorting strategies. | 3588 | new sorting strategies. |
| 3589 | (org-agenda-get-todos, org-agenda-get-timestamps) | 3589 | (org-agenda-get-todos, org-agenda-get-timestamps) |
| 3590 | (org-agenda-get-deadlines, org-agenda-get-scheduled): Add a | 3590 | (org-agenda-get-deadlines, org-agenda-get-scheduled): Add a |
| 3591 | `ts-date' text property with scheduled, deadline or timetamp | 3591 | `ts-date' text property with scheduled, deadline or timestamp |
| 3592 | date. | 3592 | date. |
| 3593 | (org-cmp-ts): New function to compare timestamps. | 3593 | (org-cmp-ts): New function to compare timestamps. |
| 3594 | (org-em): Add a docstring. | 3594 | (org-em): Add a docstring. |
| @@ -4800,7 +4800,7 @@ | |||
| 4800 | (org-element-timestamp-interpreter): Parse warning delays. | 4800 | (org-element-timestamp-interpreter): Parse warning delays. |
| 4801 | 4801 | ||
| 4802 | * ox-beamer.el (org-beamer--format-section): Fix regression which | 4802 | * ox-beamer.el (org-beamer--format-section): Fix regression which |
| 4803 | prevents frames from being propely exported. | 4803 | prevents frames from being properly exported. |
| 4804 | 4804 | ||
| 4805 | * ox.el (org-export-with-backend): Ensure function will use | 4805 | * ox.el (org-export-with-backend): Ensure function will use |
| 4806 | provided back-end. | 4806 | provided back-end. |
| @@ -4888,7 +4888,7 @@ | |||
| 4888 | which is always nil in this back-end. | 4888 | which is always nil in this back-end. |
| 4889 | 4889 | ||
| 4890 | * org.el (org-adaptive-fill-function): Look for a fill prefix at | 4890 | * org.el (org-adaptive-fill-function): Look for a fill prefix at |
| 4891 | the beginning of the paragraph and subsquently on its second line | 4891 | the beginning of the paragraph and subsequently on its second line |
| 4892 | instead of the current line. | 4892 | instead of the current line. |
| 4893 | 4893 | ||
| 4894 | * ob-core.el (org-babel-get-src-block-info): Look for indentation | 4894 | * ob-core.el (org-babel-get-src-block-info): Look for indentation |
| @@ -5595,7 +5595,7 @@ | |||
| 5595 | (org-export-async-start): Do not call `org-mode' since this is done | 5595 | (org-export-async-start): Do not call `org-mode' since this is done |
| 5596 | already in the previous function. | 5596 | already in the previous function. |
| 5597 | 5597 | ||
| 5598 | * ox-beamer.el (org-beamer-keyword): Remove frame arount toc when | 5598 | * ox-beamer.el (org-beamer-keyword): Remove frame around toc when |
| 5599 | generated from a TOC keyword. | 5599 | generated from a TOC keyword. |
| 5600 | 5600 | ||
| 5601 | * org.el (org-export-backends): Do not reset list of loaded | 5601 | * org.el (org-export-backends): Do not reset list of loaded |
| @@ -5629,7 +5629,7 @@ | |||
| 5629 | during a body-only export. | 5629 | during a body-only export. |
| 5630 | 5630 | ||
| 5631 | * ox.el (org-export-as): Store export options in :export-options | 5631 | * ox.el (org-export-as): Store export options in :export-options |
| 5632 | porperty within communication channel. | 5632 | property within communication channel. |
| 5633 | 5633 | ||
| 5634 | * ox-latex.el (org-latex-item): Fix wrong behavior when a counter | 5634 | * ox-latex.el (org-latex-item): Fix wrong behavior when a counter |
| 5635 | is set in an ordered list while its parent is not ordered. | 5635 | is set in an ordered list while its parent is not ordered. |
| @@ -5714,7 +5714,7 @@ | |||
| 5714 | (org-create-formula-image-with-dvipng) | 5714 | (org-create-formula-image-with-dvipng) |
| 5715 | (org-create-formula-image-with-imagemagick): Use new function. | 5715 | (org-create-formula-image-with-imagemagick): Use new function. |
| 5716 | 5716 | ||
| 5717 | * ox.el (org-export-get-previous-element): Change order of retured | 5717 | * ox.el (org-export-get-previous-element): Change order of returned |
| 5718 | elements in `org-export-get-previous-element'. | 5718 | elements in `org-export-get-previous-element'. |
| 5719 | 5719 | ||
| 5720 | * org-element.el (org-element-all-successors): Add `plain-link' | 5720 | * org-element.el (org-element-all-successors): Add `plain-link' |
| @@ -5839,10 +5839,10 @@ | |||
| 5839 | Remove reference to now renamed `e-ascii' back-end. | 5839 | Remove reference to now renamed `e-ascii' back-end. |
| 5840 | 5840 | ||
| 5841 | * ox-beamer.el (org-beamer-template): Allow to span documentclass | 5841 | * ox-beamer.el (org-beamer-template): Allow to span documentclass |
| 5842 | options accross multiple lines in template. | 5842 | options across multiple lines in template. |
| 5843 | 5843 | ||
| 5844 | * ox-latex.el (org-latex-template): Allow to span documentclass | 5844 | * ox-latex.el (org-latex-template): Allow to span documentclass |
| 5845 | options accross multiple lines in template. | 5845 | options across multiple lines in template. |
| 5846 | 5846 | ||
| 5847 | * ox-texinfo.el (org-texinfo--get-node): Upcase property name. | 5847 | * ox-texinfo.el (org-texinfo--get-node): Upcase property name. |
| 5848 | (org-texinfo--get-node): New function. | 5848 | (org-texinfo--get-node): New function. |
| @@ -6524,7 +6524,7 @@ | |||
| 6524 | * org.el (org-open-at-point): The new code is being run in the | 6524 | * org.el (org-open-at-point): The new code is being run in the |
| 6525 | same spot as `org-open-link-functions'. In case they failed, | 6525 | same spot as `org-open-link-functions'. In case they failed, |
| 6526 | check if link matches "^id:" and if so, load the id interface and | 6526 | check if link matches "^id:" and if so, load the id interface and |
| 6527 | follwo the link. | 6527 | follow the link. |
| 6528 | 6528 | ||
| 6529 | 2013-11-12 Rasmus Pank Roulund <rasmus@gmx.us> (tiny change) | 6529 | 2013-11-12 Rasmus Pank Roulund <rasmus@gmx.us> (tiny change) |
| 6530 | 6530 | ||
| @@ -6717,7 +6717,7 @@ | |||
| 6717 | 2013-11-12 Vitalie Spinu <spinuvit@gmail.com> | 6717 | 2013-11-12 Vitalie Spinu <spinuvit@gmail.com> |
| 6718 | 6718 | ||
| 6719 | * ob-tangle.el (org-babel-find-file-noselect-refresh): | 6719 | * ob-tangle.el (org-babel-find-file-noselect-refresh): |
| 6720 | Call `find-file-noselect' with 'nowarn argument to surpress | 6720 | Call `find-file-noselect' with 'nowarn argument to suppress |
| 6721 | `yes-or-no-p' reversion message. | 6721 | `yes-or-no-p' reversion message. |
| 6722 | 6722 | ||
| 6723 | * ob-core.el (org-babel-where-is-src-block-head): | 6723 | * ob-core.el (org-babel-where-is-src-block-head): |
| @@ -6990,7 +6990,7 @@ | |||
| 6990 | docstrings. Also fix typos. | 6990 | docstrings. Also fix typos. |
| 6991 | 6991 | ||
| 6992 | * org-list.el (org-list-struct-fix-box): When a checkbox has to be | 6992 | * org-list.el (org-list-struct-fix-box): When a checkbox has to be |
| 6993 | resetted because of a non-nil ORDERED property value, make sure it | 6993 | reset because of a non-nil ORDERED property value, make sure it |
| 6994 | had a checkbox already. | 6994 | had a checkbox already. |
| 6995 | 6995 | ||
| 6996 | 2013-02-07 Tokuya Kameshima <kametoku@gmail.com> (tiny change) | 6996 | 2013-02-07 Tokuya Kameshima <kametoku@gmail.com> (tiny change) |
| @@ -9533,7 +9533,7 @@ | |||
| 9533 | * org-latex.el (org-export-latex-make-header): Ditto. | 9533 | * org-latex.el (org-export-latex-make-header): Ditto. |
| 9534 | 9534 | ||
| 9535 | * org-clock.el (org-clocktable-write-default): Temporarily disable | 9535 | * org-clock.el (org-clocktable-write-default): Temporarily disable |
| 9536 | `delete-active-region' so that we don't accidently delete an | 9536 | `delete-active-region' so that we don't accidentally delete an |
| 9537 | active region when exporting a subtree/region. | 9537 | active region when exporting a subtree/region. |
| 9538 | 9538 | ||
| 9539 | * org-clock.el (org-program-exists): Remove. | 9539 | * org-clock.el (org-program-exists): Remove. |
| @@ -10419,7 +10419,7 @@ | |||
| 10419 | space character when auto-filling. | 10419 | space character when auto-filling. |
| 10420 | 10420 | ||
| 10421 | * org.el (org-mode): Call external initalizers. Now both filling | 10421 | * org.el (org-mode): Call external initalizers. Now both filling |
| 10422 | code and comments code have their own independant part in org.el. | 10422 | code and comments code have their own independent part in org.el. |
| 10423 | (org-setup-filling): Rename from `org-set-autofill-regexps'. | 10423 | (org-setup-filling): Rename from `org-set-autofill-regexps'. |
| 10424 | (org-setup-comments-handling): New function. | 10424 | (org-setup-comments-handling): New function. |
| 10425 | 10425 | ||
| @@ -10652,7 +10652,7 @@ | |||
| 10652 | (org-list-struct-apply-struct, org-insert-item): Remove rule | 10652 | (org-list-struct-apply-struct, org-insert-item): Remove rule |
| 10653 | check. | 10653 | check. |
| 10654 | 10654 | ||
| 10655 | * org-footnote.el (org-footnote-normalize): Fix positionning in | 10655 | * org-footnote.el (org-footnote-normalize): Fix positioning in |
| 10656 | HTML export without a footnote section. | 10656 | HTML export without a footnote section. |
| 10657 | 10657 | ||
| 10658 | * org-list.el (org-list-struct-indent): | 10658 | * org-list.el (org-list-struct-indent): |
| @@ -11318,7 +11318,7 @@ | |||
| 11318 | 2012-04-01 Shaun Johnson <shaun@slugfest.demon.co.uk> (tiny change) | 11318 | 2012-04-01 Shaun Johnson <shaun@slugfest.demon.co.uk> (tiny change) |
| 11319 | 11319 | ||
| 11320 | * org-exp-blocks.el (org-ditaa-jar-path): Better heuristic to find | 11320 | * org-exp-blocks.el (org-ditaa-jar-path): Better heuristic to find |
| 11321 | the libary name. | 11321 | the library name. |
| 11322 | 11322 | ||
| 11323 | 2012-04-01 Suvayu Ali <fatkasuvayu+linux@gmail.com> | 11323 | 2012-04-01 Suvayu Ali <fatkasuvayu+linux@gmail.com> |
| 11324 | 11324 | ||
| @@ -11917,7 +11917,7 @@ | |||
| 11917 | 2012-04-01 Nicolas Goaziou <n.goaziou@gmail.com> | 11917 | 2012-04-01 Nicolas Goaziou <n.goaziou@gmail.com> |
| 11918 | 11918 | ||
| 11919 | * org-footnote.el (org-footnote-at-definition-p): Make sure to | 11919 | * org-footnote.el (org-footnote-at-definition-p): Make sure to |
| 11920 | move point at the beginning of the separator before skiping white | 11920 | move point at the beginning of the separator before skipping white |
| 11921 | spaces. Refactor code. | 11921 | spaces. Refactor code. |
| 11922 | 11922 | ||
| 11923 | 2012-04-01 Eric Schulte <eric.schulte@gmx.com> | 11923 | 2012-04-01 Eric Schulte <eric.schulte@gmx.com> |
| @@ -13692,7 +13692,7 @@ | |||
| 13692 | 2012-01-03 Carsten Dominik <carsten.dominik@gmail.com> | 13692 | 2012-01-03 Carsten Dominik <carsten.dominik@gmail.com> |
| 13693 | 13693 | ||
| 13694 | * org-publish.el (org-publish-cache-file-needs-publishing): | 13694 | * org-publish.el (org-publish-cache-file-needs-publishing): |
| 13695 | Fix regexp to not inlcude newlines. | 13695 | Fix regexp to not include newlines. |
| 13696 | 13696 | ||
| 13697 | 2012-01-03 Carsten Dominik <carsten.dominik@gmail.com> | 13697 | 2012-01-03 Carsten Dominik <carsten.dominik@gmail.com> |
| 13698 | 13698 | ||
| @@ -14560,7 +14560,7 @@ | |||
| 14560 | 2012-01-03 Nicolas Goaziou <n.goaziou@gmail.com> | 14560 | 2012-01-03 Nicolas Goaziou <n.goaziou@gmail.com> |
| 14561 | 14561 | ||
| 14562 | * org-footnote.el (org-footnote-normalize): Effectively remove | 14562 | * org-footnote.el (org-footnote-normalize): Effectively remove |
| 14563 | any footnote tag in non Org buffers, as detailled in the | 14563 | any footnote tag in non Org buffers, as detailed in the |
| 14564 | docstring of `org-footnote-tag-for-non-org-mode-files'. | 14564 | docstring of `org-footnote-tag-for-non-org-mode-files'. |
| 14565 | 14565 | ||
| 14566 | 2012-01-03 Nicolas Goaziou <n.goaziou@gmail.com> | 14566 | 2012-01-03 Nicolas Goaziou <n.goaziou@gmail.com> |
| @@ -15622,7 +15622,7 @@ | |||
| 15622 | 2011-07-28 David Maus <dmaus@ictsoc.de> | 15622 | 2011-07-28 David Maus <dmaus@ictsoc.de> |
| 15623 | 15623 | ||
| 15624 | * ob-haskell.el (org-babel-haskell-export-to-lhs): | 15624 | * ob-haskell.el (org-babel-haskell-export-to-lhs): |
| 15625 | Call `kill-buffer' with argument indiciating to kill current | 15625 | Call `kill-buffer' with argument indicating to kill current |
| 15626 | buffer. Emacs 22 compatibility. | 15626 | buffer. Emacs 22 compatibility. |
| 15627 | 15627 | ||
| 15628 | 2011-07-28 David Maus <dmaus@ictsoc.de> | 15628 | 2011-07-28 David Maus <dmaus@ictsoc.de> |
| @@ -18049,7 +18049,7 @@ | |||
| 18049 | 18049 | ||
| 18050 | * org-table.el (org-table-fedit-finish): Read more general LHS of | 18050 | * org-table.el (org-table-fedit-finish): Read more general LHS of |
| 18051 | formulas. | 18051 | formulas. |
| 18052 | (org-table-formula-handle-@L): New function to hanle @L references. | 18052 | (org-table-formula-handle-@L): New function to handle @L references. |
| 18053 | (org-table-current-ncol): New variable. | 18053 | (org-table-current-ncol): New variable. |
| 18054 | (org-table-line-to-dline): New function. | 18054 | (org-table-line-to-dline): New function. |
| 18055 | (org-table-get-stored-formulas): Accept range formulas as matches. | 18055 | (org-table-get-stored-formulas): Accept range formulas as matches. |
| @@ -18058,7 +18058,7 @@ | |||
| 18058 | only the region marked by the range, not the content. | 18058 | only the region marked by the range, not the content. |
| 18059 | (org-table-recalculate): Call `org-table-expand-lhs-ranges' to expand | 18059 | (org-table-recalculate): Call `org-table-expand-lhs-ranges' to expand |
| 18060 | range targets. Also check for duplicate access to fields. | 18060 | range targets. Also check for duplicate access to fields. |
| 18061 | (org-table-expand-lhs-ranges): New funktion. | 18061 | (org-table-expand-lhs-ranges): New function. |
| 18062 | (org-table-get-remote-range): Bind `org-table-current-ncol' to protect | 18062 | (org-table-get-remote-range): Bind `org-table-current-ncol' to protect |
| 18063 | the caller's value. | 18063 | the caller's value. |
| 18064 | (org-table-edit-formulas): Support highlighting of range targets. | 18064 | (org-table-edit-formulas): Support highlighting of range targets. |
| @@ -19339,8 +19339,8 @@ | |||
| 19339 | 19339 | ||
| 19340 | * org-crypt.el (org-encrypt-string): New function. | 19340 | * org-crypt.el (org-encrypt-string): New function. |
| 19341 | (org-encrypt-entry): Use org-encrypt-string to encrypt, so we use | 19341 | (org-encrypt-entry): Use org-encrypt-string to encrypt, so we use |
| 19342 | cached crypted values. | 19342 | cached encrypted values. |
| 19343 | (org-decrypt-entry): Store crypted text in decrypted text. | 19343 | (org-decrypt-entry): Store encrypted text in decrypted text. |
| 19344 | 19344 | ||
| 19345 | 2011-07-28 Dan Davison <dandavison7@gmail.com> | 19345 | 2011-07-28 Dan Davison <dandavison7@gmail.com> |
| 19346 | 19346 | ||
| @@ -20331,7 +20331,7 @@ | |||
| 20331 | 2010-12-11 Carsten Dominik <carsten.dominik@gmail.com> | 20331 | 2010-12-11 Carsten Dominik <carsten.dominik@gmail.com> |
| 20332 | 20332 | ||
| 20333 | * org-clock.el (org-quarter-to-date): Define variables. | 20333 | * org-clock.el (org-quarter-to-date): Define variables. |
| 20334 | (org-clock-special-range): Defin variables. Use org-floor*. | 20334 | (org-clock-special-range): Define variables. Use org-floor*. |
| 20335 | (org-clocktable-write-default): Define tcol. | 20335 | (org-clocktable-write-default): Define tcol. |
| 20336 | 20336 | ||
| 20337 | * org-compat.el (org-floor*): New function. | 20337 | * org-compat.el (org-floor*): New function. |
| @@ -22854,7 +22854,7 @@ | |||
| 22854 | 2010-11-11 Nicolas Goaziou <n.goaziou@gmail.com> | 22854 | 2010-11-11 Nicolas Goaziou <n.goaziou@gmail.com> |
| 22855 | 22855 | ||
| 22856 | * org-list.el (org-cycle-item-indentation): Do return t if and | 22856 | * org-list.el (org-cycle-item-indentation): Do return t if and |
| 22857 | only if cycling is possible and succeded. | 22857 | only if cycling is possible and succeeded. |
| 22858 | 22858 | ||
| 22859 | 2010-11-11 Nicolas Goaziou <n.goaziou@gmail.com> | 22859 | 2010-11-11 Nicolas Goaziou <n.goaziou@gmail.com> |
| 22860 | 22860 | ||
| @@ -28181,7 +28181,7 @@ | |||
| 28181 | * org-src.el (org-src-lang-modes): New variable. | 28181 | * org-src.el (org-src-lang-modes): New variable. |
| 28182 | (org-edit-src-code): Translate language. | 28182 | (org-edit-src-code): Translate language. |
| 28183 | 28183 | ||
| 28184 | * org-exp.el (org-export-format-source-code-or-example): Deal wit | 28184 | * org-exp.el (org-export-format-source-code-or-example): Deal with |
| 28185 | the new structure of the `org-export-latex-listings-langs' | 28185 | the new structure of the `org-export-latex-listings-langs' |
| 28186 | variable. | 28186 | variable. |
| 28187 | 28187 | ||
| @@ -28529,7 +28529,7 @@ | |||
| 28529 | 28529 | ||
| 28530 | * org.el (org-adapt-indentation): Slightly improve the docstring. | 28530 | * org.el (org-adapt-indentation): Slightly improve the docstring. |
| 28531 | (org-occur): Sends an error when the user inputs an empty string. | 28531 | (org-occur): Sends an error when the user inputs an empty string. |
| 28532 | (org-priority): Bugfix: the tag alignement should happen within | 28532 | (org-priority): Bugfix: the tag alignment should happen within |
| 28533 | save-excursion. | 28533 | save-excursion. |
| 28534 | 28534 | ||
| 28535 | 2009-08-06 Bastien Guerry <bzg@gnu.org> | 28535 | 2009-08-06 Bastien Guerry <bzg@gnu.org> |
| @@ -28830,7 +28830,7 @@ | |||
| 28830 | 28830 | ||
| 28831 | * org-agenda.el (org-agenda-mode): Reset list of marks. | 28831 | * org-agenda.el (org-agenda-mode): Reset list of marks. |
| 28832 | (org-agenda-mode-map): Define new keys for refile and bulk action. | 28832 | (org-agenda-mode-map): Define new keys for refile and bulk action. |
| 28833 | (org-agenda-menu): Add menu itesm for refile and bulk action. | 28833 | (org-agenda-menu): Add menu items for refile and bulk action. |
| 28834 | (org-agenda-refile): New function. | 28834 | (org-agenda-refile): New function. |
| 28835 | (org-agenda-set-tags): Optional arguments TAG and ONOFF. | 28835 | (org-agenda-set-tags): Optional arguments TAG and ONOFF. |
| 28836 | (org-agenda-marked-entries): New variable. | 28836 | (org-agenda-marked-entries): New variable. |
| @@ -29490,7 +29490,7 @@ | |||
| 29490 | New functions. | 29490 | New functions. |
| 29491 | (org-protocol-check-filename-for-protocol): Call `server-edit'. | 29491 | (org-protocol-check-filename-for-protocol): Call `server-edit'. |
| 29492 | 29492 | ||
| 29493 | * org.el (org-default-properties): New default properteis for | 29493 | * org.el (org-default-properties): New default properties for |
| 29494 | completion. | 29494 | completion. |
| 29495 | 29495 | ||
| 29496 | * org-exp.el (org-export-add-subtree-options): Add new properties | 29496 | * org-exp.el (org-export-add-subtree-options): Add new properties |
| @@ -29842,7 +29842,7 @@ | |||
| 29842 | * org-faces.el (org-checkbox): New face. | 29842 | * org-faces.el (org-checkbox): New face. |
| 29843 | 29843 | ||
| 29844 | * org-exp.el (org-export-html-preprocess): Only create LaTeX | 29844 | * org-exp.el (org-export-html-preprocess): Only create LaTeX |
| 29845 | fragement images if there is an export file. | 29845 | fragment images if there is an export file. |
| 29846 | 29846 | ||
| 29847 | 2009-08-06 Carsten Dominik <carsten.dominik@gmail.com> | 29847 | 2009-08-06 Carsten Dominik <carsten.dominik@gmail.com> |
| 29848 | 29848 | ||
| @@ -30465,7 +30465,7 @@ | |||
| 30465 | workings of `org-toggle-heading'. | 30465 | workings of `org-toggle-heading'. |
| 30466 | (org-toggle-item): Rename from `org-toggle-region-items'. | 30466 | (org-toggle-item): Rename from `org-toggle-region-items'. |
| 30467 | No longer needs a region defined, but will use it if there is one. | 30467 | No longer needs a region defined, but will use it if there is one. |
| 30468 | (org-ctrl-c-minus): Simplify, relying more on the inernal | 30468 | (org-ctrl-c-minus): Simplify, relying more on the internal |
| 30469 | workings of `org-toggle-item'. | 30469 | workings of `org-toggle-item'. |
| 30470 | 30470 | ||
| 30471 | * org-export-latex.el (org-export-latex-preprocess): Fix bug in | 30471 | * org-export-latex.el (org-export-latex-preprocess): Fix bug in |
| @@ -30674,7 +30674,7 @@ | |||
| 30674 | converter. | 30674 | converter. |
| 30675 | 30675 | ||
| 30676 | * org-exp.el (org-export-preprocess-string): Remove clock lines | 30676 | * org-exp.el (org-export-preprocess-string): Remove clock lines |
| 30677 | and timestamps already in the preprocesor. | 30677 | and timestamps already in the preprocessor. |
| 30678 | (org-export-remove-timestamps, org-export-remove-clock-lines): | 30678 | (org-export-remove-timestamps, org-export-remove-clock-lines): |
| 30679 | New functions. | 30679 | New functions. |
| 30680 | (org-export-as-ascii, org-export-as-html): Add the timestamps | 30680 | (org-export-as-ascii, org-export-as-html): Add the timestamps |
| @@ -31158,14 +31158,14 @@ | |||
| 31158 | 2008-11-24 Carsten Dominik <carsten.dominik@gmail.com> | 31158 | 2008-11-24 Carsten Dominik <carsten.dominik@gmail.com> |
| 31159 | 31159 | ||
| 31160 | * org-agenda.el (org-get-closed): Re-apply changes | 31160 | * org-agenda.el (org-get-closed): Re-apply changes |
| 31161 | accidentially overwritten by last commit to Emacs. | 31161 | accidentally overwritten by last commit to Emacs. |
| 31162 | 31162 | ||
| 31163 | * org.el (org-outline-path-complete-in-steps): New option. | 31163 | * org.el (org-outline-path-complete-in-steps): New option. |
| 31164 | (org-refile-get-location): | 31164 | (org-refile-get-location): |
| 31165 | Honor `org-outline-path-complete-in-steps'. | 31165 | Honor `org-outline-path-complete-in-steps'. |
| 31166 | (org-agenda-change-all-lines, org-tags-sparse-tree) | 31166 | (org-agenda-change-all-lines, org-tags-sparse-tree) |
| 31167 | (org-time-string-to-absolute, org-small-year-to-year) | 31167 | (org-time-string-to-absolute, org-small-year-to-year) |
| 31168 | (org-link-escape): Re-apply changes accidentially overwritten | 31168 | (org-link-escape): Re-apply changes accidentally overwritten |
| 31169 | by last commit to Emacs. | 31169 | by last commit to Emacs. |
| 31170 | 31170 | ||
| 31171 | 2008-11-23 Carsten Dominik <carsten.dominik@gmail.com> | 31171 | 2008-11-23 Carsten Dominik <carsten.dominik@gmail.com> |
diff --git a/lisp/org/ob-plantuml.el b/lisp/org/ob-plantuml.el index 5bf9e2beee4..49886e292e5 100644 --- a/lisp/org/ob-plantuml.el +++ b/lisp/org/ob-plantuml.el | |||
| @@ -26,7 +26,7 @@ | |||
| 26 | ;; Org-Babel support for evaluating plantuml script. | 26 | ;; Org-Babel support for evaluating plantuml script. |
| 27 | ;; | 27 | ;; |
| 28 | ;; Inspired by Ian Yang's org-export-blocks-format-plantuml | 28 | ;; Inspired by Ian Yang's org-export-blocks-format-plantuml |
| 29 | ;; http://www.emacswiki.org/emacs/org-export-blocks-format-plantuml.el | 29 | ;; https://www.emacswiki.org/emacs/org-export-blocks-format-plantuml.el |
| 30 | 30 | ||
| 31 | ;;; Requirements: | 31 | ;;; Requirements: |
| 32 | 32 | ||
diff --git a/lisp/org/ob-ruby.el b/lisp/org/ob-ruby.el index 90956271cf5..1b8088eaee4 100644 --- a/lisp/org/ob-ruby.el +++ b/lisp/org/ob-ruby.el | |||
| @@ -30,10 +30,10 @@ | |||
| 30 | ;; - ruby and irb executables :: http://www.ruby-lang.org/ | 30 | ;; - ruby and irb executables :: http://www.ruby-lang.org/ |
| 31 | ;; | 31 | ;; |
| 32 | ;; - ruby-mode :: Can be installed through ELPA, or from | 32 | ;; - ruby-mode :: Can be installed through ELPA, or from |
| 33 | ;; http://github.com/eschulte/rinari/raw/master/util/ruby-mode.el | 33 | ;; https://github.com/eschulte/rinari/raw/master/util/ruby-mode.el |
| 34 | ;; | 34 | ;; |
| 35 | ;; - inf-ruby mode :: Can be installed through ELPA, or from | 35 | ;; - inf-ruby mode :: Can be installed through ELPA, or from |
| 36 | ;; http://github.com/eschulte/rinari/raw/master/util/inf-ruby.el | 36 | ;; https://github.com/eschulte/rinari/raw/master/util/inf-ruby.el |
| 37 | 37 | ||
| 38 | ;;; Code: | 38 | ;;; Code: |
| 39 | (require 'ob) | 39 | (require 'ob) |
diff --git a/lisp/org/ob-sass.el b/lisp/org/ob-sass.el index 60c081dcb38..c101574696c 100644 --- a/lisp/org/ob-sass.el +++ b/lisp/org/ob-sass.el | |||
| @@ -35,7 +35,7 @@ | |||
| 35 | 35 | ||
| 36 | ;;; Requirements: | 36 | ;;; Requirements: |
| 37 | 37 | ||
| 38 | ;; - sass-mode :: http://github.com/nex3/haml/blob/master/extra/sass-mode.el | 38 | ;; - sass-mode :: https://github.com/nex3/haml/blob/master/extra/sass-mode.el |
| 39 | 39 | ||
| 40 | ;;; Code: | 40 | ;;; Code: |
| 41 | (require 'ob) | 41 | (require 'ob) |
diff --git a/lisp/org/ob-stan.el b/lisp/org/ob-stan.el index c563a6c3e55..678047c8008 100644 --- a/lisp/org/ob-stan.el +++ b/lisp/org/ob-stan.el | |||
| @@ -41,7 +41,7 @@ | |||
| 41 | ;; For more information and usage examples, visit | 41 | ;; For more information and usage examples, visit |
| 42 | ;; https://orgmode.org/worg/org-contrib/babel/languages/ob-doc-stan.html | 42 | ;; https://orgmode.org/worg/org-contrib/babel/languages/ob-doc-stan.html |
| 43 | ;; | 43 | ;; |
| 44 | ;; [1] http://mc-stan.org/ | 44 | ;; [1] https://mc-stan.org/ |
| 45 | 45 | ||
| 46 | ;;; Code: | 46 | ;;; Code: |
| 47 | (require 'ob) | 47 | (require 'ob) |
diff --git a/lisp/org/ol-bibtex.el b/lisp/org/ol-bibtex.el index ad6622714dd..f139d645dad 100644 --- a/lisp/org/ol-bibtex.el +++ b/lisp/org/ol-bibtex.el | |||
| @@ -318,7 +318,7 @@ is non-nil." | |||
| 318 | "Controls whether inherited tags are converted to bibtex keywords. | 318 | "Controls whether inherited tags are converted to bibtex keywords. |
| 319 | It is relevant only if `org-bibtex-tags-are-keywords' is non-nil. | 319 | It is relevant only if `org-bibtex-tags-are-keywords' is non-nil. |
| 320 | Tag inheritance itself is controlled by `org-use-tag-inheritance' | 320 | Tag inheritance itself is controlled by `org-use-tag-inheritance' |
| 321 | and `org-exclude-tags-from-inheritance'." | 321 | and `org-tags-exclude-from-inheritance'." |
| 322 | :group 'org-bibtex | 322 | :group 'org-bibtex |
| 323 | :version "26.1" | 323 | :version "26.1" |
| 324 | :package-version '(Org . "8.3") | 324 | :package-version '(Org . "8.3") |
diff --git a/lisp/org/org-num.el b/lisp/org/org-num.el index a6ddce733c8..5b8e1dbb6d1 100644 --- a/lisp/org/org-num.el +++ b/lisp/org/org-num.el | |||
| @@ -131,7 +131,7 @@ For example, add \"ARCHIVE\" to this list to avoid numbering | |||
| 131 | archived sub-trees. | 131 | archived sub-trees. |
| 132 | 132 | ||
| 133 | Tag in this list prevent numbering the whole sub-tree, | 133 | Tag in this list prevent numbering the whole sub-tree, |
| 134 | irrespective to `org-use-tags-inheritance', or other means to | 134 | irrespective to `org-use-tag-inheritance', or other means to |
| 135 | control tag inheritance." | 135 | control tag inheritance." |
| 136 | :group 'org-appearance | 136 | :group 'org-appearance |
| 137 | :package-version '(Org . "9.3") | 137 | :package-version '(Org . "9.3") |
diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el index abba29952e6..5c37cb1af52 100644 --- a/lisp/org/org-table.el +++ b/lisp/org/org-table.el | |||
| @@ -6122,7 +6122,7 @@ which will prompt for the width." | |||
| 6122 | ;; Here are two examples of different styles. | 6122 | ;; Here are two examples of different styles. |
| 6123 | 6123 | ||
| 6124 | ;; Unicode block characters are used to give a smooth effect. | 6124 | ;; Unicode block characters are used to give a smooth effect. |
| 6125 | ;; See http://en.wikipedia.org/wiki/Block_Elements | 6125 | ;; See https://en.wikipedia.org/wiki/Block_Elements |
| 6126 | ;; Use one of those drawing functions | 6126 | ;; Use one of those drawing functions |
| 6127 | ;; - orgtbl-ascii-draw (the default ascii) | 6127 | ;; - orgtbl-ascii-draw (the default ascii) |
| 6128 | ;; - orgtbl-uc-draw-grid (unicode with a grid effect) | 6128 | ;; - orgtbl-uc-draw-grid (unicode with a grid effect) |
| @@ -6136,7 +6136,7 @@ which will prompt for the width." | |||
| 6136 | It is a variant of orgtbl-ascii-draw with Unicode block | 6136 | It is a variant of orgtbl-ascii-draw with Unicode block |
| 6137 | characters, for a smooth display. Bars appear as grids (to the | 6137 | characters, for a smooth display. Bars appear as grids (to the |
| 6138 | extent the font allows)." | 6138 | extent the font allows)." |
| 6139 | ;; http://en.wikipedia.org/wiki/Block_Elements | 6139 | ;; https://en.wikipedia.org/wiki/Block_Elements |
| 6140 | ;; best viewed with the "DejaVu Sans Mono" font. | 6140 | ;; best viewed with the "DejaVu Sans Mono" font. |
| 6141 | (orgtbl-ascii-draw value min max width | 6141 | (orgtbl-ascii-draw value min max width |
| 6142 | " \u258F\u258E\u258D\u258C\u258B\u258A\u2589")) | 6142 | " \u258F\u258E\u258D\u258C\u258B\u258A\u2589")) |
diff --git a/lisp/org/org.el b/lisp/org/org.el index f1a7f61a9a1..7733198c588 100644 --- a/lisp/org/org.el +++ b/lisp/org/org.el | |||
| @@ -2059,7 +2059,7 @@ taken from the (otherwise obsolete) variable `org-todo-interpretation'." | |||
| 2059 | (choice | 2059 | (choice |
| 2060 | :tag "Interpretation" | 2060 | :tag "Interpretation" |
| 2061 | ;;Quick and dirty way to see | 2061 | ;;Quick and dirty way to see |
| 2062 | ;;`org-todo-interpretations'. This takes the | 2062 | ;;`org-todo-interpretation'. This takes the |
| 2063 | ;;place of item arguments | 2063 | ;;place of item arguments |
| 2064 | :convert-widget | 2064 | :convert-widget |
| 2065 | (lambda (widget) | 2065 | (lambda (widget) |
diff --git a/lisp/org/ox.el b/lisp/org/ox.el index 797efb90b79..2f8fd0c645b 100644 --- a/lisp/org/ox.el +++ b/lisp/org/ox.el | |||
| @@ -5459,7 +5459,7 @@ transcoding it." | |||
| 5459 | (apostrophe :utf-8 "’" :html "’")) | 5459 | (apostrophe :utf-8 "’" :html "’")) |
| 5460 | ("da" | 5460 | ("da" |
| 5461 | ;; one may use: »...«, "...", ›...‹, or '...'. | 5461 | ;; one may use: »...«, "...", ›...‹, or '...'. |
| 5462 | ;; http://sproget.dk/raad-og-regler/retskrivningsregler/retskrivningsregler/a7-40-60/a7-58-anforselstegn/ | 5462 | ;; https://sproget.dk/raad-og-regler/retskrivningsregler/retskrivningsregler/a7-40-60/a7-58-anforselstegn/ |
| 5463 | ;; LaTeX quotes require Babel! | 5463 | ;; LaTeX quotes require Babel! |
| 5464 | (primary-opening | 5464 | (primary-opening |
| 5465 | :utf-8 "»" :html "»" :latex ">>" :texinfo "@guillemetright{}") | 5465 | :utf-8 "»" :html "»" :latex ">>" :texinfo "@guillemetright{}") |
| @@ -5553,7 +5553,7 @@ transcoding it." | |||
| 5553 | (secondary-closing :utf-8 "’" :html "’" :latex "'" :texinfo "'") | 5553 | (secondary-closing :utf-8 "’" :html "’" :latex "'" :texinfo "'") |
| 5554 | (apostrophe :utf-8 "’" :html "’")) | 5554 | (apostrophe :utf-8 "’" :html "’")) |
| 5555 | ("ru" | 5555 | ("ru" |
| 5556 | ;; http://ru.wikipedia.org/wiki/%D0%9A%D0%B0%D0%B2%D1%8B%D1%87%D0%BA%D0%B8#.D0.9A.D0.B0.D0.B2.D1.8B.D1.87.D0.BA.D0.B8.2C_.D0.B8.D1.81.D0.BF.D0.BE.D0.BB.D1.8C.D0.B7.D1.83.D0.B5.D0.BC.D1.8B.D0.B5_.D0.B2_.D1.80.D1.83.D1.81.D1.81.D0.BA.D0.BE.D0.BC_.D1.8F.D0.B7.D1.8B.D0.BA.D0.B5 | 5556 | ;; https://ru.wikipedia.org/wiki/%D0%9A%D0%B0%D0%B2%D1%8B%D1%87%D0%BA%D0%B8#.D0.9A.D0.B0.D0.B2.D1.8B.D1.87.D0.BA.D0.B8.2C_.D0.B8.D1.81.D0.BF.D0.BE.D0.BB.D1.8C.D0.B7.D1.83.D0.B5.D0.BC.D1.8B.D0.B5_.D0.B2_.D1.80.D1.83.D1.81.D1.81.D0.BA.D0.BE.D0.BC_.D1.8F.D0.B7.D1.8B.D0.BA.D0.B5 |
| 5557 | ;; http://www.artlebedev.ru/kovodstvo/sections/104/ | 5557 | ;; http://www.artlebedev.ru/kovodstvo/sections/104/ |
| 5558 | (primary-opening :utf-8 "«" :html "«" :latex "{}<<" | 5558 | (primary-opening :utf-8 "«" :html "«" :latex "{}<<" |
| 5559 | :texinfo "@guillemetleft{}") | 5559 | :texinfo "@guillemetleft{}") |
diff --git a/lisp/pcmpl-unix.el b/lisp/pcmpl-unix.el index 9d346cfbd22..13de4b65e5b 100644 --- a/lisp/pcmpl-unix.el +++ b/lisp/pcmpl-unix.el | |||
| @@ -148,7 +148,7 @@ documentation), this function returns nil." | |||
| 148 | 148 | ||
| 149 | 149 | ||
| 150 | ;; ssh support by Phil Hagelberg. | 150 | ;; ssh support by Phil Hagelberg. |
| 151 | ;; http://www.emacswiki.org/cgi-bin/wiki/pcmpl-ssh.el | 151 | ;; https://www.emacswiki.org/cgi-bin/wiki/pcmpl-ssh.el |
| 152 | 152 | ||
| 153 | (defun pcmpl-ssh-known-hosts () | 153 | (defun pcmpl-ssh-known-hosts () |
| 154 | "Return a list of hosts found in `pcmpl-ssh-known-hosts-file'." | 154 | "Return a list of hosts found in `pcmpl-ssh-known-hosts-file'." |
diff --git a/lisp/play/bubbles.el b/lisp/play/bubbles.el index 903c0686063..d512a718b48 100644 --- a/lisp/play/bubbles.el +++ b/lisp/play/bubbles.el | |||
| @@ -28,7 +28,7 @@ | |||
| 28 | ;; possible in as few moves as possible. | 28 | ;; possible in as few moves as possible. |
| 29 | 29 | ||
| 30 | ;; Bubbles is an implementation of the "Same Game", similar to "Same | 30 | ;; Bubbles is an implementation of the "Same Game", similar to "Same |
| 31 | ;; GNOME" and many others, see <http://en.wikipedia.org/wiki/SameGame>. | 31 | ;; GNOME" and many others, see <https://en.wikipedia.org/wiki/SameGame>. |
| 32 | 32 | ||
| 33 | ;; Installation | 33 | ;; Installation |
| 34 | ;; ------------ | 34 | ;; ------------ |
diff --git a/lisp/play/gametree.el b/lisp/play/gametree.el index ba74afce298..a9417e9e0ac 100644 --- a/lisp/play/gametree.el +++ b/lisp/play/gametree.el | |||
| @@ -121,8 +121,8 @@ Has to contain \"%d\" to output the actual number." | |||
| 121 | :group 'gametree) | 121 | :group 'gametree) |
| 122 | 122 | ||
| 123 | (defcustom gametree-make-heading-function | 123 | (defcustom gametree-make-heading-function |
| 124 | (function (lambda (level) | 124 | (lambda (level) |
| 125 | (insert (make-string level ?*)))) | 125 | (insert (make-string level ?*))) |
| 126 | "A function of one numeric argument, LEVEL, to insert a heading at point. | 126 | "A function of one numeric argument, LEVEL, to insert a heading at point. |
| 127 | You should change this if you change `outline-regexp'." | 127 | You should change this if you change `outline-regexp'." |
| 128 | :type 'function | 128 | :type 'function |
diff --git a/lisp/printing.el b/lisp/printing.el index 86a2434c0da..90ef02fe7b1 100644 --- a/lisp/printing.el +++ b/lisp/printing.el | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | ;; Author: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> | 5 | ;; Author: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> |
| 6 | ;; Keywords: wp, print, PostScript | 6 | ;; Keywords: wp, print, PostScript |
| 7 | ;; Version: 6.9.3 | 7 | ;; Version: 6.9.3 |
| 8 | ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre | 8 | ;; X-URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre |
| 9 | 9 | ||
| 10 | (defconst pr-version "6.9.3" | 10 | (defconst pr-version "6.9.3" |
| 11 | "printing.el, v 6.9.3 <2007/12/09 vinicius> | 11 | "printing.el, v 6.9.3 <2007/12/09 vinicius> |
| @@ -64,7 +64,7 @@ Please send all bug fixes and enhancements to | |||
| 64 | ;; interface to ps-print package and it also provides some extra stuff. | 64 | ;; interface to ps-print package and it also provides some extra stuff. |
| 65 | ;; | 65 | ;; |
| 66 | ;; To download the latest ps-print package see | 66 | ;; To download the latest ps-print package see |
| 67 | ;; `http://www.emacswiki.org/cgi-bin/wiki/PsPrintPackage'. | 67 | ;; `https://www.emacswiki.org/cgi-bin/wiki/PsPrintPackage'. |
| 68 | ;; Please, see README file for ps-print installation instructions. | 68 | ;; Please, see README file for ps-print installation instructions. |
| 69 | ;; | 69 | ;; |
| 70 | ;; `printing' was inspired by: | 70 | ;; `printing' was inspired by: |
| @@ -944,8 +944,8 @@ Please send all bug fixes and enhancements to | |||
| 944 | ;; | 944 | ;; |
| 945 | ;; * For `printing' package: | 945 | ;; * For `printing' package: |
| 946 | ;; | 946 | ;; |
| 947 | ;; printing `http://www.emacswiki.org/cgi-bin/emacs/download/printing.el' | 947 | ;; printing `https://www.emacswiki.org/cgi-bin/emacs/download/printing.el' |
| 948 | ;; ps-print `http://www.emacswiki.org/cgi-bin/wiki/PsPrintPackage' | 948 | ;; ps-print `https://www.emacswiki.org/cgi-bin/wiki/PsPrintPackage' |
| 949 | ;; | 949 | ;; |
| 950 | ;; * For GNU or Unix system: | 950 | ;; * For GNU or Unix system: |
| 951 | ;; | 951 | ;; |
| @@ -4721,7 +4721,7 @@ Each element has the form: | |||
| 4721 | 4721 | ||
| 4722 | (MENU-PART . NUMBER-OF-ITEMS) | 4722 | (MENU-PART . NUMBER-OF-ITEMS) |
| 4723 | 4723 | ||
| 4724 | See `pr-visible-entry-alist'.") | 4724 | See `pr-visible-entry-list'.") |
| 4725 | 4725 | ||
| 4726 | 4726 | ||
| 4727 | (defun pr-menu-index (entry index) | 4727 | (defun pr-menu-index (entry index) |
diff --git a/lisp/progmodes/antlr-mode.el b/lisp/progmodes/antlr-mode.el index 29adf3b1901..00fcb804d43 100644 --- a/lisp/progmodes/antlr-mode.el +++ b/lisp/progmodes/antlr-mode.el | |||
| @@ -1874,7 +1874,7 @@ cell where the two values determine the area inside the braces." | |||
| 1874 | (defun antlr-option-spec (level option specs existsp) | 1874 | (defun antlr-option-spec (level option specs existsp) |
| 1875 | "Return version correct option value specification. | 1875 | "Return version correct option value specification. |
| 1876 | Return specification for option OPTION of kind level LEVEL. SPECS | 1876 | Return specification for option OPTION of kind level LEVEL. SPECS |
| 1877 | should correspond to the VALUE-SPEC... in `antlr-option-alists'. | 1877 | should correspond to the VALUE-SPEC... in `antlr-options-alists'. |
| 1878 | EXISTSP determines whether the option already exists." | 1878 | EXISTSP determines whether the option already exists." |
| 1879 | (let (value) | 1879 | (let (value) |
| 1880 | (while (and specs (>= antlr-tool-version (caar specs))) | 1880 | (while (and specs (>= antlr-tool-version (caar specs))) |
diff --git a/lisp/progmodes/bat-mode.el b/lisp/progmodes/bat-mode.el index 87e88163ac7..98e58be2303 100644 --- a/lisp/progmodes/bat-mode.el +++ b/lisp/progmodes/bat-mode.el | |||
| @@ -42,7 +42,7 @@ | |||
| 42 | ;; See documentation of function `bat-mode'. | 42 | ;; See documentation of function `bat-mode'. |
| 43 | ;; | 43 | ;; |
| 44 | ;; Separate package `dos-indent' (Matthew Fidler) provides rudimentary | 44 | ;; Separate package `dos-indent' (Matthew Fidler) provides rudimentary |
| 45 | ;; indentation, see http://www.emacswiki.org/emacs/dos-indent.el. | 45 | ;; indentation, see https://www.emacswiki.org/emacs/dos-indent.el. |
| 46 | ;; | 46 | ;; |
| 47 | ;; Acknowledgements: | 47 | ;; Acknowledgements: |
| 48 | ;; | 48 | ;; |
diff --git a/lisp/progmodes/cc-styles.el b/lisp/progmodes/cc-styles.el index 36be9f6c74e..855e467571d 100644 --- a/lisp/progmodes/cc-styles.el +++ b/lisp/progmodes/cc-styles.el | |||
| @@ -395,8 +395,7 @@ a null operation." | |||
| 395 | ;; remain. This is not necessary for c-offsets-alist, since | 395 | ;; remain. This is not necessary for c-offsets-alist, since |
| 396 | ;; c-get-style-variables contains every valid offset type in the | 396 | ;; c-get-style-variables contains every valid offset type in the |
| 397 | ;; fallback entry. | 397 | ;; fallback entry. |
| 398 | (setq c-special-indent-hook | 398 | (kill-local-variable 'c-special-indent-hook)) |
| 399 | (default-value 'c-special-indent-hook))) | ||
| 400 | (mapc (lambda (elem) | 399 | (mapc (lambda (elem) |
| 401 | (c-set-style-1 elem dont-override)) | 400 | (c-set-style-1 elem dont-override)) |
| 402 | ;; Need to go through the variables backwards when we | 401 | ;; Need to go through the variables backwards when we |
| @@ -644,7 +643,7 @@ CC Mode by making sure the proper entries are present on | |||
| 644 | 643 | ||
| 645 | (defun c-make-styles-buffer-local (&optional this-buf-only-p) | 644 | (defun c-make-styles-buffer-local (&optional this-buf-only-p) |
| 646 | "Make all CC Mode style variables buffer local. | 645 | "Make all CC Mode style variables buffer local. |
| 647 | If `this-buf-only-p' is non-nil, the style variables will be made | 646 | If THIS-BUF-ONLY-P is non-nil, the style variables will be made |
| 648 | buffer local only in the current buffer. Otherwise they'll be made | 647 | buffer local only in the current buffer. Otherwise they'll be made |
| 649 | permanently buffer local in any buffer that changes their values. | 648 | permanently buffer local in any buffer that changes their values. |
| 650 | 649 | ||
| @@ -662,7 +661,6 @@ any reason to call this function directly." | |||
| 662 | ;; Hooks must be handled specially | 661 | ;; Hooks must be handled specially |
| 663 | (if this-buf-only-p | 662 | (if this-buf-only-p |
| 664 | (if (featurep 'xemacs) (make-local-hook 'c-special-indent-hook)) | 663 | (if (featurep 'xemacs) (make-local-hook 'c-special-indent-hook)) |
| 665 | (with-no-warnings (make-variable-buffer-local 'c-special-indent-hook)) | ||
| 666 | (setq c-style-variables-are-local-p t)) | 664 | (setq c-style-variables-are-local-p t)) |
| 667 | )) | 665 | )) |
| 668 | 666 | ||
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index c62fbab0595..2e4b9d4693c 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el | |||
| @@ -33,7 +33,7 @@ | |||
| 33 | ;; support. | 33 | ;; support. |
| 34 | 34 | ||
| 35 | ;; The latest version is available from | 35 | ;; The latest version is available from |
| 36 | ;; http://github.com/jrockway/cperl-mode | 36 | ;; https://github.com/jrockway/cperl-mode |
| 37 | ;; | 37 | ;; |
| 38 | ;; (perhaps in the moosex-declare branch) | 38 | ;; (perhaps in the moosex-declare branch) |
| 39 | 39 | ||
diff --git a/lisp/progmodes/ebnf-abn.el b/lisp/progmodes/ebnf-abn.el index bf9b0e961ba..be82c72910b 100644 --- a/lisp/progmodes/ebnf-abn.el +++ b/lisp/progmodes/ebnf-abn.el | |||
| @@ -38,7 +38,7 @@ | |||
| 38 | ;; ----------- | 38 | ;; ----------- |
| 39 | ;; | 39 | ;; |
| 40 | ;; See the URL: | 40 | ;; See the URL: |
| 41 | ;; `http://www.ietf.org/rfc/rfc2234.txt' | 41 | ;; `https://www.ietf.org/rfc/rfc2234.txt' |
| 42 | ;; or | 42 | ;; or |
| 43 | ;; `http://www.faqs.org/rfcs/rfc2234.html' | 43 | ;; `http://www.faqs.org/rfcs/rfc2234.html' |
| 44 | ;; or | 44 | ;; or |
diff --git a/lisp/progmodes/ebnf-dtd.el b/lisp/progmodes/ebnf-dtd.el index bdebf0db2c1..ddddb27a11c 100644 --- a/lisp/progmodes/ebnf-dtd.el +++ b/lisp/progmodes/ebnf-dtd.el | |||
| @@ -38,11 +38,11 @@ | |||
| 38 | ;; ---------- | 38 | ;; ---------- |
| 39 | ;; | 39 | ;; |
| 40 | ;; See the URLs: | 40 | ;; See the URLs: |
| 41 | ;; `http://www.w3.org/TR/2004/REC-xml-20040204/' | 41 | ;; `https://www.w3.org/TR/2004/REC-xml-20040204/' |
| 42 | ;; (Extensible Markup Language (XML) 1.0 (Third Edition)) | 42 | ;; (Extensible Markup Language (XML) 1.0 (Third Edition)) |
| 43 | ;; `http://www.w3.org/TR/html40/' | 43 | ;; `https://www.w3.org/TR/html40/' |
| 44 | ;; (HTML 4.01 Specification) | 44 | ;; (HTML 4.01 Specification) |
| 45 | ;; `http://www.w3.org/TR/NOTE-html-970421' | 45 | ;; `https://www.w3.org/TR/NOTE-html-970421' |
| 46 | ;; (HTML DTD with support for Style Sheets) | 46 | ;; (HTML DTD with support for Style Sheets) |
| 47 | ;; | 47 | ;; |
| 48 | ;; | 48 | ;; |
diff --git a/lisp/progmodes/ebnf-ebx.el b/lisp/progmodes/ebnf-ebx.el index 20e2d4ca31c..546f1f8a87f 100644 --- a/lisp/progmodes/ebnf-ebx.el +++ b/lisp/progmodes/ebnf-ebx.el | |||
| @@ -38,7 +38,7 @@ | |||
| 38 | ;; ------------ | 38 | ;; ------------ |
| 39 | ;; | 39 | ;; |
| 40 | ;; See the URL: | 40 | ;; See the URL: |
| 41 | ;; `http://www.w3.org/TR/2004/REC-xml-20040204/#sec-notation' | 41 | ;; `https://www.w3.org/TR/2004/REC-xml-20040204/#sec-notation' |
| 42 | ;; (Extensible Markup Language (XML) 1.0 (Third Edition)) | 42 | ;; (Extensible Markup Language (XML) 1.0 (Third Edition)) |
| 43 | ;; | 43 | ;; |
| 44 | ;; | 44 | ;; |
diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el index 22c70bf734d..991cd6fc519 100644 --- a/lisp/progmodes/ebnf2ps.el +++ b/lisp/progmodes/ebnf2ps.el | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | ;; Author: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> | 5 | ;; Author: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> |
| 6 | ;; Keywords: wp, ebnf, PostScript | 6 | ;; Keywords: wp, ebnf, PostScript |
| 7 | ;; Version: 4.4 | 7 | ;; Version: 4.4 |
| 8 | ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre | 8 | ;; X-URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| 11 | 11 | ||
| @@ -326,7 +326,7 @@ Please send all bug fixes and enhancements to | |||
| 326 | ;; `ebnf-lex-comment-char' and `ebnf-lex-eop-char'. | 326 | ;; `ebnf-lex-comment-char' and `ebnf-lex-eop-char'. |
| 327 | ;; | 327 | ;; |
| 328 | ;; `abnf' ebnf2ps recognizes the syntax described in the URL: | 328 | ;; `abnf' ebnf2ps recognizes the syntax described in the URL: |
| 329 | ;; `http://www.ietf.org/rfc/rfc2234.txt' | 329 | ;; `https://www.ietf.org/rfc/rfc2234.txt' |
| 330 | ;; ("Augmented BNF for Syntax Specifications: ABNF"). | 330 | ;; ("Augmented BNF for Syntax Specifications: ABNF"). |
| 331 | ;; | 331 | ;; |
| 332 | ;; `iso-ebnf' ebnf2ps recognizes the syntax described in the URL: | 332 | ;; `iso-ebnf' ebnf2ps recognizes the syntax described in the URL: |
| @@ -342,11 +342,11 @@ Please send all bug fixes and enhancements to | |||
| 342 | ;; `ebnf-yac-ignore-error-recovery'. | 342 | ;; `ebnf-yac-ignore-error-recovery'. |
| 343 | ;; | 343 | ;; |
| 344 | ;; `ebnfx' ebnf2ps recognizes the syntax described in the URL: | 344 | ;; `ebnfx' ebnf2ps recognizes the syntax described in the URL: |
| 345 | ;; `http://www.w3.org/TR/2004/REC-xml-20040204/#sec-notation' | 345 | ;; `https://www.w3.org/TR/2004/REC-xml-20040204/#sec-notation' |
| 346 | ;; ("Extensible Markup Language (XML) 1.0 (Third Edition)") | 346 | ;; ("Extensible Markup Language (XML) 1.0 (Third Edition)") |
| 347 | ;; | 347 | ;; |
| 348 | ;; `dtd' ebnf2ps recognizes the syntax described in the URL: | 348 | ;; `dtd' ebnf2ps recognizes the syntax described in the URL: |
| 349 | ;; `http://www.w3.org/TR/2004/REC-xml-20040204/' | 349 | ;; `https://www.w3.org/TR/2004/REC-xml-20040204/' |
| 350 | ;; ("Extensible Markup Language (XML) 1.0 (Third Edition)") | 350 | ;; ("Extensible Markup Language (XML) 1.0 (Third Edition)") |
| 351 | ;; | 351 | ;; |
| 352 | ;; Any other value is treated as `ebnf'. | 352 | ;; Any other value is treated as `ebnf'. |
| @@ -1779,7 +1779,7 @@ Valid values are: | |||
| 1779 | `ebnf-lex-comment-char' and `ebnf-lex-eop-char'. | 1779 | `ebnf-lex-comment-char' and `ebnf-lex-eop-char'. |
| 1780 | 1780 | ||
| 1781 | `abnf' ebnf2ps recognizes the syntax described in the URL: | 1781 | `abnf' ebnf2ps recognizes the syntax described in the URL: |
| 1782 | `http://www.ietf.org/rfc/rfc2234.txt' | 1782 | `https://www.ietf.org/rfc/rfc2234.txt' |
| 1783 | (\"Augmented BNF for Syntax Specifications: ABNF\"). | 1783 | (\"Augmented BNF for Syntax Specifications: ABNF\"). |
| 1784 | 1784 | ||
| 1785 | `iso-ebnf' ebnf2ps recognizes the syntax described in the URL: | 1785 | `iso-ebnf' ebnf2ps recognizes the syntax described in the URL: |
| @@ -1795,11 +1795,11 @@ Valid values are: | |||
| 1795 | `ebnf-yac-ignore-error-recovery'. | 1795 | `ebnf-yac-ignore-error-recovery'. |
| 1796 | 1796 | ||
| 1797 | `ebnfx' ebnf2ps recognizes the syntax described in the URL: | 1797 | `ebnfx' ebnf2ps recognizes the syntax described in the URL: |
| 1798 | `http://www.w3.org/TR/2004/REC-xml-20040204/#sec-notation' | 1798 | `https://www.w3.org/TR/2004/REC-xml-20040204/#sec-notation' |
| 1799 | (\"Extensible Markup Language (XML) 1.0 (Third Edition)\") | 1799 | (\"Extensible Markup Language (XML) 1.0 (Third Edition)\") |
| 1800 | 1800 | ||
| 1801 | `dtd' ebnf2ps recognizes the syntax described in the URL: | 1801 | `dtd' ebnf2ps recognizes the syntax described in the URL: |
| 1802 | `http://www.w3.org/TR/2004/REC-xml-20040204/' | 1802 | `https://www.w3.org/TR/2004/REC-xml-20040204/' |
| 1803 | (\"Extensible Markup Language (XML) 1.0 (Third Edition)\") | 1803 | (\"Extensible Markup Language (XML) 1.0 (Third Edition)\") |
| 1804 | 1804 | ||
| 1805 | Any other value is treated as `ebnf'." | 1805 | Any other value is treated as `ebnf'." |
diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el index 1c9e805f039..ffd7d03d7a9 100644 --- a/lisp/progmodes/ebrowse.el +++ b/lisp/progmodes/ebrowse.el | |||
| @@ -3544,7 +3544,7 @@ completion." | |||
| 3544 | ;;; Tags query replace & search | 3544 | ;;; Tags query replace & search |
| 3545 | 3545 | ||
| 3546 | (defvar ebrowse-tags-loop-call '(ignore) | 3546 | (defvar ebrowse-tags-loop-call '(ignore) |
| 3547 | "Function call for `ebrowse-loop-continue'. | 3547 | "Function call for `ebrowse-tags-loop-continue'. |
| 3548 | Passed to `apply' for each file in the tree. If it returns nil, proceed | 3548 | Passed to `apply' for each file in the tree. If it returns nil, proceed |
| 3549 | with the next file.") | 3549 | with the next file.") |
| 3550 | 3550 | ||
diff --git a/lisp/progmodes/flymake-cc.el b/lisp/progmodes/flymake-cc.el index 19565ef9b13..d1985b4f777 100644 --- a/lisp/progmodes/flymake-cc.el +++ b/lisp/progmodes/flymake-cc.el | |||
| @@ -88,7 +88,7 @@ SOURCE." | |||
| 88 | (cond ((derived-mode-p 'c++-mode) "c++") | 88 | (cond ((derived-mode-p 'c++-mode) "c++") |
| 89 | (t "c"))))) | 89 | (t "c"))))) |
| 90 | 90 | ||
| 91 | (defvar-local flymake-cc--proc nil "Internal variable for `flymake-gcc'") | 91 | (defvar-local flymake-cc--proc nil "Internal variable for `flymake-cc'") |
| 92 | 92 | ||
| 93 | ;; forward declare this to shoosh compiler (instead of requiring | 93 | ;; forward declare this to shoosh compiler (instead of requiring |
| 94 | ;; flymake-proc) | 94 | ;; flymake-proc) |
diff --git a/lisp/progmodes/flymake-proc.el b/lisp/progmodes/flymake-proc.el index 62f6d1aaea2..152dc725c74 100644 --- a/lisp/progmodes/flymake-proc.el +++ b/lisp/progmodes/flymake-proc.el | |||
| @@ -37,7 +37,7 @@ | |||
| 37 | ;;; Bugs/todo: | 37 | ;;; Bugs/todo: |
| 38 | 38 | ||
| 39 | ;; - Only uses "Makefile", not "makefile" or "GNUmakefile" | 39 | ;; - Only uses "Makefile", not "makefile" or "GNUmakefile" |
| 40 | ;; (from http://bugs.debian.org/337339). | 40 | ;; (from https://bugs.debian.org/337339). |
| 41 | 41 | ||
| 42 | ;;; Code: | 42 | ;;; Code: |
| 43 | 43 | ||
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 086f0b6a085..79df97080df 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el | |||
| @@ -8,7 +8,7 @@ | |||
| 8 | 8 | ||
| 9 | ;; This file is part of GNU Emacs. | 9 | ;; This file is part of GNU Emacs. |
| 10 | 10 | ||
| 11 | ;; Homepage: http://www.emacswiki.org/emacs/GDB-MI | 11 | ;; Homepage: https://www.emacswiki.org/emacs/GDB-MI |
| 12 | 12 | ||
| 13 | ;; GNU Emacs is free software: you can redistribute it and/or modify | 13 | ;; GNU Emacs is free software: you can redistribute it and/or modify |
| 14 | ;; it under the terms of the GNU General Public License as published by | 14 | ;; it under the terms of the GNU General Public License as published by |
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 84c473ddb7e..81021bc64f4 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el | |||
| @@ -1845,7 +1845,7 @@ and source-file directory for your debugger." | |||
| 1845 | ;; JDB command will get out of the debugger. There is some truly | 1845 | ;; JDB command will get out of the debugger. There is some truly |
| 1846 | ;; pathetic JDB documentation available at: | 1846 | ;; pathetic JDB documentation available at: |
| 1847 | ;; | 1847 | ;; |
| 1848 | ;; http://java.sun.com/products/jdk/1.1/debugging/ | 1848 | ;; https://java.sun.com/products/jdk/1.1/debugging/ |
| 1849 | ;; | 1849 | ;; |
| 1850 | ;; KNOWN PROBLEMS AND FIXME's: | 1850 | ;; KNOWN PROBLEMS AND FIXME's: |
| 1851 | ;; | 1851 | ;; |
diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el index 9177b13418e..25e75235aa4 100644 --- a/lisp/progmodes/hideif.el +++ b/lisp/progmodes/hideif.el | |||
| @@ -250,7 +250,7 @@ Effective only if `hide-ifdef-expand-reinclusion-protection' is t." | |||
| 250 | 250 | ||
| 251 | (defvar hide-ifdef-env-backup nil | 251 | (defvar hide-ifdef-env-backup nil |
| 252 | "This variable is a backup of the previously cleared `hide-ifdef-env'. | 252 | "This variable is a backup of the previously cleared `hide-ifdef-env'. |
| 253 | This backup prevents any accidental clearance of `hide-fidef-env' by | 253 | This backup prevents any accidental clearance of `hide-ifdef-env' by |
| 254 | `hif-clear-all-ifdef-defined'.") | 254 | `hif-clear-all-ifdef-defined'.") |
| 255 | 255 | ||
| 256 | (defvar hif-outside-read-only nil | 256 | (defvar hif-outside-read-only nil |
diff --git a/lisp/progmodes/idlw-complete-structtag.el b/lisp/progmodes/idlw-complete-structtag.el index b0542a99da8..3bc3971f5ee 100644 --- a/lisp/progmodes/idlw-complete-structtag.el +++ b/lisp/progmodes/idlw-complete-structtag.el | |||
| @@ -49,7 +49,7 @@ | |||
| 49 | ;; | 49 | ;; |
| 50 | ;; New versions of IDLWAVE, documentation, and more information available | 50 | ;; New versions of IDLWAVE, documentation, and more information available |
| 51 | ;; from: | 51 | ;; from: |
| 52 | ;; http://github.com/jdtsmith/idlwave | 52 | ;; https://github.com/jdtsmith/idlwave |
| 53 | ;; | 53 | ;; |
| 54 | ;; INSTALLATION | 54 | ;; INSTALLATION |
| 55 | ;; ============ | 55 | ;; ============ |
diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el index ec4fd58886a..2d4ea465c42 100644 --- a/lisp/progmodes/idlw-help.el +++ b/lisp/progmodes/idlw-help.el | |||
| @@ -32,7 +32,7 @@ | |||
| 32 | ;; along with new versions of IDLWAVE, documentation, and more | 32 | ;; along with new versions of IDLWAVE, documentation, and more |
| 33 | ;; information, at: | 33 | ;; information, at: |
| 34 | ;; | 34 | ;; |
| 35 | ;; http://github.com/jdtsmith/idlwave | 35 | ;; https://github.com/jdtsmith/idlwave |
| 36 | ;; | 36 | ;; |
| 37 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 37 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 38 | 38 | ||
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index 99ac0877c8b..38127fccbc3 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el | |||
| @@ -40,7 +40,7 @@ | |||
| 40 | ;; | 40 | ;; |
| 41 | ;; New versions of IDLWAVE, documentation, and more information | 41 | ;; New versions of IDLWAVE, documentation, and more information |
| 42 | ;; available from: | 42 | ;; available from: |
| 43 | ;; http://github.com/jdtsmith/idlwave | 43 | ;; https://github.com/jdtsmith/idlwave |
| 44 | ;; | 44 | ;; |
| 45 | ;; INSTALLATION: | 45 | ;; INSTALLATION: |
| 46 | ;; ============= | 46 | ;; ============= |
| @@ -58,7 +58,7 @@ | |||
| 58 | ;; The newest version of this file can be found on the maintainers | 58 | ;; The newest version of this file can be found on the maintainers |
| 59 | ;; web site. | 59 | ;; web site. |
| 60 | ;; | 60 | ;; |
| 61 | ;; http://github.com/jdtsmith/idlwave | 61 | ;; https://github.com/jdtsmith/idlwave |
| 62 | ;; | 62 | ;; |
| 63 | ;; DOCUMENTATION | 63 | ;; DOCUMENTATION |
| 64 | ;; ============= | 64 | ;; ============= |
| @@ -896,7 +896,7 @@ IDL has currently stepped.") | |||
| 896 | Info documentation for this package is available. Use \\[idlwave-info] | 896 | Info documentation for this package is available. Use \\[idlwave-info] |
| 897 | to display (complain to your sysadmin if that does not work). | 897 | to display (complain to your sysadmin if that does not work). |
| 898 | For PostScript and HTML versions of the documentation, check IDLWAVE's | 898 | For PostScript and HTML versions of the documentation, check IDLWAVE's |
| 899 | homepage at URL `http://github.com/jdtsmith/idlwave'. | 899 | homepage at URL `https://github.com/jdtsmith/idlwave'. |
| 900 | IDLWAVE has customize support - see the group `idlwave'. | 900 | IDLWAVE has customize support - see the group `idlwave'. |
| 901 | 901 | ||
| 902 | 8. Keybindings | 902 | 8. Keybindings |
diff --git a/lisp/progmodes/idlw-toolbar.el b/lisp/progmodes/idlw-toolbar.el index 23c129c1afc..1866e50d680 100644 --- a/lisp/progmodes/idlw-toolbar.el +++ b/lisp/progmodes/idlw-toolbar.el | |||
| @@ -29,7 +29,7 @@ | |||
| 29 | 29 | ||
| 30 | ;; New versions of IDLWAVE, documentation, and more information | 30 | ;; New versions of IDLWAVE, documentation, and more information |
| 31 | ;; available from: | 31 | ;; available from: |
| 32 | ;; http://github.com/jdtsmith/idlwave | 32 | ;; https://github.com/jdtsmith/idlwave |
| 33 | 33 | ||
| 34 | 34 | ||
| 35 | ;;; Code: | 35 | ;;; Code: |
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el index 121f5d63044..86f9f336723 100644 --- a/lisp/progmodes/idlwave.el +++ b/lisp/progmodes/idlwave.el | |||
| @@ -44,7 +44,7 @@ | |||
| 44 | ;; | 44 | ;; |
| 45 | ;; New versions of IDLWAVE, documentation, and more information | 45 | ;; New versions of IDLWAVE, documentation, and more information |
| 46 | ;; available from: | 46 | ;; available from: |
| 47 | ;; http://github.com/jdtsmith/idlwave | 47 | ;; https://github.com/jdtsmith/idlwave |
| 48 | ;; | 48 | ;; |
| 49 | ;; INSTALLATION | 49 | ;; INSTALLATION |
| 50 | ;; ============ | 50 | ;; ============ |
| @@ -64,7 +64,7 @@ | |||
| 64 | ;; The newest version of this file is available from the maintainer's | 64 | ;; The newest version of this file is available from the maintainer's |
| 65 | ;; Webpage: | 65 | ;; Webpage: |
| 66 | ;; | 66 | ;; |
| 67 | ;; http://github.com/jdtsmith/idlwave | 67 | ;; https://github.com/jdtsmith/idlwave |
| 68 | ;; | 68 | ;; |
| 69 | ;; DOCUMENTATION | 69 | ;; DOCUMENTATION |
| 70 | ;; ============= | 70 | ;; ============= |
| @@ -164,7 +164,7 @@ | |||
| 164 | "Major mode for editing IDL .pro files." | 164 | "Major mode for editing IDL .pro files." |
| 165 | :tag "IDLWAVE" | 165 | :tag "IDLWAVE" |
| 166 | :link '(url-link :tag "Home Page" | 166 | :link '(url-link :tag "Home Page" |
| 167 | "http://github.com/jdtsmith/idlwave") | 167 | "https://github.com/jdtsmith/idlwave") |
| 168 | :link '(emacs-commentary-link :tag "Commentary in idlw-shell.el" | 168 | :link '(emacs-commentary-link :tag "Commentary in idlw-shell.el" |
| 169 | "idlw-shell.el") | 169 | "idlw-shell.el") |
| 170 | :link '(emacs-commentary-link :tag "Commentary in idlwave.el" "idlwave.el") | 170 | :link '(emacs-commentary-link :tag "Commentary in idlwave.el" "idlwave.el") |
| @@ -1846,7 +1846,7 @@ The main features of this mode are | |||
| 1846 | \\[idlwave-info] to display (complain to your sysadmin if that does | 1846 | \\[idlwave-info] to display (complain to your sysadmin if that does |
| 1847 | not work). For Postscript, PDF, and HTML versions of the | 1847 | not work). For Postscript, PDF, and HTML versions of the |
| 1848 | documentation, check IDLWAVE's homepage at URL | 1848 | documentation, check IDLWAVE's homepage at URL |
| 1849 | `http://github.com/jdtsmith/idlwave'. | 1849 | `https://github.com/jdtsmith/idlwave'. |
| 1850 | IDLWAVE has customize support - see the group `idlwave'. | 1850 | IDLWAVE has customize support - see the group `idlwave'. |
| 1851 | 1851 | ||
| 1852 | 10.Keybindings | 1852 | 10.Keybindings |
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index 127b24cb890..7265aeee45d 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el | |||
| @@ -258,7 +258,7 @@ | |||
| 258 | ;; (or some similar separator), or by one of the special keywords | 258 | ;; (or some similar separator), or by one of the special keywords |
| 259 | ;; corresponding to builtin functions that can take their first arg | 259 | ;; corresponding to builtin functions that can take their first arg |
| 260 | ;; without parentheses. Of course, that presume we're looking at the | 260 | ;; without parentheses. Of course, that presume we're looking at the |
| 261 | ;; *opening* slash. We can afford to mis-match the closing ones | 261 | ;; *opening* slash. We can afford to mismatch the closing ones |
| 262 | ;; here, because they will be re-treated separately later in | 262 | ;; here, because they will be re-treated separately later in |
| 263 | ;; perl-font-lock-special-syntactic-constructs. | 263 | ;; perl-font-lock-special-syntactic-constructs. |
| 264 | ((concat perl--syntax-exp-intro-regexp "\\(/\\)") | 264 | ((concat perl--syntax-exp-intro-regexp "\\(/\\)") |
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index 95b6a037bb3..76baa4469c7 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el | |||
| @@ -2078,7 +2078,7 @@ virtualenv." | |||
| 2078 | :group 'python) | 2078 | :group 'python) |
| 2079 | 2079 | ||
| 2080 | (defcustom python-shell-setup-codes nil | 2080 | (defcustom python-shell-setup-codes nil |
| 2081 | "List of code run by `python-shell-send-setup-codes'." | 2081 | "List of code run by `python-shell-send-setup-code'." |
| 2082 | :type '(repeat symbol) | 2082 | :type '(repeat symbol) |
| 2083 | :group 'python) | 2083 | :group 'python) |
| 2084 | 2084 | ||
| @@ -2378,9 +2378,11 @@ regexps: `python-shell-prompt-regexp', | |||
| 2378 | 2378 | ||
| 2379 | (defun python-shell-prompt-set-calculated-regexps () | 2379 | (defun python-shell-prompt-set-calculated-regexps () |
| 2380 | "Detect and set input and output prompt regexps. | 2380 | "Detect and set input and output prompt regexps. |
| 2381 | Build and set the values for `python-shell-input-prompt-regexp' | 2381 | Build and set the values for |
| 2382 | and `python-shell-output-prompt-regexp' using the values from | 2382 | `python-shell--prompt-calculated-input-regexp' and |
| 2383 | `python-shell-prompt-regexp', `python-shell-prompt-block-regexp', | 2383 | `python-shell--prompt-calculated-output-regexp' using the values |
| 2384 | from `python-shell-prompt-regexp', | ||
| 2385 | `python-shell-prompt-block-regexp', | ||
| 2384 | `python-shell-prompt-pdb-regexp', | 2386 | `python-shell-prompt-pdb-regexp', |
| 2385 | `python-shell-prompt-output-regexp', | 2387 | `python-shell-prompt-output-regexp', |
| 2386 | `python-shell-prompt-input-regexps', | 2388 | `python-shell-prompt-input-regexps', |
| @@ -2442,7 +2444,7 @@ of `python-shell-buffer-name'." | |||
| 2442 | 2444 | ||
| 2443 | (defun python-shell-internal-get-process-name () | 2445 | (defun python-shell-internal-get-process-name () |
| 2444 | "Calculate the appropriate process name for Internal Python process. | 2446 | "Calculate the appropriate process name for Internal Python process. |
| 2445 | The name is calculated from `python-shell-global-buffer-name' and | 2447 | The name is calculated from `python-shell-buffer-name' and |
| 2446 | the `buffer-name'." | 2448 | the `buffer-name'." |
| 2447 | (format "%s[%s]" python-shell-internal-buffer-name (buffer-name))) | 2449 | (format "%s[%s]" python-shell-internal-buffer-name (buffer-name))) |
| 2448 | 2450 | ||
| @@ -3074,7 +3076,7 @@ Returns the output. See `python-shell-send-string-no-output'." | |||
| 3074 | (define-obsolete-function-alias | 3076 | (define-obsolete-function-alias |
| 3075 | 'python-send-string 'python-shell-internal-send-string "24.3") | 3077 | 'python-send-string 'python-shell-internal-send-string "24.3") |
| 3076 | 3078 | ||
| 3077 | (defun python-shell-buffer-substring (start end &optional nomain) | 3079 | (defun python-shell-buffer-substring (start end &optional nomain no-cookie) |
| 3078 | "Send buffer substring from START to END formatted for shell. | 3080 | "Send buffer substring from START to END formatted for shell. |
| 3079 | This is a wrapper over `buffer-substring' that takes care of | 3081 | This is a wrapper over `buffer-substring' that takes care of |
| 3080 | different transformations for the code sent to be evaluated in | 3082 | different transformations for the code sent to be evaluated in |
| @@ -3100,12 +3102,13 @@ the python shell: | |||
| 3100 | (goto-char start) | 3102 | (goto-char start) |
| 3101 | (python-util-forward-comment 1) | 3103 | (python-util-forward-comment 1) |
| 3102 | (current-indentation)))) | 3104 | (current-indentation)))) |
| 3103 | (fillstr (when (not starts-at-point-min-p) | 3105 | (fillstr (and (not no-cookie) |
| 3104 | (concat | 3106 | (not starts-at-point-min-p) |
| 3105 | (format "# -*- coding: %s -*-\n" encoding) | 3107 | (concat |
| 3106 | (make-string | 3108 | (format "# -*- coding: %s -*-\n" encoding) |
| 3107 | ;; Subtract 2 because of the coding cookie. | 3109 | (make-string |
| 3108 | (- (line-number-at-pos start) 2) ?\n))))) | 3110 | ;; Subtract 2 because of the coding cookie. |
| 3111 | (- (line-number-at-pos start) 2) ?\n))))) | ||
| 3109 | (with-temp-buffer | 3112 | (with-temp-buffer |
| 3110 | (python-mode) | 3113 | (python-mode) |
| 3111 | (when fillstr | 3114 | (when fillstr |
| @@ -3144,7 +3147,8 @@ the python shell: | |||
| 3144 | (line-beginning-position) (line-end-position)))) | 3147 | (line-beginning-position) (line-end-position)))) |
| 3145 | (buffer-substring-no-properties (point-min) (point-max))))) | 3148 | (buffer-substring-no-properties (point-min) (point-max))))) |
| 3146 | 3149 | ||
| 3147 | (defun python-shell-send-region (start end &optional send-main msg) | 3150 | (defun python-shell-send-region (start end &optional send-main msg |
| 3151 | no-cookie) | ||
| 3148 | "Send the region delimited by START and END to inferior Python process. | 3152 | "Send the region delimited by START and END to inferior Python process. |
| 3149 | When optional argument SEND-MAIN is non-nil, allow execution of | 3153 | When optional argument SEND-MAIN is non-nil, allow execution of |
| 3150 | code inside blocks delimited by \"if __name__== \\='__main__\\=':\". | 3154 | code inside blocks delimited by \"if __name__== \\='__main__\\=':\". |
| @@ -3154,7 +3158,8 @@ non-nil, forces display of a user-friendly message if there's no | |||
| 3154 | process running; defaults to t when called interactively." | 3158 | process running; defaults to t when called interactively." |
| 3155 | (interactive | 3159 | (interactive |
| 3156 | (list (region-beginning) (region-end) current-prefix-arg t)) | 3160 | (list (region-beginning) (region-end) current-prefix-arg t)) |
| 3157 | (let* ((string (python-shell-buffer-substring start end (not send-main))) | 3161 | (let* ((string (python-shell-buffer-substring start end (not send-main) |
| 3162 | no-cookie)) | ||
| 3158 | (process (python-shell-get-process-or-error msg)) | 3163 | (process (python-shell-get-process-or-error msg)) |
| 3159 | (original-string (buffer-substring-no-properties start end)) | 3164 | (original-string (buffer-substring-no-properties start end)) |
| 3160 | (_ (string-match "\\`\n*\\(.*\\)" original-string))) | 3165 | (_ (string-match "\\`\n*\\(.*\\)" original-string))) |
| @@ -3178,7 +3183,7 @@ interactively." | |||
| 3178 | (python-shell-send-region | 3183 | (python-shell-send-region |
| 3179 | (save-excursion (python-nav-beginning-of-statement)) | 3184 | (save-excursion (python-nav-beginning-of-statement)) |
| 3180 | (save-excursion (python-nav-end-of-statement)) | 3185 | (save-excursion (python-nav-end-of-statement)) |
| 3181 | send-main msg))) | 3186 | send-main msg t))) |
| 3182 | 3187 | ||
| 3183 | (defun python-shell-send-buffer (&optional send-main msg) | 3188 | (defun python-shell-send-buffer (&optional send-main msg) |
| 3184 | "Send the entire buffer to inferior Python process. | 3189 | "Send the entire buffer to inferior Python process. |
| @@ -3200,27 +3205,29 @@ optional argument MSG is non-nil, forces display of a | |||
| 3200 | user-friendly message if there's no process running; defaults to | 3205 | user-friendly message if there's no process running; defaults to |
| 3201 | t when called interactively." | 3206 | t when called interactively." |
| 3202 | (interactive (list current-prefix-arg t)) | 3207 | (interactive (list current-prefix-arg t)) |
| 3203 | (save-excursion | 3208 | (let ((starting-pos (point))) |
| 3204 | (python-shell-send-region | 3209 | (save-excursion |
| 3205 | (progn | 3210 | (python-shell-send-region |
| 3206 | (end-of-line 1) | 3211 | (progn |
| 3207 | (while (and (or (python-nav-beginning-of-defun) | 3212 | (end-of-line 1) |
| 3208 | (beginning-of-line 1)) | 3213 | (while (and (or (python-nav-beginning-of-defun) |
| 3209 | (> (current-indentation) 0))) | 3214 | (beginning-of-line 1)) |
| 3210 | (when (not arg) | 3215 | (> (current-indentation) 0))) |
| 3211 | (while (and | 3216 | (when (not arg) |
| 3212 | (eq (forward-line -1) 0) | 3217 | (while (and |
| 3213 | (if (looking-at (python-rx decorator)) | 3218 | (eq (forward-line -1) 0) |
| 3214 | t | 3219 | (if (looking-at (python-rx decorator)) |
| 3215 | (forward-line 1) | 3220 | t |
| 3216 | nil)))) | 3221 | (forward-line 1) |
| 3217 | (point-marker)) | 3222 | nil)))) |
| 3218 | (progn | 3223 | (point-marker)) |
| 3219 | (or (python-nav-end-of-defun) | 3224 | (progn |
| 3220 | (end-of-line 1)) | 3225 | (goto-char starting-pos) |
| 3221 | (point-marker)) | 3226 | (or (python-nav-end-of-defun) |
| 3222 | nil ;; noop | 3227 | (end-of-line 1)) |
| 3223 | msg))) | 3228 | (point-marker)) |
| 3229 | nil ;; noop | ||
| 3230 | msg)))) | ||
| 3224 | 3231 | ||
| 3225 | (defun python-shell-send-file (file-name &optional process temp-file-name | 3232 | (defun python-shell-send-file (file-name &optional process temp-file-name |
| 3226 | delete msg) | 3233 | delete msg) |
| @@ -4712,7 +4719,7 @@ customize how labels are formatted." | |||
| 4712 | (defun python-imenu-create-flat-index (&optional alist prefix) | 4719 | (defun python-imenu-create-flat-index (&optional alist prefix) |
| 4713 | "Return flat outline of the current Python buffer for Imenu. | 4720 | "Return flat outline of the current Python buffer for Imenu. |
| 4714 | Optional argument ALIST is the tree to be flattened; when nil | 4721 | Optional argument ALIST is the tree to be flattened; when nil |
| 4715 | `python-imenu-build-index' is used with | 4722 | `python-imenu-create-index' is used with |
| 4716 | `python-imenu-format-parent-item-jump-label-function' | 4723 | `python-imenu-format-parent-item-jump-label-function' |
| 4717 | `python-imenu-format-parent-item-label-function' | 4724 | `python-imenu-format-parent-item-label-function' |
| 4718 | `python-imenu-format-item-label-function' set to | 4725 | `python-imenu-format-item-label-function' set to |
diff --git a/lisp/progmodes/ruby-mode.el b/lisp/progmodes/ruby-mode.el index a11634bc9f0..14f00597bfc 100644 --- a/lisp/progmodes/ruby-mode.el +++ b/lisp/progmodes/ruby-mode.el | |||
| @@ -4,7 +4,7 @@ | |||
| 4 | 4 | ||
| 5 | ;; Authors: Yukihiro Matsumoto | 5 | ;; Authors: Yukihiro Matsumoto |
| 6 | ;; Nobuyoshi Nakada | 6 | ;; Nobuyoshi Nakada |
| 7 | ;; URL: http://www.emacswiki.org/cgi-bin/wiki/RubyMode | 7 | ;; URL: https://www.emacswiki.org/cgi-bin/wiki/RubyMode |
| 8 | ;; Created: Fri Feb 4 14:49:13 JST 1994 | 8 | ;; Created: Fri Feb 4 14:49:13 JST 1994 |
| 9 | ;; Keywords: languages ruby | 9 | ;; Keywords: languages ruby |
| 10 | ;; Version: 1.2 | 10 | ;; Version: 1.2 |
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 3c249b7bc0e..a8c0e045c6b 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el | |||
| @@ -386,6 +386,7 @@ name symbol." | |||
| 386 | ?~ "_" | 386 | ?~ "_" |
| 387 | ?, "_" | 387 | ?, "_" |
| 388 | ?= "." | 388 | ?= "." |
| 389 | ?/ "." | ||
| 389 | ?\; "." | 390 | ?\; "." |
| 390 | ?| "." | 391 | ?| "." |
| 391 | ?& "." | 392 | ?& "." |
diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el index c31c5ddd87e..bfef2a663a0 100644 --- a/lisp/progmodes/sql.el +++ b/lisp/progmodes/sql.el | |||
| @@ -2808,8 +2808,8 @@ See `sql-product-alist' for a list of products and supported features." | |||
| 2808 | 2808 | ||
| 2809 | The KEYWORDS-ONLY flag is passed to font-lock to specify whether | 2809 | The KEYWORDS-ONLY flag is passed to font-lock to specify whether |
| 2810 | only keywords should be highlighted and syntactic highlighting | 2810 | only keywords should be highlighted and syntactic highlighting |
| 2811 | skipped. The IMENU flag indicates whether `imenu-mode' should | 2811 | skipped. The IMENU flag indicates whether `imenu' should also be |
| 2812 | also be configured." | 2812 | configured." |
| 2813 | 2813 | ||
| 2814 | (let | 2814 | (let |
| 2815 | ;; Get the product-specific syntax-alist. | 2815 | ;; Get the product-specific syntax-alist. |
| @@ -4293,14 +4293,14 @@ Here is an example for your init file. It keeps the SQLi buffer a | |||
| 4293 | certain length. | 4293 | certain length. |
| 4294 | 4294 | ||
| 4295 | \(add-hook \\='sql-interactive-mode-hook | 4295 | \(add-hook \\='sql-interactive-mode-hook |
| 4296 | (function (lambda () | 4296 | (lambda () |
| 4297 | (setq comint-output-filter-functions #\\='comint-truncate-buffer)))) | 4297 | (setq comint-output-filter-functions #\\='comint-truncate-buffer))) |
| 4298 | 4298 | ||
| 4299 | Here is another example. It will always put point back to the statement | 4299 | Here is another example. It will always put point back to the statement |
| 4300 | you entered, right above the output it created. | 4300 | you entered, right above the output it created. |
| 4301 | 4301 | ||
| 4302 | \(setq comint-output-filter-functions | 4302 | \(setq comint-output-filter-functions |
| 4303 | (function (lambda (STR) (comint-show-output))))" | 4303 | (lambda (STR) (comint-show-output)))" |
| 4304 | :syntax-table sql-mode-syntax-table | 4304 | :syntax-table sql-mode-syntax-table |
| 4305 | ;; FIXME: The doc above uses `setq' on `comint-output-filter-functions', | 4305 | ;; FIXME: The doc above uses `setq' on `comint-output-filter-functions', |
| 4306 | ;; whereas hooks should be manipulated with things like `add/remove-hook'. | 4306 | ;; whereas hooks should be manipulated with things like `add/remove-hook'. |
diff --git a/lisp/ps-def.el b/lisp/ps-def.el index 65e8011f771..571e1a68c5e 100644 --- a/lisp/ps-def.el +++ b/lisp/ps-def.el | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | ;; Author: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> | 5 | ;; Author: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> |
| 6 | ;; Kenichi Handa <handa@gnu.org> (multi-byte characters) | 6 | ;; Kenichi Handa <handa@gnu.org> (multi-byte characters) |
| 7 | ;; Keywords: wp, print, PostScript | 7 | ;; Keywords: wp, print, PostScript |
| 8 | ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre | 8 | ;; X-URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre |
| 9 | ;; Package: ps-print | 9 | ;; Package: ps-print |
| 10 | 10 | ||
| 11 | ;; This file is part of GNU Emacs. | 11 | ;; This file is part of GNU Emacs. |
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 67ee4d24390..351c489f487 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el | |||
| @@ -9,7 +9,7 @@ | |||
| 9 | ;; Maintainer: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> | 9 | ;; Maintainer: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> |
| 10 | ;; Keywords: wp, print, PostScript | 10 | ;; Keywords: wp, print, PostScript |
| 11 | ;; Version: 7.3.5 | 11 | ;; Version: 7.3.5 |
| 12 | ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre | 12 | ;; X-URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre |
| 13 | 13 | ||
| 14 | (eval-when-compile (require 'cl-lib)) | 14 | (eval-when-compile (require 'cl-lib)) |
| 15 | 15 | ||
| @@ -2198,7 +2198,7 @@ The values for `ps-line-number-start': | |||
| 2198 | `ps-line-number-step' inclusive. | 2198 | `ps-line-number-step' inclusive. |
| 2199 | 2199 | ||
| 2200 | * If `ps-line-number-step' is set to `zebra', must be between 1 and the | 2200 | * If `ps-line-number-step' is set to `zebra', must be between 1 and the |
| 2201 | value of `ps-zebra-strip-height' inclusive. Use this combination if you | 2201 | value of `ps-zebra-stripe-height' inclusive. Use this combination if you |
| 2202 | wish that line number be relative to zebra stripes." | 2202 | wish that line number be relative to zebra stripes." |
| 2203 | :type '(integer :tag "Start Step Interval") | 2203 | :type '(integer :tag "Start Step Interval") |
| 2204 | :version "20" | 2204 | :version "20" |
diff --git a/lisp/ps-samp.el b/lisp/ps-samp.el index 7c688d53fa9..c5dcf494c0b 100644 --- a/lisp/ps-samp.el +++ b/lisp/ps-samp.el | |||
| @@ -8,7 +8,7 @@ | |||
| 8 | ;; Kenichi Handa <handa@gnu.org> (multi-byte characters) | 8 | ;; Kenichi Handa <handa@gnu.org> (multi-byte characters) |
| 9 | ;; Maintainer: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> | 9 | ;; Maintainer: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> |
| 10 | ;; Keywords: wp, print, PostScript | 10 | ;; Keywords: wp, print, PostScript |
| 11 | ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre | 11 | ;; X-URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre |
| 12 | ;; Package: ps-print | 12 | ;; Package: ps-print |
| 13 | 13 | ||
| 14 | ;; This file is part of GNU Emacs. | 14 | ;; This file is part of GNU Emacs. |
| @@ -57,7 +57,7 @@ | |||
| 57 | (interactive) | 57 | (interactive) |
| 58 | (ps-print-message-from-summary 'rmail-summary-buffer "RMAIL")) | 58 | (ps-print-message-from-summary 'rmail-summary-buffer "RMAIL")) |
| 59 | 59 | ||
| 60 | ;; Used in `ps-rmail-print-article-from-summary', | 60 | ;; Used in `ps-rmail-print-message-from-summary', |
| 61 | ;; `ps-gnus-print-article-from-summary' and `ps-vm-print-message-from-summary'. | 61 | ;; `ps-gnus-print-article-from-summary' and `ps-vm-print-message-from-summary'. |
| 62 | (defun ps-print-message-from-summary (summary-buffer summary-default) | 62 | (defun ps-print-message-from-summary (summary-buffer summary-default) |
| 63 | (let ((ps-buf (or (and (boundp summary-buffer) | 63 | (let ((ps-buf (or (and (boundp summary-buffer) |
diff --git a/lisp/recentf.el b/lisp/recentf.el index 877edd4be1f..61c39de12b2 100644 --- a/lisp/recentf.el +++ b/lisp/recentf.el | |||
| @@ -245,7 +245,10 @@ The following values can be set: | |||
| 245 | - A number | 245 | - A number |
| 246 | Cleanup each time Emacs has been idle that number of seconds. | 246 | Cleanup each time Emacs has been idle that number of seconds. |
| 247 | - A time string | 247 | - A time string |
| 248 | Cleanup at specified time string, for example at \"11:00pm\". | 248 | Cleanup at specified time string daily, for example at \"11:00pm\". |
| 249 | |||
| 250 | If a time string is provided and it is already past the specified time | ||
| 251 | for the current day, the first cleanup happens immediately as for `mode'. | ||
| 249 | 252 | ||
| 250 | Setting this variable directly does not take effect; | 253 | Setting this variable directly does not take effect; |
| 251 | use \\[customize]. | 254 | use \\[customize]. |
| @@ -257,7 +260,7 @@ cleanup the list." | |||
| 257 | :value mode) | 260 | :value mode) |
| 258 | (const :tag "Never" | 261 | (const :tag "Never" |
| 259 | :value never) | 262 | :value never) |
| 260 | (number :tag "When idle that seconds" | 263 | (number :tag "When idle after (seconds)" |
| 261 | :value 300) | 264 | :value 300) |
| 262 | (string :tag "At time" | 265 | (string :tag "At time" |
| 263 | :value "11:00pm")) | 266 | :value "11:00pm")) |
| @@ -371,7 +374,8 @@ See also the option `recentf-auto-cleanup'.") | |||
| 371 | recentf-auto-cleanup t 'recentf-cleanup)) | 374 | recentf-auto-cleanup t 'recentf-cleanup)) |
| 372 | ((stringp recentf-auto-cleanup) | 375 | ((stringp recentf-auto-cleanup) |
| 373 | (run-at-time | 376 | (run-at-time |
| 374 | recentf-auto-cleanup nil 'recentf-cleanup)))))) | 377 | ;; Repeat every 24 hours. |
| 378 | recentf-auto-cleanup (* 24 60 60) 'recentf-cleanup)))))) | ||
| 375 | 379 | ||
| 376 | ;;; File functions | 380 | ;;; File functions |
| 377 | ;; | 381 | ;; |
diff --git a/lisp/replace.el b/lisp/replace.el index 035031ac93d..2d17ec9097c 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -1572,6 +1572,18 @@ is not modified." | |||
| 1572 | 1572 | ||
| 1573 | (defvar ido-ignore-item-temp-list) | 1573 | (defvar ido-ignore-item-temp-list) |
| 1574 | 1574 | ||
| 1575 | (defun multi-occur--prompt () | ||
| 1576 | (concat | ||
| 1577 | "Next buffer to search " | ||
| 1578 | (cond | ||
| 1579 | ((eq read-buffer-function #'ido-read-buffer) | ||
| 1580 | (substitute-command-keys | ||
| 1581 | "(\\<ido-completion-map>\\[ido-select-text] to end): ")) | ||
| 1582 | ((bound-and-true-p fido-mode) | ||
| 1583 | (substitute-command-keys | ||
| 1584 | "(\\<icomplete-fido-mode-map>\\[icomplete-fido-exit] to end): ")) | ||
| 1585 | (t "(RET to end): ")))) | ||
| 1586 | |||
| 1575 | (defun multi-occur (bufs regexp &optional nlines) | 1587 | (defun multi-occur (bufs regexp &optional nlines) |
| 1576 | "Show all lines in buffers BUFS containing a match for REGEXP. | 1588 | "Show all lines in buffers BUFS containing a match for REGEXP. |
| 1577 | Optional argument NLINES specifies the number of context lines to show | 1589 | Optional argument NLINES specifies the number of context lines to show |
| @@ -1587,11 +1599,7 @@ See also `multi-occur-in-matching-buffers'." | |||
| 1587 | (buf nil) | 1599 | (buf nil) |
| 1588 | (ido-ignore-item-temp-list bufs)) | 1600 | (ido-ignore-item-temp-list bufs)) |
| 1589 | (while (not (string-equal | 1601 | (while (not (string-equal |
| 1590 | (setq buf (read-buffer | 1602 | (setq buf (read-buffer (multi-occur--prompt) nil t)) |
| 1591 | (if (eq read-buffer-function #'ido-read-buffer) | ||
| 1592 | "Next buffer to search (C-j to end): " | ||
| 1593 | "Next buffer to search (RET to end): ") | ||
| 1594 | nil t)) | ||
| 1595 | "")) | 1603 | "")) |
| 1596 | (cl-pushnew buf bufs) | 1604 | (cl-pushnew buf bufs) |
| 1597 | (setq ido-ignore-item-temp-list bufs)) | 1605 | (setq ido-ignore-item-temp-list bufs)) |
diff --git a/lisp/ses.el b/lisp/ses.el index 64d03a7fe5f..bfafc132bf5 100644 --- a/lisp/ses.el +++ b/lisp/ses.el | |||
| @@ -395,7 +395,7 @@ left-justification of the result. Set to error-signal if `ses-call-printer' | |||
| 395 | encountered an error during printing. Otherwise nil.") | 395 | encountered an error during printing. Otherwise nil.") |
| 396 | 396 | ||
| 397 | (defvar ses-start-time nil | 397 | (defvar ses-start-time nil |
| 398 | "Time when current operation started. Used by `ses-time-check' to decide | 398 | "Time when current operation started. Used by `ses--time-check' to decide |
| 399 | when to emit a progress message.") | 399 | when to emit a progress message.") |
| 400 | 400 | ||
| 401 | 401 | ||
diff --git a/lisp/shell.el b/lisp/shell.el index 6129e5efc84..226bdf4d919 100644 --- a/lisp/shell.el +++ b/lisp/shell.el | |||
| @@ -1208,7 +1208,7 @@ Returns t if successful." | |||
| 1208 | (cwd (file-name-as-directory (expand-file-name default-directory))) | 1208 | (cwd (file-name-as-directory (expand-file-name default-directory))) |
| 1209 | (ignored-extensions | 1209 | (ignored-extensions |
| 1210 | (and comint-completion-fignore | 1210 | (and comint-completion-fignore |
| 1211 | (mapconcat (function (lambda (x) (concat (regexp-quote x) "\\'"))) | 1211 | (mapconcat (lambda (x) (concat (regexp-quote x) "\\'")) |
| 1212 | comint-completion-fignore "\\|"))) | 1212 | comint-completion-fignore "\\|"))) |
| 1213 | (dir "") (comps-in-dir ()) | 1213 | (dir "") (comps-in-dir ()) |
| 1214 | (file "") (abs-file-name "") (completions ())) | 1214 | (file "") (abs-file-name "") (completions ())) |
diff --git a/lisp/simple.el b/lisp/simple.el index fef22c2fa6f..b6d4e0603ee 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -2067,13 +2067,18 @@ invoking, give a prefix argument to `execute-extended-command'." | |||
| 2067 | ;; BEWARE: Called directly from the C code. | 2067 | ;; BEWARE: Called directly from the C code. |
| 2068 | "Execute CMD as an editor command. | 2068 | "Execute CMD as an editor command. |
| 2069 | CMD must be a symbol that satisfies the `commandp' predicate. | 2069 | CMD must be a symbol that satisfies the `commandp' predicate. |
| 2070 | Optional second arg RECORD-FLAG non-nil | 2070 | |
| 2071 | means unconditionally put this command in the variable `command-history'. | 2071 | Optional second arg RECORD-FLAG non-nil means unconditionally put |
| 2072 | Otherwise, that is done only if an arg is read using the minibuffer. | 2072 | this command in the variable `command-history'. Otherwise, that |
| 2073 | The argument KEYS specifies the value to use instead of (this-command-keys) | 2073 | is done only if an arg is read using the minibuffer. |
| 2074 | when reading the arguments; if it is nil, (this-command-keys) is used. | 2074 | |
| 2075 | The argument SPECIAL, if non-nil, means that this command is executing | 2075 | The argument KEYS specifies the value to use instead of the |
| 2076 | a special event, so ignore the prefix argument and don't clear it." | 2076 | return value of the `this-command-keys' function when reading the |
| 2077 | arguments; if it is nil, `this-command-keys' is used. | ||
| 2078 | |||
| 2079 | The argument SPECIAL, if non-nil, means that this command is | ||
| 2080 | executing a special event, so ignore the prefix argument and | ||
| 2081 | don't clear it." | ||
| 2077 | (setq debug-on-next-call nil) | 2082 | (setq debug-on-next-call nil) |
| 2078 | (let ((prefixarg (unless special | 2083 | (let ((prefixarg (unless special |
| 2079 | ;; FIXME: This should probably be done around | 2084 | ;; FIXME: This should probably be done around |
| @@ -7275,15 +7280,16 @@ Mode' for details." | |||
| 7275 | :lighter " Wrap" | 7280 | :lighter " Wrap" |
| 7276 | (if visual-line-mode | 7281 | (if visual-line-mode |
| 7277 | (progn | 7282 | (progn |
| 7278 | (set (make-local-variable 'visual-line--saved-state) nil) | 7283 | (unless visual-line--saved-state |
| 7279 | ;; Save the local values of some variables, to be restored if | 7284 | (setq-local visual-line--saved-state (list nil)) |
| 7280 | ;; visual-line-mode is turned off. | 7285 | ;; Save the local values of some variables, to be restored if |
| 7281 | (dolist (var '(line-move-visual truncate-lines | 7286 | ;; visual-line-mode is turned off. |
| 7282 | truncate-partial-width-windows | 7287 | (dolist (var '(line-move-visual truncate-lines |
| 7283 | word-wrap fringe-indicator-alist)) | 7288 | truncate-partial-width-windows |
| 7284 | (if (local-variable-p var) | 7289 | word-wrap fringe-indicator-alist)) |
| 7285 | (push (cons var (symbol-value var)) | 7290 | (if (local-variable-p var) |
| 7286 | visual-line--saved-state))) | 7291 | (push (cons var (symbol-value var)) |
| 7292 | visual-line--saved-state)))) | ||
| 7287 | (set (make-local-variable 'line-move-visual) t) | 7293 | (set (make-local-variable 'line-move-visual) t) |
| 7288 | (set (make-local-variable 'truncate-partial-width-windows) nil) | 7294 | (set (make-local-variable 'truncate-partial-width-windows) nil) |
| 7289 | (setq truncate-lines nil | 7295 | (setq truncate-lines nil |
| @@ -7297,7 +7303,8 @@ Mode' for details." | |||
| 7297 | (kill-local-variable 'truncate-partial-width-windows) | 7303 | (kill-local-variable 'truncate-partial-width-windows) |
| 7298 | (kill-local-variable 'fringe-indicator-alist) | 7304 | (kill-local-variable 'fringe-indicator-alist) |
| 7299 | (dolist (saved visual-line--saved-state) | 7305 | (dolist (saved visual-line--saved-state) |
| 7300 | (set (make-local-variable (car saved)) (cdr saved))) | 7306 | (when (car saved) |
| 7307 | (set (make-local-variable (car saved)) (cdr saved)))) | ||
| 7301 | (kill-local-variable 'visual-line--saved-state))) | 7308 | (kill-local-variable 'visual-line--saved-state))) |
| 7302 | 7309 | ||
| 7303 | (defun turn-on-visual-line-mode () | 7310 | (defun turn-on-visual-line-mode () |
diff --git a/lisp/startup.el b/lisp/startup.el index e39df7568ca..89b1d59ce0a 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -1506,7 +1506,7 @@ Consider using a subdirectory instead, e.g.: %s" | |||
| 1506 | (defun x-apply-session-resources () | 1506 | (defun x-apply-session-resources () |
| 1507 | "Apply X resources which specify initial values for Emacs variables. | 1507 | "Apply X resources which specify initial values for Emacs variables. |
| 1508 | This is called from a window-system initialization function, such | 1508 | This is called from a window-system initialization function, such |
| 1509 | as `x-initialize-window-system' for X, either at startup (prior | 1509 | as `window-system-initialization' for X, either at startup (prior |
| 1510 | to reading the init file), or afterwards when the user first | 1510 | to reading the init file), or afterwards when the user first |
| 1511 | opens a graphical frame. | 1511 | opens a graphical frame. |
| 1512 | 1512 | ||
diff --git a/lisp/strokes.el b/lisp/strokes.el index 08a381801d7..c2f03cac0f1 100644 --- a/lisp/strokes.el +++ b/lisp/strokes.el | |||
| @@ -102,7 +102,7 @@ | |||
| 102 | ;; The default value (9) should be fine for most decent computers. | 102 | ;; The default value (9) should be fine for most decent computers. |
| 103 | ;; NOTE: This variable should not be set to a number less than 3. | 103 | ;; NOTE: This variable should not be set to a number less than 3. |
| 104 | 104 | ||
| 105 | ;; `strokes-display-strokes-buffer' will allow you to hide the strokes | 105 | ;; `strokes-use-strokes-buffer' will allow you to hide the strokes |
| 106 | ;; buffer when doing simple strokes. This is a speedup for slow | 106 | ;; buffer when doing simple strokes. This is a speedup for slow |
| 107 | ;; computers as well as people who don't want to see their strokes. | 107 | ;; computers as well as people who don't want to see their strokes. |
| 108 | 108 | ||
| @@ -581,7 +581,7 @@ The grid is a square whose dimension is [0,GRID-RESOLUTION)." | |||
| 581 | 581 | ||
| 582 | (defun strokes-fill-stroke (unfilled-stroke &optional force) | 582 | (defun strokes-fill-stroke (unfilled-stroke &optional force) |
| 583 | "Fill in missing grid locations in the list of UNFILLED-STROKE. | 583 | "Fill in missing grid locations in the list of UNFILLED-STROKE. |
| 584 | If FORCE is non-nil, then fill the stroke even if it's `stroke-click'. | 584 | If FORCE is non-nil, then fill the stroke even if it's `strokes-click-p'. |
| 585 | NOTE: This is where the global variable `strokes-last-stroke' is set." | 585 | NOTE: This is where the global variable `strokes-last-stroke' is set." |
| 586 | (setq strokes-last-stroke ; this is global | 586 | (setq strokes-last-stroke ; this is global |
| 587 | (if (and (strokes-click-p unfilled-stroke) | 587 | (if (and (strokes-click-p unfilled-stroke) |
| @@ -1629,7 +1629,7 @@ Optional FORCE non-nil will ignore the buffer's read-only status." | |||
| 1629 | ;; The comment below is what I'd have to do if I wanted to | 1629 | ;; The comment below is what I'd have to do if I wanted to |
| 1630 | ;; deal with random newlines in the midst of the compressed | 1630 | ;; deal with random newlines in the midst of the compressed |
| 1631 | ;; strings. If I do this, I'll also have to change | 1631 | ;; strings. If I do this, I'll also have to change |
| 1632 | ;; `strokes-xpm-to-compress-string' to deal with the newline, | 1632 | ;; `strokes-xpm-to-compressed-string' to deal with the newline, |
| 1633 | ;; and possibly other whitespace stuff. YUCK! | 1633 | ;; and possibly other whitespace stuff. YUCK! |
| 1634 | ;; (while (re-search-forward "\\+/\\(\\w\\|\\)+/" nil t nil (get-buffer buffer)) | 1634 | ;; (while (re-search-forward "\\+/\\(\\w\\|\\)+/" nil t nil (get-buffer buffer)) |
| 1635 | (while (with-current-buffer buffer | 1635 | (while (with-current-buffer buffer |
diff --git a/lisp/subr.el b/lisp/subr.el index 55217bd4729..b1e382b80ee 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -284,8 +284,11 @@ Then evaluate RESULT to get return value, default nil. | |||
| 284 | (defmacro dotimes (spec &rest body) | 284 | (defmacro dotimes (spec &rest body) |
| 285 | "Loop a certain number of times. | 285 | "Loop a certain number of times. |
| 286 | Evaluate BODY with VAR bound to successive integers running from 0, | 286 | Evaluate BODY with VAR bound to successive integers running from 0, |
| 287 | inclusive, to COUNT, exclusive. Then evaluate RESULT to get | 287 | inclusive, to COUNT, exclusive. |
| 288 | the return value (nil if RESULT is omitted). Its use is deprecated. | 288 | |
| 289 | Finally RESULT is evaluated to get the return value (nil if | ||
| 290 | RESULT is omitted). Using RESULT is deprecated, and may result | ||
| 291 | in compilation warnings about unused variables. | ||
| 289 | 292 | ||
| 290 | \(fn (VAR COUNT [RESULT]) BODY...)" | 293 | \(fn (VAR COUNT [RESULT]) BODY...)" |
| 291 | (declare (indent 1) (debug dolist)) | 294 | (declare (indent 1) (debug dolist)) |
| @@ -3253,7 +3256,7 @@ See Info node `(elisp)Security Considerations'." | |||
| 3253 | 3256 | ||
| 3254 | ;; First, quote argument so that CommandLineToArgvW will | 3257 | ;; First, quote argument so that CommandLineToArgvW will |
| 3255 | ;; understand it. See | 3258 | ;; understand it. See |
| 3256 | ;; http://msdn.microsoft.com/en-us/library/17w5ykft%28v=vs.85%29.aspx | 3259 | ;; https://msdn.microsoft.com/en-us/library/17w5ykft%28v=vs.85%29.aspx |
| 3257 | ;; After we perform that level of quoting, escape shell | 3260 | ;; After we perform that level of quoting, escape shell |
| 3258 | ;; metacharacters so that cmd won't mangle our argument. If the | 3261 | ;; metacharacters so that cmd won't mangle our argument. If the |
| 3259 | ;; argument contains no double quote characters, we can just | 3262 | ;; argument contains no double quote characters, we can just |
diff --git a/lisp/talk.el b/lisp/talk.el index 5541b0a4c69..a18cf263435 100644 --- a/lisp/talk.el +++ b/lisp/talk.el | |||
| @@ -90,7 +90,7 @@ Each element has the form (DISPLAY FRAME BUFFER).") | |||
| 90 | (let ((frame (nth 1 (car tail))) | 90 | (let ((frame (nth 1 (car tail))) |
| 91 | (this-buffer (nth 2 (car tail))) | 91 | (this-buffer (nth 2 (car tail))) |
| 92 | (buffers | 92 | (buffers |
| 93 | (mapcar (function (lambda (elt) (nth 2 elt))) | 93 | (mapcar (lambda (elt) (nth 2 elt)) |
| 94 | talk-display-alist))) | 94 | talk-display-alist))) |
| 95 | ;; Put this display's own talk buffer | 95 | ;; Put this display's own talk buffer |
| 96 | ;; at the front of the list. | 96 | ;; at the front of the list. |
diff --git a/lisp/tempo.el b/lisp/tempo.el index bc398e7eb67..f6612354b1c 100644 --- a/lisp/tempo.el +++ b/lisp/tempo.el | |||
| @@ -75,7 +75,7 @@ | |||
| 75 | ;; ftp.lysator.liu.se in the directory /pub/emacs | 75 | ;; ftp.lysator.liu.se in the directory /pub/emacs |
| 76 | 76 | ||
| 77 | ;; There is also a WWW page at | 77 | ;; There is also a WWW page at |
| 78 | ;; http://www.lysator.liu.se/~davidk/elisp/ which has some information | 78 | ;; https://www.lysator.liu.se/~davidk/elisp/ which has some information |
| 79 | 79 | ||
| 80 | ;;; Known bugs: | 80 | ;;; Known bugs: |
| 81 | 81 | ||
| @@ -306,8 +306,8 @@ mode, ON-REGION is ignored and assumed true if the region is active." | |||
| 306 | (goto-char tempo-region-start)) | 306 | (goto-char tempo-region-start)) |
| 307 | (save-excursion | 307 | (save-excursion |
| 308 | (tempo-insert-mark (point-marker)) | 308 | (tempo-insert-mark (point-marker)) |
| 309 | (mapc (function (lambda (elt) | 309 | (mapc (lambda (elt) |
| 310 | (tempo-insert elt on-region))) | 310 | (tempo-insert elt on-region)) |
| 311 | (symbol-value template)) | 311 | (symbol-value template)) |
| 312 | (tempo-insert-mark (point-marker))) | 312 | (tempo-insert-mark (point-marker))) |
| 313 | (tempo-forward-mark)) | 313 | (tempo-forward-mark)) |
| @@ -449,9 +449,9 @@ never prompted." | |||
| 449 | "Tries all the user-defined element handlers in `tempo-user-elements'." | 449 | "Tries all the user-defined element handlers in `tempo-user-elements'." |
| 450 | ;; Sigh... I need (some list) | 450 | ;; Sigh... I need (some list) |
| 451 | (catch 'found | 451 | (catch 'found |
| 452 | (mapc (function (lambda (handler) | 452 | (mapc (lambda (handler) |
| 453 | (let ((result (funcall handler element))) | 453 | (let ((result (funcall handler element))) |
| 454 | (if result (throw 'found result))))) | 454 | (if result (throw 'found result)))) |
| 455 | tempo-user-elements) | 455 | tempo-user-elements) |
| 456 | (throw 'found nil))) | 456 | (throw 'found nil))) |
| 457 | 457 | ||
| @@ -542,7 +542,7 @@ and insert the results." | |||
| 542 | ;;; tempo-forward-mark | 542 | ;;; tempo-forward-mark |
| 543 | 543 | ||
| 544 | (defun tempo-forward-mark () | 544 | (defun tempo-forward-mark () |
| 545 | "Jump to the next mark in `tempo-forward-mark-list'." | 545 | "Jump to the next mark in `tempo-marks'." |
| 546 | (interactive) | 546 | (interactive) |
| 547 | (let ((next-mark (catch 'found | 547 | (let ((next-mark (catch 'found |
| 548 | (mapc | 548 | (mapc |
| @@ -560,7 +560,7 @@ and insert the results." | |||
| 560 | ;;; tempo-backward-mark | 560 | ;;; tempo-backward-mark |
| 561 | 561 | ||
| 562 | (defun tempo-backward-mark () | 562 | (defun tempo-backward-mark () |
| 563 | "Jump to the previous mark in `tempo-back-mark-list'." | 563 | "Jump to the previous mark in `tempo-marks'." |
| 564 | (interactive) | 564 | (interactive) |
| 565 | (let ((prev-mark (catch 'found | 565 | (let ((prev-mark (catch 'found |
| 566 | (let (last) | 566 | (let (last) |
| @@ -640,11 +640,11 @@ If `tempo-dirty-collection' is nil, the old collection is reused." | |||
| 640 | tempo-collection) | 640 | tempo-collection) |
| 641 | (setq tempo-collection | 641 | (setq tempo-collection |
| 642 | (apply (function append) | 642 | (apply (function append) |
| 643 | (mapcar (function (lambda (tag-list) | 643 | (mapcar (lambda (tag-list) |
| 644 | ; If the format for | 644 | ; If the format for |
| 645 | ; tempo-local-tags changes, | 645 | ; tempo-local-tags changes, |
| 646 | ; change this | 646 | ; change this |
| 647 | (eval (car tag-list)))) | 647 | (eval (car tag-list))) |
| 648 | tempo-local-tags)))) | 648 | tempo-local-tags)))) |
| 649 | (setq tempo-dirty-collection nil))) | 649 | (setq tempo-dirty-collection nil))) |
| 650 | 650 | ||
diff --git a/lisp/term.el b/lisp/term.el index f0470d806cd..ff8b3f00f34 100644 --- a/lisp/term.el +++ b/lisp/term.el | |||
| @@ -554,7 +554,7 @@ See also `term-dynamic-complete'. | |||
| 554 | This is a good thing to set in mode hooks.") | 554 | This is a good thing to set in mode hooks.") |
| 555 | 555 | ||
| 556 | (defvar term-input-filter | 556 | (defvar term-input-filter |
| 557 | (function (lambda (str) (not (string-match "\\`\\s *\\'" str)))) | 557 | (lambda (str) (not (string-match "\\`\\s *\\'" str))) |
| 558 | "Predicate for filtering additions to input history. | 558 | "Predicate for filtering additions to input history. |
| 559 | Only inputs answering true to this function are saved on the input | 559 | Only inputs answering true to this function are saved on the input |
| 560 | history list. Default is to save anything that isn't all whitespace.") | 560 | history list. Default is to save anything that isn't all whitespace.") |
| @@ -860,6 +860,7 @@ is buffer-local." | |||
| 860 | (define-key map [prior] 'term-send-prior) | 860 | (define-key map [prior] 'term-send-prior) |
| 861 | (define-key map [next] 'term-send-next) | 861 | (define-key map [next] 'term-send-next) |
| 862 | (define-key map [xterm-paste] #'term--xterm-paste) | 862 | (define-key map [xterm-paste] #'term--xterm-paste) |
| 863 | (define-key map [?\C-/] #'term-send-C-_) | ||
| 863 | map) | 864 | map) |
| 864 | "Keyboard map for sending characters directly to the inferior process.") | 865 | "Keyboard map for sending characters directly to the inferior process.") |
| 865 | 866 | ||
| @@ -1282,6 +1283,7 @@ without any interpretation." | |||
| 1282 | (defun term-send-next () (interactive) (term-send-raw-string "\e[6~")) | 1283 | (defun term-send-next () (interactive) (term-send-raw-string "\e[6~")) |
| 1283 | (defun term-send-del () (interactive) (term-send-raw-string "\e[3~")) | 1284 | (defun term-send-del () (interactive) (term-send-raw-string "\e[3~")) |
| 1284 | (defun term-send-backspace () (interactive) (term-send-raw-string "\C-?")) | 1285 | (defun term-send-backspace () (interactive) (term-send-raw-string "\C-?")) |
| 1286 | (defun term-send-C-_ () (interactive) (term-send-raw-string "\C-_")) | ||
| 1285 | 1287 | ||
| 1286 | (defun term-char-mode () | 1288 | (defun term-char-mode () |
| 1287 | "Switch to char (\"raw\") sub-mode of term mode. | 1289 | "Switch to char (\"raw\") sub-mode of term mode. |
| @@ -3638,8 +3640,8 @@ The top-most line is line 0." | |||
| 3638 | (message "Terminal-emulator pager break help...") | 3640 | (message "Terminal-emulator pager break help...") |
| 3639 | (sit-for 0) | 3641 | (sit-for 0) |
| 3640 | (with-electric-help | 3642 | (with-electric-help |
| 3641 | (function (lambda () | 3643 | (lambda () |
| 3642 | (princ (substitute-command-keys | 3644 | (princ (substitute-command-keys |
| 3643 | "\\<term-pager-break-map>\ | 3645 | "\\<term-pager-break-map>\ |
| 3644 | Terminal-emulator MORE break.\n\ | 3646 | Terminal-emulator MORE break.\n\ |
| 3645 | Type one of the following keys:\n\n\ | 3647 | Type one of the following keys:\n\n\ |
| @@ -3657,7 +3659,7 @@ Type one of the following keys:\n\n\ | |||
| 3657 | Any other key is passed through to the program | 3659 | Any other key is passed through to the program |
| 3658 | running under the terminal emulator and disables pager processing until | 3660 | running under the terminal emulator and disables pager processing until |
| 3659 | all pending output has been dealt with.")) | 3661 | all pending output has been dealt with.")) |
| 3660 | nil)))) | 3662 | nil))) |
| 3661 | 3663 | ||
| 3662 | (defun term-pager-continue (new-count) | 3664 | (defun term-pager-continue (new-count) |
| 3663 | (let ((process (get-buffer-process (current-buffer)))) | 3665 | (let ((process (get-buffer-process (current-buffer)))) |
diff --git a/lisp/term/internal.el b/lisp/term/internal.el index 5e22c0f6afe..c54481a5327 100644 --- a/lisp/term/internal.el +++ b/lisp/term/internal.el | |||
| @@ -400,9 +400,9 @@ If TABLE is nil or omitted, `standard-display-table' is used." | |||
| 400 | ;; The following alist was compiled from: | 400 | ;; The following alist was compiled from: |
| 401 | ;; | 401 | ;; |
| 402 | ;; Ralf Brown's Interrupt List. file INTERRUP.F, D-2138, Table 01400 | 402 | ;; Ralf Brown's Interrupt List. file INTERRUP.F, D-2138, Table 01400 |
| 403 | ;; http://www.ethnologue.com/country_index.asp (official languages) | 403 | ;; https://www.ethnologue.com/country_index.asp (official languages) |
| 404 | ;; http://unicode.org/onlinedat/languages.html | 404 | ;; https://unicode.org/onlinedat/languages.html |
| 405 | ;; http://unicode.org/onlinedat/countries.html | 405 | ;; https://unicode.org/onlinedat/countries.html |
| 406 | ;; | 406 | ;; |
| 407 | ;; Only the official languages listed for each country. | 407 | ;; Only the official languages listed for each country. |
| 408 | ;; | 408 | ;; |
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el index 75b13bd7d8e..80682883c85 100644 --- a/lisp/textmodes/artist.el +++ b/lisp/textmodes/artist.el | |||
| @@ -593,7 +593,7 @@ This variable is initialized by the `artist-make-prev-next-op-alist' function.") | |||
| 593 | (define-key map "\C-c\C-a\C-b" 'artist-submit-bug-report) | 593 | (define-key map "\C-c\C-a\C-b" 'artist-submit-bug-report) |
| 594 | (define-key map [menu-bar artist] (cons "Artist" artist-menu-map)) | 594 | (define-key map [menu-bar artist] (cons "Artist" artist-menu-map)) |
| 595 | map) | 595 | map) |
| 596 | "Keymap for `artist-minor-mode'.") | 596 | "Keymap for `artist-mode'.") |
| 597 | 597 | ||
| 598 | (defvar artist-replacement-table (make-vector 256 0) | 598 | (defvar artist-replacement-table (make-vector 256 0) |
| 599 | "Replacement table for `artist-replace-char'.") | 599 | "Replacement table for `artist-replace-char'.") |
| @@ -1958,7 +1958,8 @@ Return a list (RETURN-CODE STDOUT STDERR)." | |||
| 1958 | 1958 | ||
| 1959 | (defsubst artist-get-char-at-xy (x y) | 1959 | (defsubst artist-get-char-at-xy (x y) |
| 1960 | "Return the character found at column X, row Y. | 1960 | "Return the character found at column X, row Y. |
| 1961 | Also updates the variables `artist-draw-min-y' and `artist-draw-max-y'." | 1961 | Also updates the variables `artist-draw-region-min-y' and |
| 1962 | `artist-draw-region-max-y'." | ||
| 1962 | (artist-move-to-xy x y) | 1963 | (artist-move-to-xy x y) |
| 1963 | (let ((curr-y (artist-current-line))) | 1964 | (let ((curr-y (artist-current-line))) |
| 1964 | (setq artist-draw-region-min-y (min curr-y artist-draw-region-min-y)) | 1965 | (setq artist-draw-region-min-y (min curr-y artist-draw-region-min-y)) |
| @@ -5575,8 +5576,8 @@ The event, EV, is the mouse event." | |||
| 5575 | ;; - artist-key-set-point-xxx for setting a point in the | 5576 | ;; - artist-key-set-point-xxx for setting a point in the |
| 5576 | ;; mode, to be called from `artist-key-set-point-common'. | 5577 | ;; mode, to be called from `artist-key-set-point-common'. |
| 5577 | ;; | 5578 | ;; |
| 5578 | ;; - artist-key-do-continuously-xxx to be called from | 5579 | ;; - artist-key-do-continously-xxx to be called from |
| 5579 | ;; `artist-key-do-continuously-common' whenever the user | 5580 | ;; `artist-key-do-continously-common' whenever the user |
| 5580 | ;; moves around. | 5581 | ;; moves around. |
| 5581 | ;; | 5582 | ;; |
| 5582 | ;; As for the artist-mouse-draw-xxx, these two functions must | 5583 | ;; As for the artist-mouse-draw-xxx, these two functions must |
diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el index 03edd4703ea..0d1eeed5611 100644 --- a/lisp/textmodes/css-mode.el +++ b/lisp/textmodes/css-mode.el | |||
| @@ -100,7 +100,7 @@ | |||
| 100 | "Identifiers for types of media.") | 100 | "Identifiers for types of media.") |
| 101 | 101 | ||
| 102 | (defconst css-property-alist | 102 | (defconst css-property-alist |
| 103 | ;; CSS 2.1 properties (http://www.w3.org/TR/CSS21/propidx.html). | 103 | ;; CSS 2.1 properties (https://www.w3.org/TR/CSS21/propidx.html). |
| 104 | ;; | 104 | ;; |
| 105 | ;; Properties duplicated by any of the CSS3 modules below have been | 105 | ;; Properties duplicated by any of the CSS3 modules below have been |
| 106 | ;; removed. | 106 | ;; removed. |
| @@ -190,7 +190,7 @@ | |||
| 190 | ("z-index" "auto" integer) | 190 | ("z-index" "auto" integer) |
| 191 | 191 | ||
| 192 | ;; CSS Animations | 192 | ;; CSS Animations |
| 193 | ;; (http://www.w3.org/TR/css3-animations/#property-index) | 193 | ;; (https://www.w3.org/TR/css3-animations/#property-index) |
| 194 | ("animation" single-animation-name time single-timing-function | 194 | ("animation" single-animation-name time single-timing-function |
| 195 | single-animation-iteration-count single-animation-direction | 195 | single-animation-iteration-count single-animation-direction |
| 196 | single-animation-fill-mode single-animation-play-state) | 196 | single-animation-fill-mode single-animation-play-state) |
| @@ -204,7 +204,7 @@ | |||
| 204 | ("animation-timing-function" single-timing-function) | 204 | ("animation-timing-function" single-timing-function) |
| 205 | 205 | ||
| 206 | ;; CSS Backgrounds and Borders Module Level 3 | 206 | ;; CSS Backgrounds and Borders Module Level 3 |
| 207 | ;; (http://www.w3.org/TR/css3-background/#property-index) | 207 | ;; (https://www.w3.org/TR/css3-background/#property-index) |
| 208 | ("background" bg-layer final-bg-layer) | 208 | ("background" bg-layer final-bg-layer) |
| 209 | ("background-attachment" attachment) | 209 | ("background-attachment" attachment) |
| 210 | ("background-clip" box) | 210 | ("background-clip" box) |
| @@ -249,7 +249,7 @@ | |||
| 249 | ("box-shadow" "none" shadow) | 249 | ("box-shadow" "none" shadow) |
| 250 | 250 | ||
| 251 | ;; CSS Basic User Interface Module Level 3 (CSS3 UI) | 251 | ;; CSS Basic User Interface Module Level 3 (CSS3 UI) |
| 252 | ;; (http://www.w3.org/TR/css3-ui/#property-index) | 252 | ;; (https://www.w3.org/TR/css3-ui/#property-index) |
| 253 | ("box-sizing" "content-box" "border-box") | 253 | ("box-sizing" "content-box" "border-box") |
| 254 | ("caret-color" "auto" color) | 254 | ("caret-color" "auto" color) |
| 255 | ("cursor" uri x y "auto" "default" "none" "context-menu" "help" | 255 | ("cursor" uri x y "auto" "default" "none" "context-menu" "help" |
| @@ -272,7 +272,7 @@ | |||
| 272 | ("text-overflow" "clip" "ellipsis" string) | 272 | ("text-overflow" "clip" "ellipsis" string) |
| 273 | 273 | ||
| 274 | ;; CSS Color Module Level 3 | 274 | ;; CSS Color Module Level 3 |
| 275 | ;; (http://www.w3.org/TR/css3-color/#property) | 275 | ;; (https://www.w3.org/TR/css3-color/#property) |
| 276 | ("color" color) | 276 | ("color" color) |
| 277 | ("opacity" alphavalue) | 277 | ("opacity" alphavalue) |
| 278 | 278 | ||
| @@ -304,7 +304,7 @@ | |||
| 304 | ("grid-template-rows" "none" track-list auto-track-list) | 304 | ("grid-template-rows" "none" track-list auto-track-list) |
| 305 | 305 | ||
| 306 | ;; CSS Flexible Box Layout Module Level 1 | 306 | ;; CSS Flexible Box Layout Module Level 1 |
| 307 | ;; (http://www.w3.org/TR/css-flexbox-1/#property-index) | 307 | ;; (https://www.w3.org/TR/css-flexbox-1/#property-index) |
| 308 | ("align-content" "flex-start" "flex-end" "center" "space-between" | 308 | ("align-content" "flex-start" "flex-end" "center" "space-between" |
| 309 | "space-around" "stretch") | 309 | "space-around" "stretch") |
| 310 | ("align-items" "flex-start" "flex-end" "center" "baseline" | 310 | ("align-items" "flex-start" "flex-end" "center" "baseline" |
| @@ -323,7 +323,7 @@ | |||
| 323 | ("order" integer) | 323 | ("order" integer) |
| 324 | 324 | ||
| 325 | ;; CSS Fonts Module Level 3 | 325 | ;; CSS Fonts Module Level 3 |
| 326 | ;; (http://www.w3.org/TR/css3-fonts/#property-index) | 326 | ;; (https://www.w3.org/TR/css3-fonts/#property-index) |
| 327 | ("font" font-style font-variant-css21 font-weight font-stretch | 327 | ("font" font-style font-variant-css21 font-weight font-stretch |
| 328 | font-size line-height font-family "caption" "icon" "menu" | 328 | font-size line-height font-family "caption" "icon" "menu" |
| 329 | "message-box" "small-caption" "status-bar") | 329 | "message-box" "small-caption" "status-bar") |
| @@ -419,7 +419,7 @@ | |||
| 419 | ("columns" column-width column-count) | 419 | ("columns" column-width column-count) |
| 420 | 420 | ||
| 421 | ;; CSS Overflow Module Level 3 | 421 | ;; CSS Overflow Module Level 3 |
| 422 | ;; (http://www.w3.org/TR/css-overflow-3/#property-index) | 422 | ;; (https://www.w3.org/TR/css-overflow-3/#property-index) |
| 423 | ("max-lines" "none" integer) | 423 | ("max-lines" "none" integer) |
| 424 | ("overflow" "visible" "hidden" "scroll" "auto" "paged-x" "paged-y" | 424 | ("overflow" "visible" "hidden" "scroll" "auto" "paged-x" "paged-y" |
| 425 | "paged-x-controls" "paged-y-controls" "fragments") | 425 | "paged-x-controls" "paged-y-controls" "fragments") |
| @@ -448,7 +448,7 @@ | |||
| 448 | ("text-underline-position" "auto" "under" "left" "right") | 448 | ("text-underline-position" "auto" "under" "left" "right") |
| 449 | 449 | ||
| 450 | ;; CSS Text Module Level 3 | 450 | ;; CSS Text Module Level 3 |
| 451 | ;; (http://www.w3.org/TR/css3-text/#property-index) | 451 | ;; (https://www.w3.org/TR/css3-text/#property-index) |
| 452 | ("hanging-punctuation" "none" "first" "force-end" "allow-end" | 452 | ("hanging-punctuation" "none" "first" "force-end" "allow-end" |
| 453 | "last") | 453 | "last") |
| 454 | ("hyphens" "none" "manual" "auto") | 454 | ("hyphens" "none" "manual" "auto") |
| @@ -470,7 +470,7 @@ | |||
| 470 | ("word-wrap" "normal" "break-word") | 470 | ("word-wrap" "normal" "break-word") |
| 471 | 471 | ||
| 472 | ;; CSS Transforms Module Level 1 | 472 | ;; CSS Transforms Module Level 1 |
| 473 | ;; (http://www.w3.org/TR/css3-2d-transforms/#property-index) | 473 | ;; (https://www.w3.org/TR/css3-2d-transforms/#property-index) |
| 474 | ("backface-visibility" "visible" "hidden") | 474 | ("backface-visibility" "visible" "hidden") |
| 475 | ("perspective" "none" length) | 475 | ("perspective" "none" length) |
| 476 | ("perspective-origin" "left" "center" "right" "top" "bottom" | 476 | ("perspective-origin" "left" "center" "right" "top" "bottom" |
| @@ -481,7 +481,7 @@ | |||
| 481 | ("transform-style" "flat" "preserve-3d") | 481 | ("transform-style" "flat" "preserve-3d") |
| 482 | 482 | ||
| 483 | ;; CSS Transitions | 483 | ;; CSS Transitions |
| 484 | ;; (http://www.w3.org/TR/css3-transitions/#property-index) | 484 | ;; (https://www.w3.org/TR/css3-transitions/#property-index) |
| 485 | ("transition" single-transition) | 485 | ("transition" single-transition) |
| 486 | ("transition-delay" time) | 486 | ("transition-delay" time) |
| 487 | ("transition-duration" time) | 487 | ("transition-duration" time) |
| @@ -503,7 +503,7 @@ | |||
| 503 | ("writing-mode" "horizontal-tb" "vertical-rl" "vertical-lr") | 503 | ("writing-mode" "horizontal-tb" "vertical-rl" "vertical-lr") |
| 504 | 504 | ||
| 505 | ;; Filter Effects Module Level 1 | 505 | ;; Filter Effects Module Level 1 |
| 506 | ;; (http://www.w3.org/TR/filter-effects/#property-index) | 506 | ;; (https://www.w3.org/TR/filter-effects/#property-index) |
| 507 | ("color-interpolation-filters" "auto" "sRGB" "linearRGB") | 507 | ("color-interpolation-filters" "auto" "sRGB" "linearRGB") |
| 508 | ("filter" "none" filter-function-list) | 508 | ("filter" "none" filter-function-list) |
| 509 | ("flood-color" color) | 509 | ("flood-color" color) |
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index e862e354b5c..65702d081f1 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el | |||
| @@ -524,7 +524,7 @@ invoking `ispell-change-dictionary'. | |||
| 524 | 524 | ||
| 525 | Consider using the `ispell-parser' to check your text. For instance | 525 | Consider using the `ispell-parser' to check your text. For instance |
| 526 | consider adding: | 526 | consider adding: |
| 527 | \(add-hook \\='tex-mode-hook (function (lambda () (setq ispell-parser \\='tex)))) | 527 | \(add-hook \\='tex-mode-hook (lambda () (setq ispell-parser \\='tex))) |
| 528 | in your init file. | 528 | in your init file. |
| 529 | 529 | ||
| 530 | \\[flyspell-region] checks all words inside a region. | 530 | \\[flyspell-region] checks all words inside a region. |
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index a99dfe40670..05a4bd058c4 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el | |||
| @@ -3937,7 +3937,7 @@ in your init file: | |||
| 3937 | 3937 | ||
| 3938 | You can bind this to the key C-c i in GNUS or mail by adding to | 3938 | You can bind this to the key C-c i in GNUS or mail by adding to |
| 3939 | `news-reply-mode-hook' or `mail-mode-hook' the following lambda expression: | 3939 | `news-reply-mode-hook' or `mail-mode-hook' the following lambda expression: |
| 3940 | (function (lambda () (local-set-key \"\\C-ci\" \\='ispell-message)))" | 3940 | (lambda () (local-set-key \"\\C-ci\" \\='ispell-message))" |
| 3941 | (interactive) | 3941 | (interactive) |
| 3942 | (save-excursion | 3942 | (save-excursion |
| 3943 | (goto-char (point-min)) | 3943 | (goto-char (point-min)) |
diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el index c7bf687a9e1..25aa58046f4 100644 --- a/lisp/textmodes/table.el +++ b/lisp/textmodes/table.el | |||
| @@ -339,8 +339,8 @@ | |||
| 339 | ;; When using `table-cell-map-hook' do not use `local-set-key'. | 339 | ;; When using `table-cell-map-hook' do not use `local-set-key'. |
| 340 | ;; | 340 | ;; |
| 341 | ;; (add-hook 'table-cell-map-hook | 341 | ;; (add-hook 'table-cell-map-hook |
| 342 | ;; (function (lambda () | 342 | ;; (lambda () |
| 343 | ;; (local-set-key [<key sequence>] '<function>)))) | 343 | ;; (local-set-key [<key sequence>] '<function>))) |
| 344 | ;; | 344 | ;; |
| 345 | ;; Adding the above to your init file is a common way to customize a | 345 | ;; Adding the above to your init file is a common way to customize a |
| 346 | ;; mode specific keymap. However it does not work for this package. | 346 | ;; mode specific keymap. However it does not work for this package. |
| @@ -349,8 +349,8 @@ | |||
| 349 | ;; explicitly. The correct way of achieving above task is: | 349 | ;; explicitly. The correct way of achieving above task is: |
| 350 | ;; | 350 | ;; |
| 351 | ;; (add-hook 'table-cell-map-hook | 351 | ;; (add-hook 'table-cell-map-hook |
| 352 | ;; (function (lambda () | 352 | ;; (lambda () |
| 353 | ;; (define-key table-cell-map [<key sequence>] '<function>)))) | 353 | ;; (define-key table-cell-map [<key sequence>] '<function>))) |
| 354 | ;; | 354 | ;; |
| 355 | ;; ----- | 355 | ;; ----- |
| 356 | ;; Menu: | 356 | ;; Menu: |
| @@ -2929,7 +2929,7 @@ buffer, and leaves the previous contents of the buffer untouched. | |||
| 2929 | References used for this implementation: | 2929 | References used for this implementation: |
| 2930 | 2930 | ||
| 2931 | HTML: | 2931 | HTML: |
| 2932 | URL `http://www.w3.org' | 2932 | URL `https://www.w3.org' |
| 2933 | 2933 | ||
| 2934 | LaTeX: | 2934 | LaTeX: |
| 2935 | URL `http://www.maths.tcd.ie/~dwilkins/LaTeXPrimer/Tables.html' | 2935 | URL `http://www.maths.tcd.ie/~dwilkins/LaTeXPrimer/Tables.html' |
| @@ -3503,9 +3503,9 @@ column must consists from cells of same width." | |||
| 3503 | (let ((cell-list (table--vertical-cell-list 'top-to-bottom))) | 3503 | (let ((cell-list (table--vertical-cell-list 'top-to-bottom))) |
| 3504 | (unless | 3504 | (unless |
| 3505 | (and (table--uniform-list-p | 3505 | (and (table--uniform-list-p |
| 3506 | (mapcar (function (lambda (cell) (car (table--get-coordinate (car cell))))) cell-list)) | 3506 | (mapcar (lambda (cell) (car (table--get-coordinate (car cell)))) cell-list)) |
| 3507 | (table--uniform-list-p | 3507 | (table--uniform-list-p |
| 3508 | (mapcar (function (lambda (cell) (car (table--get-coordinate (cdr cell))))) cell-list))) | 3508 | (mapcar (lambda (cell) (car (table--get-coordinate (cdr cell)))) cell-list))) |
| 3509 | (error "Cells in this column are not in uniform width")) | 3509 | (error "Cells in this column are not in uniform width")) |
| 3510 | (unless lu-coord | 3510 | (unless lu-coord |
| 3511 | (setq lu-coord (table--get-coordinate (caar cell-list)))) | 3511 | (setq lu-coord (table--get-coordinate (caar cell-list)))) |
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index a905d148009..11db25cb7a2 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el | |||
| @@ -422,7 +422,7 @@ An alternative value is \" . \", if you use a font with a narrow period." | |||
| 422 | (push (cons "--" (match-beginning 0)) menu)) | 422 | (push (cons "--" (match-beginning 0)) menu)) |
| 423 | 423 | ||
| 424 | ;; Sort in increasing buffer position order. | 424 | ;; Sort in increasing buffer position order. |
| 425 | (sort menu (function (lambda (a b) (< (cdr a) (cdr b)))))))) | 425 | (sort menu (lambda (a b) (< (cdr a) (cdr b))))))) |
| 426 | 426 | ||
| 427 | ;;;; | 427 | ;;;; |
| 428 | ;;;; Outline support | 428 | ;;;; Outline support |
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 3c2d766ffb1..558a3fd7368 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el | |||
| @@ -278,7 +278,7 @@ If nil, construct the regexp from `thing-at-point-uri-schemes'.") | |||
| 278 | "Regexp matching a URI without a scheme component.") | 278 | "Regexp matching a URI without a scheme component.") |
| 279 | 279 | ||
| 280 | (defvar thing-at-point-uri-schemes | 280 | (defvar thing-at-point-uri-schemes |
| 281 | ;; Officials from http://www.iana.org/assignments/uri-schemes.html | 281 | ;; Officials from https://www.iana.org/assignments/uri-schemes.html |
| 282 | '("aaa://" "about:" "acap://" "apt:" "bzr://" "bzr+ssh://" | 282 | '("aaa://" "about:" "acap://" "apt:" "bzr://" "bzr+ssh://" |
| 283 | "attachment:/" "chrome://" "cid:" "content://" "crid://" "cvs://" | 283 | "attachment:/" "chrome://" "cid:" "content://" "crid://" "cvs://" |
| 284 | "data:" "dav:" "dict://" "doi:" "dns:" "dtn:" "feed:" "file:/" | 284 | "data:" "dav:" "dict://" "doi:" "dns:" "dtn:" "feed:" "file:/" |
diff --git a/lisp/thumbs.el b/lisp/thumbs.el index dd259ec1ff6..3aa7ff0836b 100644 --- a/lisp/thumbs.el +++ b/lisp/thumbs.el | |||
| @@ -30,7 +30,7 @@ | |||
| 30 | ;; your images, use image-dired.el | 30 | ;; your images, use image-dired.el |
| 31 | ;; | 31 | ;; |
| 32 | ;; The 'convert' program from 'ImageMagick' | 32 | ;; The 'convert' program from 'ImageMagick' |
| 33 | ;; [URL:http://www.imagemagick.org/] is required. | 33 | ;; [URL:https://www.imagemagick.org/] is required. |
| 34 | ;; | 34 | ;; |
| 35 | ;; Thanks: Alex Schroeder <alex@gnu.org> for maintaining the package at some | 35 | ;; Thanks: Alex Schroeder <alex@gnu.org> for maintaining the package at some |
| 36 | ;; time. The peoples at #emacs@freenode.net for numerous help. RMS | 36 | ;; time. The peoples at #emacs@freenode.net for numerous help. RMS |
diff --git a/lisp/url/ChangeLog.1 b/lisp/url/ChangeLog.1 index cf168ebf470..0309440defa 100644 --- a/lisp/url/ChangeLog.1 +++ b/lisp/url/ChangeLog.1 | |||
| @@ -449,7 +449,7 @@ | |||
| 449 | 449 | ||
| 450 | 2012-04-10 William Xu <william.xwl@gmail.com> (tiny change) | 450 | 2012-04-10 William Xu <william.xwl@gmail.com> (tiny change) |
| 451 | 451 | ||
| 452 | * url.el (url-retrieve-internal): Hexify multibye URL string first | 452 | * url.el (url-retrieve-internal): Hexify multibyte URL string first |
| 453 | when necessary (bug#7017). | 453 | when necessary (bug#7017). |
| 454 | 454 | ||
| 455 | 2012-04-10 Lars Magne Ingebrigtsen <larsi@gnus.org> | 455 | 2012-04-10 Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el index f2044617b94..8f39b5ae010 100644 --- a/lisp/url/url-auth.el +++ b/lisp/url/url-auth.el | |||
| @@ -39,7 +39,7 @@ | |||
| 39 | ;;; ------------------------ | 39 | ;;; ------------------------ |
| 40 | ;;; This implements the BASIC authorization type. See the online | 40 | ;;; This implements the BASIC authorization type. See the online |
| 41 | ;;; documentation at | 41 | ;;; documentation at |
| 42 | ;;; http://www.w3.org/hypertext/WWW/AccessAuthorization/Basic.html | 42 | ;;; https://www.w3.org/hypertext/WWW/AccessAuthorization/Basic.html |
| 43 | ;;; for the complete documentation on this type. | 43 | ;;; for the complete documentation on this type. |
| 44 | ;;; | 44 | ;;; |
| 45 | ;;; This is very insecure, but it works as a proof-of-concept | 45 | ;;; This is very insecure, but it works as a proof-of-concept |
diff --git a/lisp/url/url-cache.el b/lisp/url/url-cache.el index a67e5dcd125..056ad1e0188 100644 --- a/lisp/url/url-cache.el +++ b/lisp/url/url-cache.el | |||
| @@ -125,8 +125,8 @@ The actual return value is the last modification time of the cache file." | |||
| 125 | 125 | ||
| 126 | (setq fname (and fname | 126 | (setq fname (and fname |
| 127 | (mapconcat | 127 | (mapconcat |
| 128 | (function (lambda (x) | 128 | (lambda (x) |
| 129 | (if (= x ?~) "" (char-to-string x)))) | 129 | (if (= x ?~) "" (char-to-string x))) |
| 130 | fname "")) | 130 | fname "")) |
| 131 | fname (cond | 131 | fname (cond |
| 132 | ((null fname) nil) | 132 | ((null fname) nil) |
diff --git a/lisp/url/url-irc.el b/lisp/url/url-irc.el index 03a3b37f398..9647df1c13c 100644 --- a/lisp/url/url-irc.el +++ b/lisp/url/url-irc.el | |||
| @@ -22,7 +22,7 @@ | |||
| 22 | ;;; Commentary: | 22 | ;;; Commentary: |
| 23 | 23 | ||
| 24 | ;; IRC URLs are defined in | 24 | ;; IRC URLs are defined in |
| 25 | ;; http://www.w3.org/Addressing/draft-mirashi-url-irc-01.txt | 25 | ;; https://www.w3.org/Addressing/draft-mirashi-url-irc-01.txt |
| 26 | 26 | ||
| 27 | ;;; Code: | 27 | ;;; Code: |
| 28 | 28 | ||
diff --git a/lisp/url/url.el b/lisp/url/url.el index 321e79c019f..33a5ebcdccc 100644 --- a/lisp/url/url.el +++ b/lisp/url/url.el | |||
| @@ -24,7 +24,7 @@ | |||
| 24 | 24 | ||
| 25 | ;;; Commentary: | 25 | ;;; Commentary: |
| 26 | 26 | ||
| 27 | ;; Registered URI schemes: http://www.iana.org/assignments/uri-schemes | 27 | ;; Registered URI schemes: https://www.iana.org/assignments/uri-schemes |
| 28 | 28 | ||
| 29 | ;;; Code: | 29 | ;;; Code: |
| 30 | 30 | ||
diff --git a/lisp/vc/pcvs.el b/lisp/vc/pcvs.el index cb0494ee91c..1e4343cc6be 100644 --- a/lisp/vc/pcvs.el +++ b/lisp/vc/pcvs.el | |||
| @@ -1624,8 +1624,7 @@ With prefix argument, prompt for cvs flags." | |||
| 1624 | (defun-cvs-mode (cvs-mode-diff . DOUBLE) (flags) | 1624 | (defun-cvs-mode (cvs-mode-diff . DOUBLE) (flags) |
| 1625 | "Diff the selected files against the repository. | 1625 | "Diff the selected files against the repository. |
| 1626 | This command compares the files in your working area against the | 1626 | This command compares the files in your working area against the |
| 1627 | revision which they are based upon. | 1627 | revision which they are based upon." |
| 1628 | See also `cvs-diff-ignore-marks'." | ||
| 1629 | (interactive | 1628 | (interactive |
| 1630 | (list (cvs-add-branch-prefix | 1629 | (list (cvs-add-branch-prefix |
| 1631 | (cvs-add-secondary-branch-prefix | 1630 | (cvs-add-secondary-branch-prefix |
diff --git a/lisp/wdired.el b/lisp/wdired.el index 6defbf8bc86..40f4cd97190 100644 --- a/lisp/wdired.el +++ b/lisp/wdired.el | |||
| @@ -344,7 +344,7 @@ non-nil means return old filename." | |||
| 344 | ;; Don't unquote the old name, it wasn't quoted in the first place | 344 | ;; Don't unquote the old name, it wasn't quoted in the first place |
| 345 | (and file (setq file (wdired-normalize-filename file (not old))))) | 345 | (and file (setq file (wdired-normalize-filename file (not old))))) |
| 346 | (if (or no-dir old) | 346 | (if (or no-dir old) |
| 347 | file | 347 | (if no-dir (file-relative-name file) file) |
| 348 | (and file (> (length file) 0) | 348 | (and file (> (length file) 0) |
| 349 | (concat (dired-current-directory) file)))))) | 349 | (concat (dired-current-directory) file)))))) |
| 350 | 350 | ||
| @@ -913,9 +913,9 @@ Like original function but it skips read-only words." | |||
| 913 | (if (= (length perms-new) 10) | 913 | (if (= (length perms-new) 10) |
| 914 | (progn | 914 | (progn |
| 915 | (setq perm-tmp | 915 | (setq perm-tmp |
| 916 | (int-to-string (wdired-perms-to-number perms-new))) | 916 | (string-to-number |
| 917 | (unless (equal 0 (process-file dired-chmod-program | 917 | (int-to-string (wdired-perms-to-number perms-new)) 8)) |
| 918 | nil nil nil perm-tmp filename)) | 918 | (unless (set-file-modes filename perm-tmp) |
| 919 | (setq errors (1+ errors)) | 919 | (setq errors (1+ errors)) |
| 920 | (dired-log "%s %s `%s' failed\n\n" | 920 | (dired-log "%s %s `%s' failed\n\n" |
| 921 | dired-chmod-program perm-tmp filename))) | 921 | dired-chmod-program perm-tmp filename))) |
diff --git a/lisp/whitespace.el b/lisp/whitespace.el index 2e05d93bf59..669057811a5 100644 --- a/lisp/whitespace.el +++ b/lisp/whitespace.el | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | ;; Author: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> | 5 | ;; Author: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> |
| 6 | ;; Keywords: data, wp | 6 | ;; Keywords: data, wp |
| 7 | ;; Version: 13.2.2 | 7 | ;; Version: 13.2.2 |
| 8 | ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre | 8 | ;; X-URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| 11 | 11 | ||
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 0a2ddb0ea1d..6568cd2c8f1 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el | |||
| @@ -203,27 +203,100 @@ nil means read a single character." | |||
| 203 | :group 'widgets | 203 | :group 'widgets |
| 204 | :type 'boolean) | 204 | :type 'boolean) |
| 205 | 205 | ||
| 206 | (defun widget--simplify-menu (extended) | ||
| 207 | "Convert the EXTENDED menu into a menu composed of simple menu items. | ||
| 208 | |||
| 209 | Each item in the simplified menu is of the form (ITEM-STRING . REAL-BINDING), | ||
| 210 | where both elements are taken from the EXTENDED MENU. ITEM-STRING is the | ||
| 211 | correspondent ITEM-NAME in the menu-item entry: | ||
| 212 | (menu-item ITEM-NAME REAL-BINDING . ITEM-PROPERTY-LIST), and REAL-BINDING is | ||
| 213 | the symbol in the key vector, as in `define-key'. | ||
| 214 | (See `(elisp)Defining Menus' for more information.) | ||
| 215 | |||
| 216 | Only visible, enabled and meaningful menu items make their way into | ||
| 217 | the returned simplified menu. That is: | ||
| 218 | For the menu item to be visible, it has to either lack a :visible form in its | ||
| 219 | item-property-list, or the :visible form has to evaluate to a non-nil value. | ||
| 220 | For the menu item to be enabled, it has to either lack a :enabled form in its | ||
| 221 | item-property-list, or the :enable form has to evaluate to a non-nil value. | ||
| 222 | Additionally, if the menu item is a radio button, then its selected form has | ||
| 223 | to evaluate to nil for the menu item to be meaningful." | ||
| 224 | (let (simplified) | ||
| 225 | (map-keymap (lambda (ev def) | ||
| 226 | (when (and (eq (nth 0 def) 'menu-item) | ||
| 227 | (nth 2 def)) ; Only menu-items with a real binding. | ||
| 228 | ;; Loop through the item-property-list, looking for | ||
| 229 | ;; :visible, :enable (or :active) and :button properties. | ||
| 230 | (let ((plist (nthcdr 3 def)) | ||
| 231 | (enable t) ; Enabled by default. | ||
| 232 | (visible t) ; Visible by default. | ||
| 233 | selected keyword value) | ||
| 234 | (while (and plist (cdr plist) | ||
| 235 | (keywordp (setq keyword (car plist)))) | ||
| 236 | (setq value (cadr plist)) | ||
| 237 | (cond ((memq keyword '(:visible :included)) | ||
| 238 | (setq visible value)) | ||
| 239 | ((memq keyword '(:enable :active)) | ||
| 240 | (setq enable value)) | ||
| 241 | ((and (eq keyword :button) | ||
| 242 | (eq (car value) :radio)) | ||
| 243 | (setq selected (cdr value)))) | ||
| 244 | (setq plist (cddr plist))) | ||
| 245 | (when (and (eval visible) | ||
| 246 | (eval enable) | ||
| 247 | (or (not selected) | ||
| 248 | (not (eval selected)))) | ||
| 249 | (push (cons (nth 1 def) ev) simplified))))) | ||
| 250 | extended) | ||
| 251 | (reverse simplified))) | ||
| 252 | |||
| 206 | (defun widget-choose (title items &optional event) | 253 | (defun widget-choose (title items &optional event) |
| 207 | "Choose an item from a list. | 254 | "Choose an item from a list. |
| 208 | 255 | ||
| 209 | First argument TITLE is the name of the list. | 256 | First argument TITLE is the name of the list. |
| 210 | Second argument ITEMS is a list whose members are either | 257 | Second argument ITEMS should be a menu, either with simple item definitions, |
| 258 | or with extended item definitions. | ||
| 259 | When ITEMS has simple item definitions, it is a list whose members are either | ||
| 211 | (NAME . VALUE), to indicate selectable items, or just strings to | 260 | (NAME . VALUE), to indicate selectable items, or just strings to |
| 212 | indicate unselectable items. | 261 | indicate unselectable items. |
| 262 | |||
| 263 | When ITEMS is a menu that uses an extended format, then ITEMS should be a | ||
| 264 | keymap, and each binding should look like this: | ||
| 265 | (menu-item ITEM-NAME REAL-BINDING . ITEM-PROPERTY-LIST) | ||
| 266 | or like this: (menu-item ITEM-NAME) to indicate a non-selectable item. | ||
| 267 | REAL-BINDING should be a symbol, and should not be a keymap, because submenus | ||
| 268 | are not supported. | ||
| 269 | |||
| 213 | Optional third argument EVENT is an input event. | 270 | Optional third argument EVENT is an input event. |
| 214 | 271 | ||
| 215 | The user is asked to choose between each NAME from the items alist, | 272 | If EVENT is a mouse event, and the number of elements in items is less than |
| 216 | and the VALUE of the chosen element will be returned. If EVENT is a | ||
| 217 | mouse event, and the number of elements in items is less than | ||
| 218 | `widget-menu-max-size', a popup menu will be used, otherwise the | 273 | `widget-menu-max-size', a popup menu will be used, otherwise the |
| 219 | minibuffer." | 274 | minibuffer. |
| 275 | |||
| 276 | The user is asked to choose between each NAME from ITEMS. | ||
| 277 | If ITEMS has simple item definitions, then this function returns the VALUE of | ||
| 278 | the chosen element. If ITEMS is a keymap, then the return value is the symbol | ||
| 279 | in the key vector, as in the argument of `define-key'." | ||
| 220 | (cond ((and (< (length items) widget-menu-max-size) | 280 | (cond ((and (< (length items) widget-menu-max-size) |
| 221 | event (display-popup-menus-p)) | 281 | event (display-popup-menus-p)) |
| 222 | ;; Mouse click. | 282 | ;; Mouse click. |
| 223 | (x-popup-menu event | 283 | (if (keymapp items) |
| 224 | (list title (cons "" items)))) | 284 | ;; Modify the keymap prompt, and then restore the old one, if any. |
| 285 | (let ((prompt (keymap-prompt items))) | ||
| 286 | (unwind-protect | ||
| 287 | (progn | ||
| 288 | (setq items (delete prompt items)) | ||
| 289 | (push title (cdr items)) | ||
| 290 | ;; Return just the first element of the list of events. | ||
| 291 | (car (x-popup-menu event items))) | ||
| 292 | (setq items (delete title items)) | ||
| 293 | (when prompt | ||
| 294 | (push prompt (cdr items))))) | ||
| 295 | (x-popup-menu event (list title (cons "" items))))) | ||
| 225 | ((or widget-menu-minibuffer-flag | 296 | ((or widget-menu-minibuffer-flag |
| 226 | (> (length items) widget-menu-max-shortcuts)) | 297 | (> (length items) widget-menu-max-shortcuts)) |
| 298 | (when (keymapp items) | ||
| 299 | (setq items (widget--simplify-menu items))) | ||
| 227 | ;; Read the choice of name from the minibuffer. | 300 | ;; Read the choice of name from the minibuffer. |
| 228 | (setq items (cl-remove-if 'stringp items)) | 301 | (setq items (cl-remove-if 'stringp items)) |
| 229 | (let ((val (completing-read (concat title ": ") items nil t))) | 302 | (let ((val (completing-read (concat title ": ") items nil t))) |
| @@ -233,6 +306,8 @@ minibuffer." | |||
| 233 | (setq val try)) | 306 | (setq val try)) |
| 234 | (cdr (assoc val items)))))) | 307 | (cdr (assoc val items)))))) |
| 235 | (t | 308 | (t |
| 309 | (when (keymapp items) | ||
| 310 | (setq items (widget--simplify-menu items))) | ||
| 236 | ;; Construct a menu of the choices | 311 | ;; Construct a menu of the choices |
| 237 | ;; and then use it for prompting for a single character. | 312 | ;; and then use it for prompting for a single character. |
| 238 | (let* ((next-digit ?0) | 313 | (let* ((next-digit ?0) |
diff --git a/lisp/window.el b/lisp/window.el index 9aca94d502a..1fcfffcb53d 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -5480,7 +5480,7 @@ frame. The selected window is not changed by this function." | |||
| 5480 | (set-window-parameter | 5480 | (set-window-parameter |
| 5481 | (window-parent new) 'window-side window-side)))) | 5481 | (window-parent new) 'window-side window-side)))) |
| 5482 | ((eq window-combination-resize 'atom) | 5482 | ((eq window-combination-resize 'atom) |
| 5483 | ;; Make sure `window--check-frame' won't destroy an existing | 5483 | ;; Make sure `window--check' won't destroy an existing |
| 5484 | ;; atomic window in case the new window gets nested inside. | 5484 | ;; atomic window in case the new window gets nested inside. |
| 5485 | (unless (window-parameter window 'window-atom) | 5485 | (unless (window-parameter window 'window-atom) |
| 5486 | (set-window-parameter window 'window-atom t)) | 5486 | (set-window-parameter window 'window-atom t)) |
| @@ -7712,7 +7712,7 @@ indirectly called by the latter." | |||
| 7712 | (with-current-buffer (window-buffer window) | 7712 | (with-current-buffer (window-buffer window) |
| 7713 | (cond ((memq major-mode allowed-modes) | 7713 | (cond ((memq major-mode allowed-modes) |
| 7714 | 'same) | 7714 | 'same) |
| 7715 | ((derived-mode-p allowed-modes) | 7715 | ((apply #'derived-mode-p allowed-modes) |
| 7716 | 'derived))))) | 7716 | 'derived))))) |
| 7717 | (when (and mode? | 7717 | (when (and mode? |
| 7718 | (not (and inhibit-same-window-p | 7718 | (not (and inhibit-same-window-p |
diff --git a/lisp/xml.el b/lisp/xml.el index 236d9cbe6c0..c96ff80446a 100644 --- a/lisp/xml.el +++ b/lisp/xml.el | |||
| @@ -655,7 +655,7 @@ Leave point at the first non-blank character after the tag." | |||
| 655 | (setq name (xml-maybe-do-ns (match-string-no-properties 1) nil xml-ns)) | 655 | (setq name (xml-maybe-do-ns (match-string-no-properties 1) nil xml-ns)) |
| 656 | (goto-char end-pos) | 656 | (goto-char end-pos) |
| 657 | 657 | ||
| 658 | ;; See also: http://www.w3.org/TR/2000/REC-xml-20001006#AVNormalize | 658 | ;; See also: https://www.w3.org/TR/2000/REC-xml-20001006#AVNormalize |
| 659 | 659 | ||
| 660 | ;; Do we have a string between quotes (or double-quotes), | 660 | ;; Do we have a string between quotes (or double-quotes), |
| 661 | ;; or a simple word ? | 661 | ;; or a simple word ? |