diff options
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 @@ (reftex-words-to-typekey-alist, reftex-key-to-index-macro-alist) (reftex-query-index-macro-prompt, reftex-query-index-macro-help) (reftex-no-follow-message, reftex-no-info-message): Likewise. - (reftex-mode): Define systax table for bibtex parsing. + (reftex-mode): Define syntax table for bibtex parsing. (reftex-syntax-table-for-bib): Syntax table for bibtex parsing. * textmodes/reftex-cite.el (reftex-format-names): %a as name @@ -15993,7 +15993,7 @@ * progmodes/cc-vars.el (c-offsets-alist): A more sane default for `inexpr-statement'. This is not compatible, though. - I think the benefit of a good default style outweights that in + I think the benefit of a good default style outweighs that in this case. Besides, `inexpr-statement' is not very common. 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 @@ 2007-12-30 Michael Albinus <michael.albinus@gmx.de> * net/dbus.el (dbus-name-owner-changed-handler): Make the function - resistent towards wrong parameters. + resistant towards wrong parameters. (dbus-handle-event): Propagate D-Bus errors only in the debug case. 2007-12-30 Richard Stallman <rms@gnu.org> @@ -5001,7 +5001,7 @@ * vc.el (vc-dired-ignorable-p, vc-dired-hook): Speed optimization; use completion-ignored-extensions to detect files that should be - ignorted in VC-Dired listings, heading off lots of expensive calls + ignored in VC-Dired listings, heading off lots of expensive calls to (vc-state). * 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 @@ * menu-bar.el (menu-set-font): New function. Bind "Set Default Font" menu item to it. Apply selected font to all frames, and - make it savable. + make it saveable. (menu-bar-options-save): Save `default' font if changed. 2008-06-10 Stefan Monnier <monnier@iro.umontreal.ca> @@ -13625,7 +13625,7 @@ (completion-emacs22-try-completion): Place cursor after the /, as was done in Emacs-22's minibuffer-complete-word. Fix bug reported by David Hansen <david.hansen@gmx.net>. - (completion-emacs22-try-completion): Merge all mergable text rather + (completion-emacs22-try-completion): Merge all mergeable text rather than just /. (completion-pcm--delim-wild-regex): New var. (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 @@ 2010-12-29 Karl Fogel <kfogel@red-bean.com> * saveplace.el (save-place-alist-to-file): Save list sorted and - pretty-printed, so that it is mergable by line-based text merging, + pretty-printed, so that it is mergeable by line-based text merging, as suggested by Iain Dalton <iain.dalton {_AT_} gmail.com>. 2010-12-28 Ken Manheimer <ken.manheimer@gmail.com> @@ -5135,10 +5135,10 @@ * progmodes/verilog-mode.el (verilog-directive-re): Make this variable auto-built for efficiency of execution and updating. - (verilog-extended-complete-re): Support 'pure' fucntion & task + (verilog-extended-complete-re): Support 'pure' function & task declarations (these have no bodies). (verilog-beg-of-statement): General cleanup to enable support of - 'pure' fucntion & task declarations (these have no bodies). + 'pure' function & task declarations (these have no bodies). These efforts together fix Verilog bug210 from veripool; which was also noticed by Steve Pearlmutter. (verilog-directive-re, verilog-directive-begin, verilog-indent-re) @@ -10689,7 +10689,7 @@ 2010-05-13 AgustÃn MartÃn <agustin.martin@hispalinux.es> * textmodes/ispell.el (ispell-init-process): Do not kill ispell - process everytime when spellchecking from the minibuffer (bug#6143). + process every time when spellchecking from the minibuffer (bug#6143). 2010-05-13 Stefan Monnier <monnier@iro.umontreal.ca> @@ -12100,7 +12100,7 @@ 2010-03-31 Juri Linkov <juri@jurta.org> * image.el (image-animated-p): Use `image-metadata' instead of - `image-extension-data'. Get GIF extenstion data from metadata + `image-extension-data'. Get GIF extension data from metadata property `extension-data'. 2010-03-31 Stefan Monnier <monnier@iro.umontreal.ca> @@ -14907,7 +14907,7 @@ Use complete-with-action rather than pascal-completion-response and let it apply the predicate as well. (pascal-goto-defun): Change buffer before calling pascal-comp-defun - when neded. + when needed. 2009-12-02 Kenichi Handa <handa@m17n.org> @@ -18684,7 +18684,7 @@ 2009-09-24 Vinicius Jose Latorre <viniciusjl@ig.com.br> * whitespace.el: Does not highlight trailing spaces While point is - at end of line. Does not highligt spaces at beginning of buffer + at end of line. Does not highlight spaces at beginning of buffer while point is at beginning of buffer. Does not highlight spaces at end of buffer while point is at end of buffer. (Bug#4177) 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 @@ * progmodes/sql.el: Use cl-lib and lexical-binding; various cleanup. (sql-signum): Remove. Use `cl-signum' instead. - (sql-read-passwd): Remove; use read-passwd instread. + (sql-read-passwd): Remove; use read-passwd instead. (sql-get-login-ext): Use read-string. (sql-get-login): Use dolist and pcase. (sql--completion-table): Rename from sql-try-completion. @@ -7833,7 +7833,7 @@ the form for POSITION argument. * term/x-win.el (x-menu-bar-open): - Use the value returend from (posn-at-point) as position + Use the value returned from (posn-at-point) as position passed to `popup-menu'. 2012-08-09 Jay Belanger <jay.p.belanger@gmail.com> @@ -11992,11 +11992,11 @@ * progmodes/verilog-mode.el (verilog-pretty-expr): Don't line up assignment with tests in ifs and for loops. (verilog-extended-complete-re, verilog-complete-reg): Change so - that DPI inport functions don't look like function declarations. + that DPI import functions don't look like function declarations. (verilog-pretty-expr): Don't line up assignment operations to the test and increment in if and for loops (verilog-extended-complete-re, verilog-complete-reg): Change so - that DPI inport functions don't look like function declarations. + that DPI import functions don't look like function declarations. 2012-05-03 Kenichi Handa <handa@m17n.org> @@ -15918,7 +15918,7 @@ Rework verilog-pretty-expr to handle new assignment operators in system verilog, such as += *= and the like. (verilog-assignment-operator-re): Regular expression to find the - assigment operator in a verilog assignment. + assignment operator in a verilog assignment. (verilog-assignment-operation-re): Regular expression to find an assignment statement for pretty-expr. (verilog-in-attribute-p): Query returns true if point is in an @@ -20442,7 +20442,7 @@ 2011-07-03 Lars Magne Ingebrigtsen <larsi@gnus.org> * net/network-stream.el (open-network-stream): Use the - :end-of-capability command thoughout. + :end-of-capability command throughout. 2011-07-03 Wolfgang Jenkner <wjenkner@inode.at> (tiny change) @@ -21496,7 +21496,7 @@ * net/network-stream.el (open-network-stream): Add the keyword :always-query-capabilities for the case where you want to force a `plain' network connection, but the protocol still requires the - capabilitiy command (i.e., SMTP and EHLO). + capability command (i.e., SMTP and EHLO). * subr.el (process-live-p): Rename from `process-alive-p' for consistency with other `-live-p' functions. @@ -24707,7 +24707,7 @@ * abbrev.el (abbrev-edit-save-to-file, abbrev-edit-save-buffer): New commands. (edit-abbrevs-map): Bind them here. - (write-abbrev-file): New optinal arg VERBOSE. (Bug#5937) + (write-abbrev-file): New optional arg VERBOSE. (Bug#5937) 2011-03-29 Ken Manheimer <ken.manheimer@gmail.com> 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 @@ 2014-07-28 Glenn Morris <rgm@gnu.org> * files.el (toggle-read-only): Re-add basic doc-string. - * vc/vc-hooks.el (vc-toggle-read-only): Tweak obsolescence mesage. + * vc/vc-hooks.el (vc-toggle-read-only): Tweak obsolescence message. * progmodes/prolog.el (prolog-mode-keybindings-edit): Replace missing `switch-to-prolog' with `run-prolog'. @@ -14399,7 +14399,7 @@ 2014-01-05 Martin Rudalics <rudalics@gmx.at> - * window.el (balance-windows): Add mising t to fix Bug#16351. + * window.el (balance-windows): Add missing t to fix Bug#16351. 2014-01-05 Lars Magne Ingebrigtsen <larsi@gnus.org> @@ -15098,7 +15098,7 @@ 2013-12-18 Juri Linkov <juri@jurta.org> * help-mode.el (help-mode-map): Bind "l" to help-go-back, - and "r" to help-go-forward for compatibity with Info. (Bug#16178) + and "r" to help-go-forward for compatibility with Info. (Bug#16178) 2013-12-18 Leo Liu <sdl.web@gmail.com> @@ -15729,7 +15729,7 @@ (flymake-get-temp-dir): Remove. (flymake-popup-menu, flymake-nop, flymake-make-xemacs-menu) (flymake-current-row, flymake-selected-frame) - (flymake-get-point-pixel-pos): Remove xemacs compatibity and + (flymake-get-point-pixel-pos): Remove xemacs compatibility and related functions. (Bug#16077) 2013-12-07 Bozhidar Batsov <bozhidar@batsov.com> @@ -16822,7 +16822,7 @@ * emacs-lisp/byte-run.el (defmacro, defun): Set their `indent' property. * electric.el (electric-indent-post-self-insert-function): - Only delete trailing whitepsace if it is indeed trailing (bug#15767). + Only delete trailing whitespace if it is indeed trailing (bug#15767). 2013-11-04 Helmut Eller <eller.helmut@gmail.com> @@ -17770,7 +17770,7 @@ 2013-10-13 Kenichi Handa <handa@gnu.org> * international/mule-cmds.el (select-safe-coding-system): Remove a - superfluous condition in chekcing whether a coding system is safe + superfluous condition in checking whether a coding system is safe or not. 2013-10-13 Oleh Krehel <ohwoeowho@gmail.com> @@ -23495,7 +23495,7 @@ * progmodes/cc-defs.el (c-set-region-active, c-beginning-of-defun-1) * progmodes/cc-mode.el (c-make-inherited-keymap): Use plain fboundp. * progmodes/cc-defs.el (zmacs-region-stays, zmacs-regions) - (lookup-syntax-properties): Remove unecessary cc-bytecomp-defvar. + (lookup-syntax-properties): Remove unnecessary cc-bytecomp-defvar. * progmodes/cc-vars.el (other): Emacs has this widget since 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 @@ 1991-10-04 Roland McGrath (roland@albert.gnu.ai.mit.edu) * rmail.el: Changed two regexps not to look specifically for 19yy - for years; look for yyyy instead. Planning for the millenium. + for years; look for yyyy instead. Planning for the millennium. 1991-10-03 Roland McGrath (roland@albert.gnu.ai.mit.edu) 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 @@ quoted tab into a space. (sh-mode): Use new `skeleton-newline-indent-rigidly'. (sh-set-shell): Make maximum font-locking also highlight keywords - after ``' and `!'. (The latter is for ksh '93 but should't hurt other + after ``' and `!'. (The latter is for ksh '93 but shouldn't hurt other shells.) 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 @@ 1998-03-06 Dave Love <d.love@dl.ac.uk> - * browse-url.el: Various doc fixes, mainly to remove innappropriate + * browse-url.el: Various doc fixes, mainly to remove inappropriate leading "*"s. (browse-url-new-window-p, browse-url-netscape-display) (browse-url-save-file, browse-url-generic-program): @@ -10843,7 +10843,7 @@ 1997-09-06 Michael Kifer <kifer@cs.sunysb.edu> * ediff-ptch.el (ediff-patch-buffer-internal): - now behaves uniformely, whether the buffer + now behaves uniformly, whether the buffer visits a file or not. * ediff-util.el (ediff-other-buffer): Smarter selection of suitable other buffer. @@ -11291,7 +11291,7 @@ the various new variables mentioned above. Accept the `a' key to use all selected citations. (reftex-insert-bib-matches): New function. - (reftex-format-citation): Now interpretes % escapes. + (reftex-format-citation): Now interprets % escapes. (reftex-select-item): Emulate a search in the menu buffer. Interpret the 'cnt text property. (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 @@ 1999-01-13 Eli Zaretskii <eliz@gnu.org> * international/codepage.el (cp850-decode-table): Replace nil - entries with codes of similary looking glyphs. ( + entries with codes of similarly looking glyphs. ( Suggested by Jason Rumney <jasonr@altavista.net>.) 1999-01-13 Dave Love <fx@gnu.org> @@ -7469,7 +7469,7 @@ (cperl-forward-re): Highlight the trailing / in s/foo// as string. Highlight the starting // in s//foo/ as function-name. Emit a meaningful error instead of a cryptic one for an - uncomplete REx near end-of-buffer. + incomplete REx near end-of-buffer. (cperl-electric-keyword): `qr' recognized. (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 @@ After 4.28: (cperl-forward-re): Throw an error at proper moment REx unfinished. After 4.29: - (x-color-defined-p): Make an extra case to peacify the warning. - Toplevel: `defvar' to peacify the warnings. + (x-color-defined-p): Make an extra case to pacify the warning. + Toplevel: `defvar' to pacify the warnings. (cperl-find-pods-heres): Could access `font-lock-comment-face' in -nw. No -nw-compile time warnings now. (cperl-find-tags): TAGS file had too short substring-to-search. @@ -1183,7 +1183,7 @@ 2001-09-07 Gerd Moellmann <gerd@gnu.org> * isearch.el (isearch-intersects-p): New function. - (isearch-close-unnecessary-overlays): Rename from *unecessary*, + (isearch-close-unnecessary-overlays): Rename from *unnecessary*, use isearch-intersects-p, and clean up. 2001-09-07 Eli Zaretskii <eliz@is.elta.co.il> @@ -12432,7 +12432,7 @@ is not reached. It is. (vc-cvs-merge): Set state to 'edited after merge. (vc-cvs-merge-news): Set workfile version to nil if not known. - (vc-cvs-latest-on-branch-p): Recommented. Candidate for removal. + (vc-cvs-latest-on-branch-p): Recommended. Candidate for removal. * vc-cvs.el, vc-rcs.el, vc-sccs.el (vc-*-checkout): Switch off coding systems for checkout via stdout. (Merge from main line.) @@ -13371,7 +13371,7 @@ if defined. (Merged from main line, slightly adapted.) * vc-cvs.el (vc-cvs-annotate-difference): Handle possible - millenium problem (merged from mainline). + millennium problem (merged from mainline). 2000-09-04 Martin Lorentzson <martinl@gnu.org> 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: (regexp . "\\(^\\s-+[^( \t\n]\\|(\\(\\S-+\\)\\s-+\\)\\S-+\\(\\s-+\\)") (group . 3) (modes . align-lisp-modes) - (run-if . ,(function (lambda () current-prefix-arg)))) + (run-if . ,(lambda () current-prefix-arg))) (lisp-alist-dot (regexp . "\\(\\s-*\\)\\.\\(\\s-*\\)") @@ -463,7 +463,7 @@ The possible settings for `align-region-separate' are: (regexp . ",\\(\\s-*\\)[^/ \t\n]") (repeat . t) (modes . align-c++-modes) - (run-if . ,(function (lambda () current-prefix-arg)))) + (run-if . ,(lambda () current-prefix-arg))) ; (valid ; . ,(function ; (lambda () @@ -480,7 +480,7 @@ The possible settings for `align-region-separate' are: (regexp . ",\\(\\s-*\\)[^# \t\n]") (repeat . t) (modes . (append align-perl-modes '(python-mode))) - (run-if . ,(function (lambda () current-prefix-arg)))) + (run-if . ,(lambda () current-prefix-arg))) (c++-comment (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." "Allout-mode functions bound to keys without any added prefix. This is in contrast to the majority of allout-mode bindings on -`allout-prefixed-bindings', whose bindings are created with a +`allout-prefixed-keybindings', whose bindings are created with a preceding command key. Use vector format for the keys: @@ -1510,7 +1510,7 @@ topic prefix. Entries must be symbols that are bound to the desired regexp values. Encryptions that result in matches will be retried, up to -`allout-encryption-ciphertext-rejection-limit' times, after which +`allout-encryption-ciphertext-rejection-ceiling' times, after which an error is raised.") (make-variable-buffer-local 'allout-encryption-ciphertext-rejection-regexps) @@ -4721,7 +4721,7 @@ this function." This is a way to give restricted peek at a concealed locality without the expense of exposing its context, but can leave the outline with aberrant -exposure. `allout-show-offshoot' should be used after the peek to rectify +exposure. `allout-show-to-offshoot' should be used after the peek to rectify the exposure." (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." (cons new (remq new codes)))) (2 (unless (memq new '(20 26 28 29)) ;; The standard says `21 doubly underlined' while - ;; http://en.wikipedia.org/wiki/ANSI_escape_code claims + ;; https://en.wikipedia.org/wiki/ANSI_escape_code claims ;; `21 Bright/Bold: off or Underline: Double'. (remq (- new 20) (pcase new (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." (restore-buffer-modified-p modified))) (set-visited-file-modtime)) +(defun auto-revert--buffer-candidates () + "Return a prioritized list of buffers to maybe auto-revert. +The differences between this return value and the reference +variable `auto-revert-buffer-list' include: 1) this has more +entries when in global-auto-revert-mode; 2) this prioritizes +buffers not reverted last time due to user interruption. " + (let ((bufs (delq nil + ;; Buffers with remote contents shall be reverted only + ;; if the connection is established already. + (mapcar + (lambda (buf) + (and (buffer-live-p buf) + (with-current-buffer buf + (and + (or (not (file-remote-p default-directory)) + (file-remote-p default-directory nil t)) + buf)))) + (auto-revert--polled-buffers)))) + remaining new) + ;; Partition `bufs' into two halves depending on whether or not + ;; the buffers are in `auto-revert-remaining-buffers'. The two + ;; halves are then re-joined with the "remaining" buffers at the + ;; head of the list. + (dolist (buf auto-revert-remaining-buffers) + (when (memq buf bufs) + (push buf remaining))) + (dolist (buf bufs) + (unless (memq buf remaining) + (push buf new))) + (nreverse (nconc new remaining)))) + +(defun auto-revert-buffer (buf) + "Revert a single buffer. + +This is performed as specified by Auto-Revert and Global +Auto-Revert Modes." + (if (not (buffer-live-p buf)) + (auto-revert-remove-current-buffer buf) + (with-current-buffer buf + ;; Test if someone has turned off Auto-Revert Mode + ;; in a non-standard way, for example by changing + ;; major mode. + (when (and (not auto-revert-mode) + (not auto-revert-tail-mode)) + (auto-revert-remove-current-buffer)) + (when (auto-revert-active-p) + ;; Enable file notification. + ;; Don't bother creating a notifier for non-file buffers + ;; unless it explicitly indicates that this works. + (when (and auto-revert-use-notify + (not auto-revert-notify-watch-descriptor) + (or buffer-file-name + buffer-auto-revert-by-notification)) + (auto-revert-notify-add-watch)) + (auto-revert-handler))))) + (defun auto-revert-buffers () "Revert buffers as specified by Auto-Revert and Global Auto-Revert Mode. @@ -894,67 +950,19 @@ are checked first the next time this function is called. This function is also responsible for removing buffers no longer in Auto-Revert Mode from `auto-revert-buffer-list', and for canceling the timer when no buffers need to be checked." - (save-match-data - (let ((bufs (auto-revert--polled-buffers)) - remaining new) - ;; Buffers with remote contents shall be reverted only if the - ;; connection is established already. - (setq bufs (delq nil - (mapcar - (lambda (buf) - (and (buffer-live-p buf) - (with-current-buffer buf - (and - (or (not (file-remote-p default-directory)) - (file-remote-p default-directory nil t)) - buf)))) - bufs))) - ;; Partition `bufs' into two halves depending on whether or not - ;; the buffers are in `auto-revert-remaining-buffers'. The two - ;; halves are then re-joined with the "remaining" buffers at the - ;; head of the list. - (dolist (buf auto-revert-remaining-buffers) - (if (memq buf bufs) - (push buf remaining))) - (dolist (buf bufs) - (if (not (memq buf remaining)) - (push buf new))) - (setq bufs (nreverse (nconc new remaining))) + (let ((bufs (auto-revert--buffer-candidates))) (while (and bufs (not (and auto-revert-stop-on-user-input (input-pending-p)))) - (let ((buf (car bufs))) - (if (not (buffer-live-p buf)) - ;; Remove dead buffer from `auto-revert-buffer-list'. - (auto-revert-remove-current-buffer buf) - (with-current-buffer buf - ;; Test if someone has turned off Auto-Revert Mode - ;; in a non-standard way, for example by changing - ;; major mode. - (if (and (not auto-revert-mode) - (not auto-revert-tail-mode) - (memq buf auto-revert-buffer-list)) - (auto-revert-remove-current-buffer)) - (when (auto-revert-active-p) - ;; Enable file notification. - ;; Don't bother creating a notifier for non-file buffers - ;; unless it explicitly indicates that this works. - (when (and auto-revert-use-notify - (not auto-revert-notify-watch-descriptor) - (or buffer-file-name - buffer-auto-revert-by-notification)) - (auto-revert-notify-add-watch)) - (auto-revert-handler))))) - (setq bufs (cdr bufs))) + (auto-revert-buffer (pop bufs))) (setq auto-revert-remaining-buffers bufs) ;; Check if we should cancel the timer. (unless (auto-revert--need-polling-p) - (if (timerp auto-revert-timer) - (cancel-timer auto-revert-timer)) + (when (timerp auto-revert-timer) + (cancel-timer auto-revert-timer)) (setq auto-revert-timer nil))))) - ;; The end: (provide 'autorevert) 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).") "The beginning of the Julian date calendar, as measured in the integer number of days before December 31, 1 BC (Gregorian).") +(defconst math-unix-epoch 719163 + "The beginning of Unix time: days from December 31, 1 BC (Gregorian) +to Jan 1, 1970 AD.") + (defun math-format-date-part (x) (cond ((stringp x) x) @@ -730,7 +734,8 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)." (math-floor math-fd-date) math-julian-date-beginning-int))) ((eq x 'U) - (math-format-number (nth 1 (math-date-parts math-fd-date 719164)))) + (math-format-number (nth 1 (math-date-parts math-fd-date + math-unix-epoch)))) ((memq x '(IYYY Iww w)) (progn (or math-fd-iso-dt @@ -1173,7 +1178,7 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)." (setq num (math-match-substring math-pd-str 0) math-pd-str (substring math-pd-str (match-end 0)) num (math-date-to-dt - (math-add 719164 + (math-add math-unix-epoch (math-div (math-read-number num) '(float 864 2)))) hour (nth 3 num) @@ -1434,11 +1439,11 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)." (defun calcFunc-unixtime (date &optional zone) (if (math-realp date) (progn - (setq date (math-add 719163 (math-div date '(float 864 2)))) + (setq date (math-add math-unix-epoch (math-div date '(float 864 2)))) (list 'date (math-sub date (math-div (calcFunc-tzone zone date) '(float 864 2))))) (if (eq (car date) 'date) - (math-add (nth 1 (math-date-parts (nth 1 date) 719163)) + (math-add (nth 1 (math-date-parts (nth 1 date) math-unix-epoch)) (calcFunc-tzone zone date)) (math-reject-arg date 'datep)))) @@ -1870,8 +1875,8 @@ and ends on the last Sunday of October at 2 a.m." (and days (= day (car days)) (setq holiday t))) (let* ((weekdays (nth 3 math-holidays-cache)) - (weeks (1- (/ (+ day 6) 7))) - (wkday (- day 1 (* weeks 7)))) + (weeks (/ day 7)) + (wkday (mod day 7))) ; Day of week: 0=Sunday, 6=Saturday (setq delta (+ delta (* weeks (length weekdays)))) (while (and weekdays (< (car weekdays) wkday)) (setq weekdays (cdr weekdays) @@ -1905,14 +1910,15 @@ and ends on the last Sunday of October at 2 a.m." (setq delta (1+ delta))) (setq day (+ day delta))) (let* ((weekdays (nth 3 math-holidays-cache)) - (bweek (- 7 (length weekdays))) - (weeks (1- (/ (+ day (1- bweek)) bweek))) - (wkday (- day 1 (* weeks bweek))) + (bweek (- 7 (length weekdays))) ; Business days in a week, 1..7. + (weeks (/ day bweek)) ; Whole weeks. + (wkday (mod day bweek)) ; Business day in last week, 0..bweek-1 (w 0)) (setq day (+ day (* weeks (length weekdays)))) + ;; Add business days in the last week; `w' is weekday, 0..6. (while (if (memq w weekdays) (setq day (1+ day)) - (> (setq wkday (1- wkday)) 0)) + (>= (setq wkday (1- wkday)) 0)) (setq w (1+ w))) (let ((hours (nth 7 math-holidays-cache))) (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 @@ ;;; Updated April 2002 by Jochen Küpper ;;; Updated August 2007, using -;;; CODATA (http://physics.nist.gov/cuu/Constants/index.html) -;;; NIST (http://physics.nist.gov/Pubs/SP811/appenB9.html) +;;; CODATA (https://physics.nist.gov/cuu/Constants/index.html) +;;; NIST (https://physics.nist.gov/Pubs/SP811/appenB9.html) ;;; ESUWM (Encyclopaedia of Scientific Units, Weights and ;;; Measures, by François Cardarelli) ;;; All conversions are exact unless otherwise noted. ;; CODATA values updated February 2016, using 2014 adjustment -;; http://arxiv.org/pdf/1507.07956.pdf +;; https://arxiv.org/pdf/1507.07956.pdf ;; Updated November 2018 for the redefinition of the SI ;; https://www.bipm.org/utils/en/pdf/CGPM/Draft-Resolution-A-EN.pdf @@ -59,7 +59,7 @@ ( mi "5280 ft" "Mile" ) ( au "149597870691. m" "Astronomical Unit" nil "149597870691 m (*)") - ;; (approx) NASA JPL (http://neo.jpl.nasa.gov/glossary/au.html) + ;; (approx) NASA JPL (https://neo.jpl.nasa.gov/glossary/au.html) ( lyr "c yr" "Light Year" ) ( pc "3.0856775854*10^16 m" "Parsec (**)" nil "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\"." "Name of buffer used for sunrise/sunset times.") (defconst calendar-hebrew-yahrzeit-buffer "*Yahrzeits*" - "Name of the buffer used by `list-yahrzeit-dates'.") + "Name of the buffer used by `calendar-hebrew-list-yahrzeits'.") (defmacro calendar-increment-month (mon yr n &optional nmonths) "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." OLD-DEFAULT hours are set for every day that has no number indicated." (interactive "P") (if old-default (setq old-default (prefix-numeric-value old-default)) - (error "`timelog-make-hours-explicit' requires an explicit argument")) + (error "`timeclock-make-hours-explicit' requires an explicit argument")) (let ((extant-timelog (find-buffer-visiting timeclock-file)) current-date) (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 @@ manipulation of `ede-projects' with equivalent and better functions. (ede-proj-load): Replace call to test if dir has project to - explicity ask filesystem if Project.ede is there. + explicitly ask filesystem if Project.ede is there. * ede/config.el: * ede/detect.el: New files. @@ -2101,7 +2101,7 @@ by calling `srecode-cpp-apply-templates'. * srecode/compile.el (srecode-compile-templates): Fix directory - compare of built-in templates. Give built-ins lower piority. + compare of built-in templates. Give built-ins lower priority. Support special variable "project". (srecode-compile-template-table): Set :project slot of new tables. (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'." (defun autoconf-insert-new-macro (macro &optional param) "Add a call to MACRO in the current autoconf file. Deals with macro order. See `autoconf-preferred-macro-order' and -`autoconf-multi-macros'. +`autoconf-multiple-macros'. Optional argument PARAM is the parameter to pass to the macro as one string." (cond ((member macro autoconf-multiple-macros) ;; 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 @@ ;; ;; Detection comes in multiple forms: ;; -;; `ede-detect-scan-directory-for-project' - +;; `ede--detect-scan-directory-for-project' - ;; Scan for a project via the file system. ;; `ede-detect-directory-for-project' - ;; 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." ;; Note: Analyzer from Henry S. Thompson (define-lex-regex-analyzer semantic-lex-scheme-symbol "Detect and create symbol and keyword tokens." - "\\(\\sw\\([:]\\|\\sw\\|\\s_\\)*\\)" + "\\(\\sw\\|\\s_\\)+" ;; (message "symbol: %s" (match-string 0)) (semantic-lex-push-token (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." (defvar semantic-java-doc-line-tags nil "Valid javadoc line tags. Ordered following Sun's Tag Convention at -<http://java.sun.com/products/jdk/javadoc/writingdoccomments/index.html>") +<https://java.sun.com/products/jdk/javadoc/writingdoccomments/index.html>") (defvar semantic-java-doc-with-name-tags nil "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.") (cl-defmethod srecode-overlaid-text ((olaid srecode-overlaid) &optional set-to) "Return the text under OLAID. -If SET-TO is a string, then replace the text of OLAID wit SET-TO." +If SET-TO is a string, then replace the text of OLAID with SET-TO." (let* ((ol (oref olaid overlay)) (start (overlay-start ol))) (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. Optional argument FRAME specifies the frame where the color is to be displayed. If FRAME is omitted or nil, use the selected frame. If FRAME cannot display COLOR, return nil." - ;; `colors-values' maximum value is either 65535 or 65280 depending on the + ;; `color-values' maximum value is either 65535 or 65280 depending on the ;; display system. So we use a white conversion to get the max value. (let ((valmax (float (car (color-values "#ffffffffffff"))))) (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." ((>= mth 0) (1- (- count mth))) (t (1- (- mth)))))) (mapconcat - (function (lambda (a) a)) (nthcdr n (nreverse (nthcdr m args))) " ")))) + (lambda (a) a) (nthcdr n (nreverse (nthcdr m args))) " ")))) ;; ;; 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." ;; All common separators (eg. space "(" ")" """) characters go through a ;; function to add new words to the list of words to complete from. -;; If the character before this was an alpha-numeric then this adds the +;; If the character before this was an alphanumeric then this adds the ;; symbol before point to the completion list (using ADD-COMPLETION). (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. This is a fairly large file, not typically present on GNU systems. At the time of writing it is at the URL -`http://www.unicode.org/Public/UNIDATA/UnicodeData.txt'." +`https://www.unicode.org/Public/UNIDATA/UnicodeData.txt'." :group 'mule :version "22.1" :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]'.") "Non-nil means the Dired sort command is disabled. The idea is to set this buffer-locally in special Dired buffers.") +(defcustom dired-switches-in-mode-line nil + "How to indicate `dired-actual-switches' in mode-line. +Possible values: + * `nil': Indicate name-or-date sort order, if possible. + Else show full switches. + * `as-is': Show full switches. + * Integer: Show only the first N chars of full switches. + * Function: Pass `dired-actual-switches' as arg and show result." + :group 'Dired-Plus + :type '(choice + (const :tag "Indicate by name or date, else full" nil) + (const :tag "Show full switches" as-is) + (integer :tag "Show first N chars of switches" :value 10) + (function :tag "Format with function" :value identity))) + (defun dired-sort-set-mode-line () - ;; Set mode line display according to dired-actual-switches. - ;; Mode line display of "by name" or "by date" guarantees the user a - ;; match with the corresponding regexps. Non-matching switches are - ;; shown literally. + "Set mode-line according to option `dired-switches-in-mode-line'." (when (eq major-mode 'dired-mode) (setq mode-name - (let (case-fold-search) - (cond ((string-match-p - dired-sort-by-name-regexp dired-actual-switches) - "Dired by name") - ((string-match-p - dired-sort-by-date-regexp dired-actual-switches) - "Dired by date") - (t - (concat "Dired " dired-actual-switches))))) + (let ((case-fold-search nil)) + (if dired-switches-in-mode-line + (concat + "Dired" + (cond ((integerp dired-switches-in-mode-line) + (let* ((l1 (length dired-actual-switches)) + (xs (substring + dired-actual-switches + 0 (min l1 dired-switches-in-mode-line))) + (l2 (length xs))) + (if (zerop l2) + xs + (concat " " xs (and (< l2 l1) "…"))))) + ((functionp dired-switches-in-mode-line) + (format " %s" (funcall + dired-switches-in-mode-line + dired-actual-switches))) + (t (concat " " dired-actual-switches)))) + (cond ((string-match-p dired-sort-by-name-regexp + dired-actual-switches) + "Dired by name") + ((string-match-p dired-sort-by-date-regexp + dired-actual-switches) + "Dired by date") + (t (concat "Dired " dired-actual-switches)))))) (force-mode-line-update))) (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 @@ ;; doc-view.el requires GNU Emacs 22.1 or newer. You also need Ghostscript, ;; `dvipdf' (comes with Ghostscript) or `dvipdfm' (comes with teTeX or TeXLive) -;; and `pdftotext', which comes with xpdf (http://www.foolabs.com/xpdf/) or -;; poppler (http://poppler.freedesktop.org/). +;; and `pdftotext', which comes with xpdf (https://www.foolabs.com/xpdf/) or +;; poppler (https://poppler.freedesktop.org/). ;;; Commentary: @@ -514,7 +514,7 @@ Typically \"page-%s.png\".") ;; Toggle between text and image display or editing (define-key map (kbd "C-c C-c") 'doc-view-toggle-display) map) - "Keymap used by `doc-minor-view-mode'.") + "Keymap used by `doc-view-minor-mode'.") ;;;; Navigation Commands 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." (load-library "isearch")) (define-key isearch-mode-map [ignore] - (function (lambda () (interactive) (isearch-update)))) + (lambda () (interactive) (isearch-update))) (defun double-translate-key (prompt) ;; 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. (message ""))) (when select (set-buffer buffer) + (goto-char select) (let ((opoint (point-marker))) (Buffer-menu-execute) (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." 'electric-help-retain)))) (Electric-command-loop 'exit - (function (lambda () + (lambda () (sit-for 0) ;necessary if last command was end-of-buffer or ;beginning-of-buffer - otherwise pos-visible-in-window-p ;will yield a wrong result. @@ -241,7 +241,7 @@ BUFFER is put back into its original major mode." (t (cond (standard "Press SPC to scroll, DEL to scroll back, q to exit, r to retain ") (both) - (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 "))))))))) + (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 ")))))))) t)))) 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.") ;; ;; FIXME: when `newline'ing, we exceptionally ;; prevent a specific behavior of - ;; `eletric-pair-mode', that of opening an extra + ;; `electric-pair-mode', that of opening an extra ;; newline between newly inserted matching paris. ;; In theory that behavior should be provided by ;; `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." ;; the doc-string in FORM. ;; Those properties are now set in lisp-mode.el. -(defun autoload-find-generated-file () +(defun autoload-find-generated-file (file) "Visit the autoload file for the current buffer, and return its buffer." (let ((enable-local-variables :safe) (enable-local-eval nil) (find-file-hook nil) - (delay-mode-hooks t) - (file (autoload-generated-file))) + (delay-mode-hooks t)) ;; We used to use `raw-text' to read this file, but this causes ;; problems when the file contains non-ASCII characters. (with-current-buffer (find-file-noselect @@ -270,18 +269,20 @@ expression, in which case we want to handle forms differently." (if (zerop (buffer-size)) (insert (autoload-rubric file nil t))) (current-buffer)))) -(defun autoload-generated-file () - "Return `generated-autoload-file' as an absolute name. -If local to the current buffer, expand using the default directory; -otherwise, using `source-directory'/lisp." - (expand-file-name generated-autoload-file +(defun autoload-generated-file (outfile) + "Return OUTFILE as an absolute name. +If `generated-autoload-file' is bound locally in the current +buffer, that is used instead, and it is expanded using the +default directory; otherwise, `source-directory'/lisp is used." + (expand-file-name (if (local-variable-p 'generated-autoload-file) + generated-autoload-file + outfile) ;; File-local settings of generated-autoload-file should ;; be interpreted relative to the file's location, ;; of course. (if (not (local-variable-p 'generated-autoload-file)) (expand-file-name "lisp" source-directory)))) - (defun autoload-read-section-header () "Read a section header form. Since continuation lines have been marked as comments, @@ -456,13 +457,12 @@ which lists the file name and which functions are in it, etc." (defvar no-update-autoloads nil "File local variable to prevent scanning this file for autoload cookies.") -(defun autoload-file-load-name (file) +(defun autoload-file-load-name (file outfile) "Compute the name that will be used to load FILE." ;; OUTFILE should be the name of the global loaddefs.el file, which ;; is expected to be at the root directory of the files we're ;; scanning for autoloads and will be in the `load-path'. - (let* ((outfile (default-value 'generated-autoload-file)) - (name (file-relative-name file (file-name-directory outfile))) + (let* ((name (file-relative-name file (file-name-directory outfile))) (names '()) (dir (file-name-directory outfile))) ;; 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 are used. Return non-nil in the case where no autoloads were added at point." (interactive "fGenerate autoloads for file: ") - (let ((generated-autoload-file buffer-file-name)) - (autoload-generate-file-autoloads file (current-buffer)))) + (let ((autoload-modified-buffers nil)) + (autoload-generate-file-autoloads file (current-buffer) buffer-file-name) + autoload-modified-buffers)) (defvar autoload-compute-prefixes t "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.") `(register-definition-prefixes ,file ',(sort (delq nil strings) 'string<)))))) -(defun autoload--setup-output (otherbuf outbuf absfile load-name) +(defun autoload--setup-output (otherbuf outbuf absfile load-name output-file) (let ((outbuf (or (if otherbuf ;; A file-local setting of @@ -618,7 +619,7 @@ Don't try to split prefixes that are already longer than that.") ;; should ignore OUTBUF. nil outbuf) - (autoload-find-destination absfile load-name) + (autoload-find-destination absfile load-name output-file) ;; The file has autoload cookies, but they're ;; already up-to-date. If OUTFILE is nil, the ;; entries are in the expected OUTBUF, @@ -675,23 +676,16 @@ Don't try to split prefixes that are already longer than that.") More specifically those definitions will not be considered for the `register-definition-prefixes' call.") -;; When called from `generate-file-autoloads' we should ignore -;; `generated-autoload-file' altogether. When called from -;; `update-file-autoloads' we don't know `outbuf'. And when called from -;; `update-directory-autoloads' it's in between: we know the default -;; `outbuf' but we should obey any file-local setting of -;; `generated-autoload-file'. (defun autoload-generate-file-autoloads (file &optional outbuf outfile) "Insert an autoload section for FILE in the appropriate buffer. Autoloads are generated for defuns and defmacros in FILE marked by `generate-autoload-cookie' (which see). + If FILE is being visited in a buffer, the contents of the buffer are used. OUTBUF is the buffer in which the autoload statements should be inserted. -If OUTBUF is nil, it will be determined by `autoload-generated-file'. -If provided, OUTFILE is expected to be the file name of OUTBUF. -If OUTFILE is non-nil and FILE specifies a `generated-autoload-file' -different from OUTFILE, then OUTBUF is ignored. +If OUTBUF is nil, the output will go to OUTFILE, unless there's a +buffer-local setting of `generated-autoload-file' in FILE. Return non-nil if and only if FILE adds no autoloads to OUTFILE \(or OUTBUF if OUTFILE is nil). The actual return value is @@ -719,16 +713,19 @@ FILE's modification time." (setq load-name (if (stringp generated-autoload-load-name) generated-autoload-load-name - (autoload-file-load-name absfile))) + (autoload-file-load-name absfile outfile))) ;; FIXME? Comparing file-names for equality with just equal ;; is fragile, eg if one has an automounter prefix and one ;; does not, but both refer to the same physical file. (when (and outfile + (not outbuf) (not (if (memq system-type '(ms-dos windows-nt)) (equal (downcase outfile) - (downcase (autoload-generated-file))) - (equal outfile (autoload-generated-file))))) + (downcase (autoload-generated-file + outfile))) + (equal outfile (autoload-generated-file + outfile))))) (setq otherbuf t)) (save-excursion (save-restriction @@ -742,7 +739,8 @@ FILE's modification time." (file-name-sans-extension (file-name-nondirectory file)))) (setq output-start (autoload--setup-output - otherbuf outbuf absfile load-name)) + otherbuf outbuf absfile + load-name outfile)) (let ((standard-output (marker-buffer output-start)) (print-quoted t)) (princ `(push (purecopy @@ -760,7 +758,8 @@ FILE's modification time." ;; If not done yet, figure out where to insert this text. (unless output-start (setq output-start (autoload--setup-output - otherbuf outbuf absfile load-name))) + otherbuf outbuf absfile + load-name outfile))) (autoload--print-cookie-text output-start load-name file)) ((= (following-char) ?\;) ;; Don't read the comment. @@ -791,7 +790,7 @@ FILE's modification time." ((not otherbuf) (unless output-start (setq output-start (autoload--setup-output - nil outbuf absfile load-name))) + nil outbuf absfile load-name outfile))) (let ((autoload-print-form-outbuf (marker-buffer output-start))) (autoload-print-form form))) @@ -803,9 +802,8 @@ FILE's modification time." ;; then passing otherbuf=nil is enough, but if ;; outbuf is nil, that won't cut it, so we ;; locally bind generated-autoload-file. - (let ((generated-autoload-file - (default-value 'generated-autoload-file))) - (autoload--setup-output nil outbuf absfile load-name))) + (autoload--setup-output nil outbuf absfile load-name + outfile)) (autoload-print-form-outbuf (marker-buffer other-output-start))) (autoload-print-form form) @@ -927,19 +925,23 @@ Return FILE if there was no autoload cookie in it, else nil." (interactive (list (read-file-name "Update autoloads for file: ") current-prefix-arg (read-file-name "Write autoload definitions to file: "))) - (let* ((generated-autoload-file (or outfile generated-autoload-file)) - (autoload-modified-buffers nil) + (setq outfile (or outfile generated-autoload-file)) + (let* ((autoload-modified-buffers nil) ;; We need this only if the output file handles more than one input. ;; See https://debbugs.gnu.org/22213#38 and subsequent. (autoload-timestamps t) - (no-autoloads (autoload-generate-file-autoloads file))) + (no-autoloads (autoload-generate-file-autoloads + file nil + (if (local-variable-p 'generated-autoload-file) + generated-autoload-file + outfile)))) (if autoload-modified-buffers (if save-after (autoload-save-buffers)) (if (called-interactively-p 'interactive) (message "Autoload section for %s is up to date." file))) (if no-autoloads file))) -(defun autoload-find-destination (file load-name) +(defun autoload-find-destination (file load-name output-file) "Find the destination point of the current buffer's autoloads. FILE is the file name of the current buffer. LOAD-NAME is the name as it appears in the output. @@ -949,12 +951,12 @@ removes any prior now out-of-date autoload entries." (catch 'up-to-date (let* ((buf (current-buffer)) (existing-buffer (if buffer-file-name buf)) - (output-file (autoload-generated-file)) + (output-file (autoload-generated-file output-file)) (output-time (if (file-exists-p output-file) (file-attribute-modification-time (file-attributes output-file)))) (found nil)) - (with-current-buffer (autoload-find-generated-file) + (with-current-buffer (autoload-find-generated-file output-file) ;; This is to make generated-autoload-file have Unix EOLs, so ;; that it is portable to all platforms. (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 directory or directories specified. In an interactive call, prompt for a default output file for the -autoload definitions, and temporarily bind the variable -`generated-autoload-file' to this value. When called from Lisp, -use the existing value of `generated-autoload-file'. If any Lisp -file binds `generated-autoload-file' as a file-local variable, -write its autoloads into the specified file instead." +autoload definitions. When called from Lisp, use the existing +value of `generated-autoload-file'. If any Lisp file binds +`generated-autoload-file' as a file-local variable, write its +autoloads into the specified file instead." + (declare (obsolete make-directory-autoloads "28.1")) (interactive "DUpdate autoloads from directory: ") + (make-directory-autoloads + dirs + (if (called-interactively-p 'interactive) + (read-file-name "Write autoload definitions to file: ") + generated-autoload-file))) + +;;;###autoload +(defun make-directory-autoloads (dir output-file) + "Update autoload definitions for Lisp files in the directories DIRS. +DIR can be either a single directory or a list of +directories. (The latter usage is discouraged.) + +The autoloads will be written to OUTPUT-FILE. If any Lisp file +binds `generated-autoload-file' as a file-local variable, write +its autoloads into the specified file instead. + +The function does NOT recursively descend into subdirectories of the +directory or directories specified." + (interactive "DUpdate autoloads from directory: \nFWrite to file: ") (let* ((files-re (let ((tmp nil)) (dolist (suf (get-load-suffixes)) ;; We don't use module-file-suffix below because @@ -1051,10 +1072,10 @@ write its autoloads into the specified file instead." (push suf tmp))) (concat "\\`[^=.].*" (regexp-opt tmp t) "\\'"))) (files (apply #'nconc - (mapcar (lambda (dir) - (directory-files (expand-file-name dir) - t files-re)) - dirs))) + (mapcar (lambda (d) + (directory-files (expand-file-name d) + t files-re)) + (if (consp dir) dir (list dir))))) (done ()) ;Files processed; to remove duplicates. (changed nil) ;Non-nil if some change occurred. (last-time) @@ -1062,16 +1083,12 @@ write its autoloads into the specified file instead." ;; files because of file-local autoload-generated-file settings. (no-autoloads nil) (autoload-modified-buffers nil) - (generated-autoload-file - (if (called-interactively-p 'interactive) - (read-file-name "Write autoload definitions to file: ") - generated-autoload-file)) (output-time - (if (file-exists-p generated-autoload-file) - (file-attribute-modification-time - (file-attributes generated-autoload-file))))) + (and (file-exists-p output-file) + (file-attribute-modification-time + (file-attributes output-file))))) - (with-current-buffer (autoload-find-generated-file) + (with-current-buffer (autoload-find-generated-file output-file) (save-excursion ;; Canonicalize file names and remove the autoload file itself. (setq files (delete (file-relative-name buffer-file-name) @@ -1128,8 +1145,7 @@ write its autoloads into the specified file instead." (progress (make-progress-reporter (byte-compile-info (concat "Scraping files for " - (file-relative-name - generated-autoload-file))) + (file-relative-name output-file))) 0 (length files) nil 10)) (file-count 0) file-time) @@ -1207,7 +1223,7 @@ should be non-nil)." (let ((args command-line-args-left)) (batch-update-autoloads--summary args) (setq command-line-args-left nil) - (apply #'update-directory-autoloads args))) + (make-directory-autoloads args generated-autoload-file))) (provide 'autoload) 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'." (princ (backtrace-to-string (backtrace-get-frames 'backtrace))) nil) -(defun backtrace-to-string(&optional frames) +(defun backtrace-to-string (&optional frames) "Format FRAMES, a list of `backtrace-frame' objects, for output. Return the result as a string. If FRAMES is nil, use all function calls currently active." - (unless frames (setq frames (backtrace-get-frames 'backtrace-to-string))) + (substring-no-properties + (backtrace--to-string + (or frames (backtrace-get-frames 'backtrace-to-string))))) + +(defun backtrace--to-string (frames) (let ((backtrace-fontify nil)) (with-temp-buffer (backtrace-mode) @@ -934,8 +938,7 @@ function calls currently active." backtrace-frames frames backtrace-print-function #'cl-prin1) (backtrace-print) - (substring-no-properties (filter-buffer-substring (point-min) - (point-max)))))) + (filter-buffer-substring (point-min) (point-max))))) (provide 'backtrace) 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." (t ".")))) (if (eq (car-safe (symbol-function (car form))) 'macro) (byte-compile-report-error - (format "Forgot to expand macro %s in %S" (car form) form))) + (format "`%s' defined after use in %S (missing `require' of a library file?)" + (car form) form))) (if (and handler ;; Make sure that function exists. (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: constrs)) (pcase-dolist (`(,cname ,args ,doc) constrs) (let* ((anames (cl--arglist-args args)) - (make (cl-mapcar (function (lambda (s d) (if (memq s anames) s d))) + (make (cl-mapcar (lambda (s d) (if (memq s anames) s d)) slots defaults)) ;; `cl-defsubst' is fundamentally broken: it substitutes ;; 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." (message "Error in debug printer: %S" err) (prin1 obj stream)))) +(make-obsolete 'debugger-insert-backtrace + "use a `backtrace-mode' buffer or `backtrace-to-string'." + "Emacs 27.1") + +(defun debugger-insert-backtrace (frames do-xrefs) + "Format and insert the backtrace FRAMES at point. +Make functions into cross-reference buttons if DO-XREFS is non-nil." + (insert (if do-xrefs + (backtrace--to-string frames) + (backtrace-to-string frames)))) + (defun debugger-setup-buffer (args) "Initialize the `*Backtrace*' buffer for entry to the debugger. 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." (let ((str (eval-expression-print-format val))) (if str (princ str t)))))))) +(define-obsolete-function-alias 'debugger-toggle-locals + 'backtrace-toggle-locals "28.1") + (defvar debugger-mode-map (let ((map (make-keymap))) @@ -621,6 +635,9 @@ Complete list of commands: (buffer-substring (line-beginning-position 0) (line-end-position 0))))) +(define-obsolete-function-alias 'debug-help-follow + 'backtrace-help-follow-symbol "28.1") + ;; When you change this, you may also need to change the number of ;; 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.") "Saving this object should make backup files. Setting to nil will mean no backups are made.")) "This special class enables persistence through save files -Use the `object-save' method to write this object to disk. The save +Use the `object-write' method to write this object to disk. The save format is Emacs Lisp code which calls the constructor for the saved object. For this reason, only slots which do not have an `:initarg' 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'." ;; This means we have to limit `print-level' and ;; `print-length' when printing result objects. That ;; might not be worth while when we can also use - ;; `ert-results-rerun-test-debugging-errors-at-point', + ;; `ert-results-rerun-test-at-point-debugging-errors', ;; (i.e., when running interactively) but having the ;; backtrace ready for printing is important for batch ;; use. @@ -958,7 +958,7 @@ Selectors that do not, such as (member ...), just return the set implied by them without checking whether it is really contained in UNIVERSE." ;; This code needs to match the cases in - ;; `ert-insert-human-readable-selector'. + ;; `ert--insert-human-readable-selector'. (pcase-exhaustive selector ('nil nil) ('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).") "Create a new generic mode MODE. A \"generic\" mode is a simple major mode with basic support for -comment syntax and Font Lock mode, but otherwise do not have a +comment syntax and Font Lock mode, but otherwise does not have any special keystrokes or functionality available. 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." (write-region (autoload-rubric file "package" nil) nil file nil 'silent)) file) -(defvar generated-autoload-file) (defvar autoload-timestamps) (defvar version-control) @@ -1021,14 +1020,14 @@ untar into a directory named DIR; otherwise, signal an error." "Generate autoloads in PKG-DIR for package named NAME." (let* ((auto-name (format "%s-autoloads.el" name)) ;;(ignore-name (concat name "-pkg.el")) - (generated-autoload-file (expand-file-name auto-name pkg-dir)) + (output-file (expand-file-name auto-name pkg-dir)) ;; We don't need 'em, and this makes the output reproducible. (autoload-timestamps nil) (backup-inhibited t) (version-control 'never)) - (package-autoload-ensure-default-file generated-autoload-file) - (update-directory-autoloads pkg-dir) - (let ((buf (find-buffer-visiting generated-autoload-file))) + (package-autoload-ensure-default-file output-file) + (make-directory-autoloads pkg-dir output-file) + (let ((buf (find-buffer-visiting output-file))) (when buf (kill-buffer buf))) auto-name)) @@ -3623,7 +3622,7 @@ This is used for `tabulated-list-format' in `package-menu-mode'." (string< a b)))) (defun package-menu--populate-new-package-list () - "Decide which packages are new in `package-archives-contents'. + "Decide which packages are new in `package-archive-contents'. Store this list in `package-menu--new-package-list'." ;; Find which packages are new. (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'.") "Keymap used by the RE Builder for the subexpression mode.") (defun reb-mode-common () - "Setup functions common to functions `reb-mode' and `reb-mode-lisp'." + "Setup functions common to functions `reb-mode' and `reb-lisp-mode'." (setq reb-mode-string "" reb-valid-string "" @@ -513,7 +513,7 @@ If SUBEXP is non-nil mark only the corresponding sub-expressions." (reb-update-overlays subexp)) (defun reb-auto-update (_beg _end _lenold &optional force) - "Called from `after-update-functions' to update the display. + "Called from `after-change-functions' to update the display. BEG, END and LENOLD are passed in from the hook. An actual update is only done if the regexp has changed or if the 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." (cond (cua-mode - (setq cua--saved-state - (list - (and (boundp 'delete-selection-mode) delete-selection-mode))) + (unless cua--saved-state + (setq cua--saved-state + (list + (and (boundp 'delete-selection-mode) delete-selection-mode)))) (if cua-delete-selection (delete-selection-mode 1) (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." (setq cua--last-killed-rectangle (cons (and kill-ring (car kill-ring)) killed-rectangle)) (if ring (kill-new (mapconcat - (function (lambda (row) (concat row "\n"))) + (lambda (row) (concat row "\n")) killed-rectangle ""))))) (defun cua--activate-rectangle () @@ -1071,7 +1071,7 @@ The text previously in the rectangle is overwritten by the blanks." (cua--copy-rectangle-to-global-mark t)) (let* ((rect (cua--extract-rectangle)) (text (mapconcat - (function (lambda (row) (concat row "\n"))) + (lambda (row) (concat row "\n")) rect ""))) (setq arg (cua--prefix-arg arg)) (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 @@ (defvar epa-mail-mode-on-hook nil) (defvar epa-mail-mode-off-hook nil) +(defcustom epa-mail-offer-skip t + "If non-nil, when a recipient has no key, ask whether to skip it. +Otherwise, signal an error." + :type 'boolean + :version "28.1" + :group 'epa-mail) + ;;;###autoload (define-minor-mode epa-mail-mode "A minor-mode for composing encrypted/clearsigned mails." @@ -218,10 +225,12 @@ If no one is selected, symmetric encryption will be performed. " recipient)) 'encrypt))) (unless (or recipient-key - (y-or-n-p - (format - "No public key for %s; skip it? " - recipient))) + (and epa-mail-offer-skip + (y-or-n-p + (format + "No public key for %s; skip it? " + recipient))) + ) (error "No public key for %s" recipient)) (if recipient-key (list recipient-key)))) 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. (unless (and epa-keys-buffer (buffer-live-p epa-keys-buffer)) (setq epa-keys-buffer (generate-new-buffer "*Keys*"))) - (with-current-buffer epa-keys-buffer - (epa-key-list-mode) - ;; C-c C-c is the usual way to finish the selection (bug#11159). - (define-key (current-local-map) "\C-c\C-c" 'exit-recursive-edit) - (let ((inhibit-read-only t) - buffer-read-only) - (erase-buffer) - (insert prompt "\n" - (substitute-command-keys "\ + (save-window-excursion + (with-current-buffer epa-keys-buffer + (epa-key-list-mode) + ;; C-c C-c is the usual way to finish the selection (bug#11159). + (define-key (current-local-map) "\C-c\C-c" 'exit-recursive-edit) + (let ((inhibit-read-only t) + buffer-read-only) + (erase-buffer) + (insert prompt "\n" + (substitute-command-keys "\ - `\\[epa-mark-key]' to mark a key on the line - `\\[epa-unmark-key]' to unmark a key on the line\n")) - (insert-button "[Cancel]" - 'action (lambda (_button) (abort-recursive-edit))) - (insert " ") - (insert-button "[OK]" - 'action (lambda (_button) (exit-recursive-edit))) - (insert "\n\n") - (epa--insert-keys keys) - (setq epa-exit-buffer-function #'abort-recursive-edit) - (goto-char (point-min)) - (let ((display-buffer-mark-dedicated 'soft)) - (pop-to-buffer (current-buffer)))) - (unwind-protect - (progn - (recursive-edit) - (epa--marked-keys)) - (kill-buffer epa-keys-buffer)))) + (insert-button "[Cancel]" + 'action (lambda (_button) (abort-recursive-edit))) + (insert " ") + (insert-button "[OK]" + 'action (lambda (_button) (exit-recursive-edit))) + (insert "\n\n") + (epa--insert-keys keys) + (setq epa-exit-buffer-function #'abort-recursive-edit) + (goto-char (point-min)) + (let ((display-buffer-mark-dedicated 'soft)) + (pop-to-buffer (current-buffer)))) + (unwind-protect + (progn + (recursive-edit) + (epa--marked-keys)) + (kill-buffer epa-keys-buffer))))) ;;;###autoload (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 @@ again. (erc): Require cl for delete-if. (erc-button-remove-old-buttons): Rewrote using delete-if to - prevent excesive consing. Having the marker list is still ugly, + prevent excessive consing. Having the marker list is still ugly, so another solution needs to be found. 2003-01-17 Jorgen Schaefer <forcer@users.sourceforge.net> @@ -10260,7 +10260,7 @@ Upcased the command defuns (erc-cmd-join is now erc-cmd-JOIN) Fixed erc-complete to not require erc-command-table. Implemented erc-cmd-HELP - (You have to try that, its tooo coool!) + (You have to try that, its too coool!) e.g. /help auto-q fixed autoloads for erc-add-pal and so on to be interactive. @@ -11242,7 +11242,7 @@ 2001-10-29 Mario Lang <mlang@delysid.org> * erc.el: - Imenu fixed somehow, added IRC services interactive function for indentify to NickServ. Read the diff + Imenu fixed somehow, added IRC services interactive function for identify to NickServ. Read the diff 2001-10-26 Gergely Nagy <algernon@debian.org> @@ -11316,7 +11316,7 @@ * erc-speak.el: * Very important fix! Now erc-speak is really complete. Messages don't get cut anymore. Be sure to use auditory icons, - it's reallllly cool now!!! + it's really cool now!!! * erc-speak.el: *** empty log message *** 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 :inline t (integer :tag "Regexp section number"))))) -(defcustom erc-emacswiki-url "http://www.emacswiki.org/cgi-bin/wiki.pl?" +(defcustom erc-emacswiki-url "https://www.emacswiki.org/cgi-bin/wiki.pl?" "URL of the EmacsWiki Homepage." :group 'erc-button :type 'string) -(defcustom erc-emacswiki-lisp-url "http://www.emacswiki.org/elisp/" +(defcustom erc-emacswiki-lisp-url "https://www.emacswiki.org/elisp/" "URL of the EmacsWiki ELisp area." :group 'erc-button :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'." (defvar erc-track-last-non-erc-buffer nil "Stores the name of the last buffer you were in before activating -`erc-track-switch-buffers'.") +`erc-track-switch-buffer'.") (defun erc-track-sort-by-activest () "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 lists. If, and only if, changes are made, or the user is added, -`erc-channel-members-updated-hook' is run, and t is returned. +`erc-channel-members-changed-hook' is run, and t is returned. See also: `erc-update-user' and `erc-update-channel-member'." (let* (changed user-changed @@ -6072,7 +6072,7 @@ Sets the buffer local variables: - `erc-session-connector' - `erc-session-server' - `erc-session-port' -- `erc-session-full-name' +- `erc-session-user-full-name' - `erc-server-current-nick'" (setq erc-session-connector erc-server-connect-function 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." string))) (defun eshell-directory-files-and-attributes (dir &optional full match nosort id-format) - "Make sure to use the handler for `directory-file-and-attributes'." + "Make sure to use the handler for `directory-files-and-attributes'." (let* ((dir (expand-file-name dir))) (if (string-equal (file-remote-p dir 'method) "ftp") (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: (eshell-as-subcommand ,(eshell-parse-command cmd)) (ignore (nconc eshell-this-command-hook - (list (function (lambda () - (delete-file ,temp)))))) + (list (lambda () + (delete-file ,temp))))) (quote ,temp))) (goto-char (1+ end))))))) ((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." (defun defined-colors-with-face-attributes (&optional frame) "Return a list of colors supported for a particular frame. See `defined-colors' for arguments and return value. In contrast -to `define-colors' the elements of the returned list are color +to `defined-colors' the elements of the returned list are color strings with text properties, that make the color names render with the color they represent as background color." (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>\"." :version "25.2") ; nil -> t (defcustom ffap-ftp-default-user "anonymous" - "User name in FTP file names generated by `ffap-host-to-path'. + "User name in FTP file names generated by `ffap-host-to-filename'. Note this name may be omitted if it equals the default \(either `efs-default-user' or `ange-ftp-default-user')." :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 @@ ;; * `file-cache-add-file-list': Adds a list of files to the cache ;; ;; The following functions use the regular expressions in -;; `file-cache-delete-regexps' to eliminate unwanted files: +;; `file-cache-filter-regexps' to eliminate unwanted files: ;; ;; * `file-cache-add-directory': Adds the files in a directory to the ;; 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." newname)) ;; A handy function to display file sizes in human-readable form. -;; See http://en.wikipedia.org/wiki/Kibibyte for the reference. +;; See https://en.wikipedia.org/wiki/Kibibyte for the reference. (defun file-size-human-readable (file-size &optional flavor space unit) "Produce a string showing FILE-SIZE in human-readable form. @@ -7779,7 +7779,7 @@ Otherwise, trash FILENAME using the freedesktop.org conventions, (let (delete-by-moving-to-trash) (rename-file fn new-fn)))) ;; Otherwise, use the freedesktop.org method, as specified at - ;; http://freedesktop.org/wiki/Specifications/trash-spec + ;; https://freedesktop.org/wiki/Specifications/trash-spec (t (let* ((xdg-data-dir (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 @@ ;; BTW, if you close a fileset, files, which have been changed, will ;; be silently saved. Change this behavior by setting -;; `filesets-save-buffer-fn'. +;; `filesets-save-buffer-function'. ;;; Supported modes for inclusion groups (`filesets-ingroup-patterns'): ;; - 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 @@ ;; file. ;; CREDITS: -;; Many thanks go to TUSC Computer Systems Pty Ltd for providing an environ- -;; ment that made the development of this package possible. +;; Many thanks go to TUSC Computer Systems Pty Ltd for providing an +;; environment that made the development of this package possible. ;; ;; Many thanks also go to all those who provided valuable feedback throughout ;; 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 @@ ;; whatever you would like to do. These functions are then added to ;; a hook. ;; -;; The keymap `follow-key-map' contains key bindings activated by +;; The keymap `follow-mode-map' contains key bindings activated by ;; `follow-mode'. ;; ;; Example: @@ -356,7 +356,7 @@ property `follow-mode-use-cache' to non-nil.") Used by `follow-window-size-change'.") (defvar follow-windows-start-end-cache nil - "Cache used by `follow-window-start-end'.") + "Cache used by `follow-window-start' and `follow-window-end'.") (defvar follow-fixed-window nil "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." ;; `font-lock-keywords-alist'. (when top-cell (dolist (keyword-list-how-pair (cdr top-cell)) - ;; `keywords-list-how-pair' is a cons with a list of + ;; `keyword-list-how-pair' is a cons with a list of ;; keywords in the car top-cell and the original how ;; argument in the cdr top-cell. (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 @@ ;; record. ;; ;; `write-file-functions' is defined to save the actual data file -;; instead of the buffer data, `revert-file-hook' is defined to +;; instead of the buffer data, `revert-buffer-function' is defined to ;; revert a forms to original. ;;; 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 @@ * gnus-async.el (gnus-asynchronous): Move defcustom of gnus-asynchronous away from defgroup of gnus-asynchronous. - This seems to fix an intermittant error in which loading gnus-async + This seems to fix an intermittent error in which loading gnus-async fails to define gnus-asynchronous (the variable). * gnus-sum.el: Concur with Steve Young, 5th argument to 'load' is @@ -7096,7 +7096,7 @@ * nnimap.el (nnimap-callback-callback-function): (nnimap-callback-buffer): Remove, these cannot be global but must be embedded into the callback. - (nnimap-make-callback): New. Embedd article number, callback and + (nnimap-make-callback): New. Embed article number, callback and buffer in function. (nnimap-callback, nnimap-request-article-part): Update. @@ -8031,7 +8031,7 @@ (message-xpost-fup2-header, message-xpost-insert-note) (message-xpost-fup2, message-reduce-to-to-cc): New functions adopted from message-utils.el. Add functions to the keymap, mode - describtion and menu. + description and menu. (message-change-subject, message-xpost-fup2): Signal error if current header is empty. (message-xpost-insert-note): Change insert position. @@ -8612,7 +8612,7 @@ 2002-06-11 Simon Josefsson <jas@extundo.com> * gnus-int.el (gnus-request-move-article): Agent expire article if - successfuly moved. + successfully moved. 2002-06-11 Niklas Morberg <niklas.morberg@axis.com> @@ -9073,7 +9073,7 @@ 2002-04-13 Josh Huber <huber@alum.wpi.edu> - * mml-sec.el (mml-secure-message): Change to support arbritrary + * mml-sec.el (mml-secure-message): Change to support arbitrary modes. * mml-sec.el (mml-secure-message-encrypt-(smime|pgp|pgpmime)): 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 @@ 2015-02-09 Lars Ingebrigtsen <larsi@gnus.org> * mm-decode.el (mm-convert-shr-links): Don't overwrite the faces from - shr, beacause that breaks folding. + shr, because that breaks folding. (mm-shr): Don't shorten the width when using fonts. 2015-02-05 Teodor Zlatanov <tzz@lifelogs.com> @@ -596,7 +596,7 @@ 2014-06-05 Katsumi Yamaoka <yamaoka@jpl.org> - * gnus-art.el (gnus-article-edit-part): Don't modifiy markers. + * gnus-art.el (gnus-article-edit-part): Don't modify markers. (gnus-article-read-summary-keys): Don't bug out when there is no article in the summary buffer. (gnus-mime-buttonize-attachments-in-header): @@ -1318,7 +1318,7 @@ 2013-08-06 Jan Tatarik <jan.tatarik@gmail.com> * gnus-icalendar.el (gnus-icalendar-event-from-ical): Replace pcase - with cond for backwards compatability. + with cond for backwards compatibility. 2013-08-06 Katsumi Yamaoka <yamaoka@jpl.org> @@ -2221,7 +2221,7 @@ 2013-04-04 Katsumi Yamaoka <yamaoka@jpl.org> - * mml.el (mml-minibuffer-read-description): Use `default' insted of + * mml.el (mml-minibuffer-read-description): Use `default' instead of `initial-input' for the argument name. Suggested by Stefan Monnier <monnier@iro.umontreal.ca>. @@ -5541,7 +5541,7 @@ (registry-prune-hard): Use it. * gnus-registry.el (gnus-registry-fixup-registry): Set prune-factor to - 0.1 expicitly. + 0.1 explicitly. 2011-05-13 Glenn Morris <rgm@gnu.org> @@ -8758,7 +8758,7 @@ * shr.el (shr-generic): The text nodes should be text, not :text. - * nnir.el (nnir-search-engine): Ressurect variable, since it's used + * nnir.el (nnir-search-engine): Resurrect variable, since it's used later in the file. 2010-10-30 Andrew Cohen <cohen@andy.bu.edu> @@ -9481,7 +9481,7 @@ nil. * gnus-start.el (gnus-get-unread-articles): Require gnus-agent before - bidning gnus-agent variables. + binding gnus-agent variables. * shr.el (shr-render-td): Use a cache for the table rendering function to avoid getting an exponential rendering behavior in nested tables. @@ -11849,7 +11849,7 @@ 2010-08-13 Teodor Zlatanov <tzz@lifelogs.com> - Doc fixes and keep unknown groups (ammended for nunion bug fix). + Doc fixes and keep unknown groups (amended for nunion bug fix). * gnus-sync.el: Fix docs. (gnus-sync-save): Keep unknown groups in `gnus-sync-newsrc-loader'. @@ -18925,7 +18925,7 @@ * message.el: Autoload gmm-image-load-path. (message-tool-bar-retro): Prepend "gnus/" subdirectory to some icon file names. Use old Emacs 21 "mail_send.xpm" icon for - consitency. + consistency. * gmm-utils.el (gmm-image-load-path): Also search in "../etc/images". Don't set gmm-image-load-path if we don't find @@ -19523,7 +19523,7 @@ * nnml.el: Don't require gnus-bcklg. Autoload it. (nnml-use-compressed-files, nnml-save-mail): Support other - comression programs such as bzip2. + compression programs such as bzip2. 2005-12-17 Lars Magne Ingebrigtsen <larsi@gnus.org> @@ -21227,7 +21227,7 @@ (nntp-with-open-group): Allow debugging. * nnheader.el (mail-header-set-extra): Make into a function - because I just could't understand how to quote the list properly. + because I just couldn't understand how to quote the list properly. * dns.el (query-dns-cached): New function. @@ -24966,7 +24966,7 @@ functions as needing (default), or not needing, gnus-convert-old-newsrc's "backup before upgrading warning". (gnus-convert-converter-needs-prompt): Tests whether the user - should be protected from potentially irreversable changes by the + should be protected from potentially irreversible changes by the function. * 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)." ;; input (3.1, 3.3) ;; - if line-length is set, error on input exceeding the limit (3.1) ;; - reject characters outside base encoding (3.3, also section 12) - (let ((splitstr (split-string str "[\n\r \t]+" t))) + ;; + ;; RFC 5322 section 2.2.3 consideration: + ;; Because base 64-encoded strings can appear in long header fields, remove + ;; folding whitespace while still observing the RFC 4648 decisions above. + (let ((splitstr (split-string str "[ \t]*[\r\n]+[ \t]?" t))) (when (and reject-newlines (> (length splitstr) 1)) (error "Invalid Base64 string")) (dolist (substr splitstr) @@ -1424,7 +1428,7 @@ SPEC is a predicate specifier that contains stuff like `or', `and', (autoload 'ido-completing-read "ido") (defun gnus-ido-completing-read (prompt collection &optional require-match initial-input history def) - "Call `ido-completing-read-function'." + "Call `ido-completing-read'." (ido-completing-read prompt collection nil require-match initial-input history def)) 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." (mail-file-babyl-p filename)) ;; gnus-output-to-mail does the wrong thing with live, mbox ;; Rmail buffers in Emacs 23. - ;; http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=597255 + ;; https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=597255 (let ((buff (find-buffer-visiting filename))) (and buff (with-current-buffer buff (eq major-mode 'rmail-mode))))) @@ -8100,7 +8100,7 @@ See `gmm-tool-bar-from-list' for the format of the list." (library image &optional path no-error)) (defun message-make-tool-bar (&optional force) - "Make a message mode tool bar from `message-tool-bar-list'. + "Make a message mode tool bar from `message-tool-bar'. When FORCE, rebuild the tool bar." (when (and (boundp 'tool-bar-mode) tool-bar-mode @@ -8591,7 +8591,7 @@ Meant for use on `completion-at-point-functions'." ;; FIXME: What is the most common term (circular letter, form letter, serial ;; letter, standard letter) for such kind of letter? See also -;; <http://en.wikipedia.org/wiki/Form_letter> +;; <https://en.wikipedia.org/wiki/Form_letter> ;; FIXME: Maybe extent message-mode's font-lock support to recognize ;; `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 @@ (mm-coding-system-p 'cp932)) '((windows-31j . cp932))) ;; Charset name: GBK, Charset aliases: CP936, MS936, windows-936 - ;; http://www.iana.org/assignments/charset-reg/GBK + ;; https://www.iana.org/assignments/charset-reg/GBK ;; Emacs 22.1 has cp936, but not gbk, so we alias it: ,@(when (and (not (mm-coding-system-p 'gbk)) (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. " (signal (car error) (cdr error)))) cipher)) -;; Should probably be removed and the interface should be different. -(defvar mml-secure-allow-signing-with-unknown-recipient nil - "Variable to bind to allow automatic recipient selection.") +(defun mml-secure-sender-sign-query (protocol sender) + "Query whether to use SENDER to sign when using PROTOCOL. +PROTOCOL will be `OpenPGP' or `CMS' (smime). +This can also save the resulting value of +`mml-secure-smime-sign-with-sender' or +`mml-secure-openpgp-sign-with-sender' via Customize. +Returns non-nil if the user has chosen to use SENDER." + (let ((buffer (get-buffer-create "*MML sender signing options*")) + (options '((?a "always" "Sign using this sender now and sign with message sender in future.") + (?s "session only" "Sign using this sender now, and sign with message sender for this session only.") + (?n "no" "Do not sign this message (and error out)"))) + answer done val) + (save-window-excursion + (pop-to-buffer buffer) + (erase-buffer) + (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?" + (if (eq protocol 'OpenPGP) + "openpgp" "smime") + sender)) + (while (not done) + (setq answer (read-multiple-choice "Sign this message using the sender?" options)) + (cl-case (car answer) + (?a + (if (eq protocol 'OpenPGP) + (progn + (setq mml-secure-openpgp-sign-with-sender t) + (customize-save-variable + 'mml-secure-openpgp-sign-with-sender t)) + (setq mml-secure-smime-sign-with-sender t) + (customize-save-variable 'mml-secure-smime-sign-with-sender t)) + (setq done t + val t)) + (?s + (if (eq protocol 'OpenPGP) + (setq mml-secure-openpgp-sign-with-sender t) + (setq mml-secure-smime-sign-with-sender t)) + (setq done t + val t)) + (?n + (setq done t))))) + val)) (defun mml-secure-epg-sign (protocol mode) ;; Based on code appearing inside mml2015-epg-sign. @@ -950,15 +988,21 @@ If no one is selected, symmetric encryption will be performed. " (signers (mml-secure-signers context signer-names)) signature micalg) (unless signers - (let ((maybe-msg - (if mml-secure-smime-sign-with-sender - "." - "; try setting `mml-secure-smime-sign-with-sender'."))) - ;; If `mml-secure-smime-sign-with-sender' is already non-nil - ;; then there's no point advising the user to examine it. If - ;; there are any other variables worth examining, please - ;; improve this error message by having it mention them. - (unless mml-secure-allow-signing-with-unknown-recipient + (if (and (not noninteractive) + (mml-secure-sender-sign-query protocol sender)) + (setq signer-names (mml-secure-signer-names protocol sender) + signers (mml-secure-signers context signer-names))) + (unless signers + (let ((maybe-msg + (if (or mml-secure-smime-sign-with-sender + mml-secure-openpgp-sign-with-sender) + "." + "; try setting `mml-secure-smime-sign-with-sender' or 'mml-secure-openpgp-sign-with-sender'."))) + ;; If `mml-secure-smime-sign-with-sender' or + ;; `mml-secure-openpgp-sign-with-sender' are already non-nil + ;; then there's no point advising the user to examine them. + ;; If there are any other variables worth examining, please + ;; improve this error message by having it mention them. (error "Couldn't find any signer names%s" maybe-msg)))) (when (eq 'OpenPGP protocol) (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." (define-obsolete-variable-alias 'nndiary-request-update-info-hooks 'nndiary-request-update-info-functions "24.3") (defcustom nndiary-request-update-info-functions nil - "Hook run after `nndiary-request-update-info-group' is executed. + "Hook run after `nndiary-request-update-info' is executed. The hook functions will be called with the full group name as argument." :group 'nndiary :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'.") nnmaildir--cur-server nil) ;; This slightly obscure invocation of `alist-get' removes SERVER from - ;; `nnmaildir-servers'. + ;; `nnmaildir--servers'. (setf (alist-get (nnmaildir--srv-address server) nnmaildir--servers server 'remove #'equal) 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" (defun nnrss-normalize-date (date) "Return a date string of DATE in the style of RFC 822 and its successors. This function handles the ISO 8601 date format described in -URL `http://www.w3.org/TR/NOTE-datetime', and also the RFC 822 style +URL `https://www.w3.org/TR/NOTE-datetime', and also the RFC 822 style which RSS 2.0 allows." (let (case-fold-search vector year month day time zone cts given) (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 @@ ;; Author: Alex Schroeder <alex@gnu.org> ;; Keywords: network -;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?SpamStat +;; URL: https://www.emacswiki.org/cgi-bin/wiki.pl?SpamStat ;; This file is part of GNU Emacs. 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." (when (null encoded) (setq internal (encode-coding-string internal 'utf-8-emacs) internal-hex - (mapconcat (function (lambda (c) (format "%x" c))) + (mapconcat (lambda (c) (format "%x" c)) internal " ")) (if (yes-or-no-p (format-message @@ -899,7 +899,7 @@ and their encoded form is inserted byte by byte." (substitute-command-keys "try \\[hexl-insert-hex-string]")))) (while (> num 0) (mapc - (function (lambda (c) (hexl-insert-char c 1))) encoded) + (lambda (c) (hexl-insert-char c 1)) encoded) (setq num (1- num)))))))) (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." (font-lock-add-keywords nil hi-lock-file-patterns t) (font-lock-flush))) +;;;###autoload (defun hi-lock-find-patterns () "Add patterns from the current buffer to the list of hi-lock patterns." (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 @@ ;; ============= ;; ;; * The ImageMagick package. Currently, `convert' and `mogrify' are -;; used. Find it here: http://www.imagemagick.org. +;; used. Find it here: https://www.imagemagick.org. ;; ;; * For non-lossy rotation of JPEG images, the JpegTRAN program is ;; needed. ;; -;; * For `image-dired-get-exif-data' and `image-dired-write-exif-data' to work, +;; * For `image-dired-get-exif-data' and `image-dired-set-exif-data' to work, ;; the command line tool `exiftool' is needed. It can be found here: ;; http://www.sno.phy.queensu.ca/~phil/exiftool/. These two functions ;; are, among other things, used for writing comments to image files @@ -205,7 +205,7 @@ the index.html page that image-dired creates." :group 'image-dired) (defcustom image-dired-gallery-image-root-url -"http://your.own.server/image-diredpics" +"https://your.own.server/image-diredpics" "URL where the full size images are to be found. Note that this path has to be configured in your web server. Image-Dired expects to find pictures in this directory." @@ -213,7 +213,7 @@ expects to find pictures in this directory." :group 'image-dired) (defcustom image-dired-gallery-thumb-image-root-url -"http://your.own.server/image-diredthumbs" +"https://your.own.server/image-diredthumbs" "URL where the thumbnail images are to be found. Note that this path has to be configured in your web server. Image-Dired expects to find pictures in this directory." @@ -309,7 +309,7 @@ temporary file name (typically generated by pnqnq)." :group 'image-dired) (defcustom image-dired-cmd-optipng-options '("-o5" "%t") - "Arguments passed to `image-dired-optipng-program'. + "Arguments passed to `image-dired-cmd-optipng-program'. Available format specifiers are described in `image-dired-cmd-create-thumbnail-options'." :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." N=0 refers to the initial animation frame. COUNT is the total number of frames in the animation. TIME-ELAPSED is the total time that has elapsed since -`image-animate-start' was called. +`image-animate' was called. LIMIT determines when to stop. If t, loop forever. If nil, stop after displaying the last animation frame. Otherwise, stop 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") ;; For each group (row) of 2-byte character sets. (define-category ?A "2-byte alnum -Alpha-numeric characters of 2-byte character sets") +Alphanumeric characters of 2-byte character sets") (define-category ?C "2-byte han Chinese (Han) characters of 2-byte character sets") (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\"." (forward-line 1))) (maphash #'(lambda (key val) (setq dic (cons (cons key val) dic))) table))) - (setq dic (sort dic (function (lambda (x y) (string< (car x ) (car y)))))) + (setq dic (sort dic (lambda (x y) (string< (car x ) (car y))))) (dolist (elt dic) (insert (format "(%S\t%S)\n" (car elt) (cdr elt)))) (let ((punctuation '((";" "$(0!'!2!"!#!.!/(B" "$(G!'!2!"!#!.!/(B") @@ -956,7 +956,7 @@ method `chinese-tonepy' with which you must specify tones by digits (setq trans (mapconcat 'identity trans ""))))) (setq dic (cons (cons key trans) dic))) table))) - (setq dic (sort dic (function (lambda (x y) (string< (car x) (car y)))))) + (setq dic (sort dic (lambda (x y) (string< (car x) (car y))))) (goto-char (point-max)) (insert (format "%S\n" "$A::WVJdHk!K!>WTH;!?!K(B 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 @@ ;; This program has passed the NormalizationTest-5.2.0.txt. ;; ;; References: -;; http://www.unicode.org/reports/tr15/ -;; http://www.unicode.org/review/pr-29.html +;; https://www.unicode.org/reports/tr15/ +;; https://www.unicode.org/review/pr-29.html ;; ;; HFS-Normalization: ;; Reference: @@ -131,7 +131,7 @@ #x1D1BF #x1D1C0) "Composition Exclusion List. This list is taken from - http://www.unicode.org/Public/UNIDATA/5.2/CompositionExclusions.txt") + https://www.unicode.org/Public/UNIDATA/5.2/CompositionExclusions.txt") ;; Unicode ranges that decompositions & combining characters are defined. (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' (defcustom search-highlight-submatches t "Whether to highlight regexp subexpressions of the current regexp match. - -The faces used to do the highlights are named `isearch-group-1', -`isearch-group-2', and so on." +The faces used to do the highlights are named `isearch-group-odd' and +`isearch-group-even'." :type 'boolean :version "28.1") @@ -3664,97 +3663,26 @@ since they have special meaning in a regexp." (defvar isearch-overlay nil) (defvar isearch-submatches-overlays nil) -(defface isearch-group-1 +(defface isearch-group-odd '((((class color) (min-colors 88) (background light)) (:background "#ff00ff" :foreground "lightskyblue1")) (((class color) (min-colors 88) (background dark)) (:background "palevioletred3" :foreground "brown4")) (t (:inherit isearch))) - "Face for highlighting Isearch sub-group matches (first sub-group)." - :group 'isearch - :version "28.1") - -(defface isearch-group-2 - '((((class color) (min-colors 88) (background light)) - (:background "#d000d0" :foreground "lightskyblue1")) - (((class color) (min-colors 88) (background dark)) - (:background "#be698f" :foreground "black")) - (t (:inherit isearch))) - "Face for highlighting Isearch sub-group matches (second sub-group)." - :group 'isearch - :version "28.1") - -(defface isearch-group-3 - '((((class color) (min-colors 88) (background light)) - (:background "#a000a0" :foreground "lightskyblue1")) - (((class color) (min-colors 88) (background dark)) - (:background "#a06080" :foreground "brown4")) - (t (:inherit isearch))) - "Face for highlighting Isearch sub-group matches (third sub-group)." + "Face for highlighting Isearch the odd group matches." :group 'isearch :version "28.1") -(defface isearch-group-4 +(defface isearch-group-even '((((class color) (min-colors 88) (background light)) (:background "#800080" :foreground "lightskyblue1")) (((class color) (min-colors 88) (background dark)) (:background "#905070" :foreground "brown4")) (t (:inherit isearch))) - "Face for highlighting Isearch sub-group matches (fourth sub-group)." - :group 'isearch - :version "28.1") - -(defface isearch-group-5 - '((((class color) (min-colors 88) (background light)) - (:background "#600060" :foreground "lightskyblue1")) - (((class color) (min-colors 88) (background dark)) - (:background "#804060" :foreground "black")) - (t (:inherit isearch))) - "Face for highlighting Isearch sub-group matches (fifth sub-group)." - :group 'isearch - :version "28.1") - -(defface isearch-group-6 - '((((class color) (min-colors 88) (background light)) - (:background "#500050" :foreground "lightskyblue1")) - (((class color) (min-colors 88) (background dark)) - (:background "#703050" :foreground "white")) - (t (:inherit isearch))) - "Face for highlighting Isearch sub-group matches (sixth sub-group)." - :group 'isearch - :version "28.1") - -(defface isearch-group-7 - '((((class color) (min-colors 88) (background light)) - (:background "#400040" :foreground "lightskyblue1")) - (((class color) (min-colors 88) (background dark)) - (:background "#602050" :foreground "white")) - (t (:inherit isearch))) - "Face for highlighting Isearch sub-group matches (seventh sub-group)." - :group 'isearch - :version "28.1") - -(defface isearch-group-8 - '((((class color) (min-colors 88) (background light)) - (:background "#300030" :foreground "lightskyblue1")) - (((class color) (min-colors 88) (background dark)) - (:background "#501050" :foreground "white")) - (t (:inherit isearch))) - "Face for highlighting Isearch sub-group matches (eighth sub-group)." + "Face for highlighting Isearch the even group matches." :group 'isearch :version "28.1") -(defface isearch-group-9 - '((((class color) (min-colors 88) (background light)) - (:background "#200020" :foreground "lightskyblue1")) - (((class color) (min-colors 88) (background dark)) - (:background "#400040" :foreground "white")) - (t (:inherit isearch))) - "Face for highlighting Isearch sub-group matches (ninth sub-group)." - :group 'isearch - :version "28.1") - - (defun isearch-highlight (beg end) (if search-highlight (if isearch-overlay @@ -3769,14 +3697,14 @@ since they have special meaning in a regexp." isearch-regexp) (mapc 'delete-overlay isearch-submatches-overlays) (setq isearch-submatches-overlays nil) - (let ((i 0) ov) - (while (<= i 9) - (when (match-beginning i) - (setq ov (make-overlay (match-beginning i) (match-end i))) - (overlay-put ov 'face (intern-soft (format "isearch-group-%d" i))) + (dotimes (i (/ (length (match-data)) 2)) + (unless (zerop i) + (let ((ov (make-overlay (match-beginning i) (match-end i)))) + (overlay-put ov 'face (if (zerop (mod i 2)) + 'isearch-group-even + 'isearch-group-odd)) (overlay-put ov 'priority 1002) - (push ov isearch-submatches-overlays)) - (setq i (1+ i)))))) + (push ov isearch-submatches-overlays)))))) (defun isearch-dehighlight () (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. The caller can expect SUCCESS-FN or ERROR-FN to be called with a JSONRPC `:result' or `:error' object, respectively. If this doesn't happen after TIMEOUT seconds (defaults to -`jsonrpc-request-timeout'), the caller can expect TIMEOUT-FN to be -called with no arguments. The default values of SUCCESS-FN, +`jrpc-default-request-timeout'), the caller can expect TIMEOUT-FN +to be called with no arguments. The default values of SUCCESS-FN, ERROR-FN and TIMEOUT-FN simply log the events into `jsonrpc-events-buffer'. @@ -649,7 +649,7 @@ TIMEOUT is nil)." (if (jsonrpc-connection-ready-p connection deferred) ;; Server is ready, we jump below and send it immediately. (remhash (list deferred buf) (jsonrpc--deferred-actions connection)) - ;; Otherwise, save in `eglot--deferred-actions' and exit non-locally + ;; Otherwise, save in `jsonrpc--deferred-actions' and exit non-locally (unless old-id (jsonrpc--debug connection `(:deferring ,method :id ,id :params ,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." (compose-region from to components))))))) (defvar tibetan-decompose-precomposition-alist - (mapcar (function (lambda (x) (cons (string-to-char (cdr x)) (car x)))) + (mapcar (lambda (x) (cons (string-to-char (cdr x)) (car x))) tibetan-precomposition-rule-alist)) ;;;###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. The key used to retrieve the password is the symbol `secret'. The convention used as the format for a password-store file is -the following (see http://www.passwordstore.org/#organization): +the following (see https://www.passwordstore.org/#organization): secret key1: value1 @@ -5950,12 +5950,12 @@ Variables controlling indentation style: `cperl-min-label-indent' Minimal indentation for line that is a label. -Settings for classic indent-styles: K&R BSD=C++ GNU PerlStyle=Whitesmith - `cperl-indent-level' 5 4 2 4 - `cperl-brace-offset' 0 0 0 0 - `cperl-continued-brace-offset' -5 -4 0 0 - `cperl-label-offset' -5 -4 -2 -4 - `cperl-continued-statement-offset' 5 4 2 4 +Settings for classic indent-styles: K&R BSD=C++ GNU PBP PerlStyle=Whitesmith + `cperl-indent-level' 5 4 2 4 4 + `cperl-brace-offset' 0 0 0 0 0 + `cperl-continued-brace-offset' -5 -4 0 0 0 + `cperl-label-offset' -5 -4 -2 -2 -4 + `cperl-continued-statement-offset' 5 4 2 4 4 CPerl knows several indentation styles, and may bulk set the corresponding variables. Use \\[cperl-set-style] to do this. Use @@ -6726,7 +6726,7 @@ Create a new data-debug buffer with NAME. (autoload 'dbus-handle-event "dbus" "\ Handle events from the D-Bus. EVENT is a D-Bus event, see `dbus-check-event'. HANDLER, being -part of the event, is called with arguments ARGS. +part of the event, is called with arguments ARGS (without type information). If the HANDLER returns a `dbus-error', it is propagated as return message. \(fn EVENT)" t nil) @@ -7762,6 +7762,23 @@ Keybindings: \(fn &optional DIRNAME SWITCHES)" nil nil) (put 'dired-find-alternate-file 'disabled t) +(autoload 'dired-jump "dired" "\ +Jump to Dired buffer corresponding to current buffer. +If in a file, Dired the current directory and move to file's line. +If in Dired already, pop up a level and goto old directory's line. +In case the proper Dired file line cannot be found, refresh the dired +buffer and try again. +When OTHER-WINDOW is non-nil, jump to Dired buffer in other window. +When FILE-NAME is non-nil, jump to its line in Dired. +Interactively with prefix argument, read FILE-NAME. + +\(fn &optional OTHER-WINDOW FILE-NAME)" t nil) + +(autoload 'dired-jump-other-window "dired" "\ +Like \\[dired-jump] (`dired-jump') but in other window. + +\(fn &optional FILE-NAME)" t nil) + (register-definition-prefixes "dired" '("dired-")) ;;;*** @@ -8300,9 +8317,6 @@ BODY contains code to execute each time the mode is enabled or disabled. the minor mode is global): :group GROUP Custom group name to use in all generated `defcustom' forms. - Defaults to MODE without the possible trailing \"-mode\". - Don't use this default group name unless you have written a - `defgroup' to define that group properly. :global GLOBAL If non-nil specifies that the minor mode is not meant to be buffer-local, so don't make the variable MODE buffer-local. By default, the mode is buffer-local. @@ -10028,7 +10042,7 @@ It creates an autoload function for CNAME's constructor. ;;;### (autoloads nil "eldoc" "emacs-lisp/eldoc.el" (0 0 0 0)) ;;; Generated autoloads from emacs-lisp/eldoc.el -(push (purecopy '(eldoc 1 9 0)) package--builtin-versions) +(push (purecopy '(eldoc 1 10 0)) package--builtin-versions) ;;;*** @@ -10292,7 +10306,7 @@ displayed." t nil) ;;;;;; (0 0 0 0)) ;;; Generated autoloads from eshell/em-unix.el -(register-definition-prefixes "em-unix" '("eshell" "nil-blank-string" "pcomplete/")) +(register-definition-prefixes "em-unix" '("eshell" "nil-blank-string")) ;;;*** @@ -10300,7 +10314,7 @@ displayed." t nil) ;;;;;; (0 0 0 0)) ;;; Generated autoloads from eshell/em-xtra.el -(register-definition-prefixes "em-xtra" '("eshell/" "pcomplete/bcc")) +(register-definition-prefixes "em-xtra" '("eshell/")) ;;;*** @@ -10349,7 +10363,15 @@ Already submitted bugs can be found in the Emacs bug tracker: (set-advertised-calling-convention 'report-emacs-bug '(topic) '"24.5") -(register-definition-prefixes "emacsbug" '("report-emacs-bug-")) +(autoload 'submit-emacs-patch "emacsbug" "\ +Send an Emacs patch to the Emacs maintainers. +Interactively, you will be prompted for SUBJECT and a patch FILE +name (which will be attached to the mail). You will end up in a +Message buffer where you can explain more about the patch. + +\(fn SUBJECT FILE)" t nil) + +(register-definition-prefixes "emacsbug" '("emacs-bug--system-description" "report-emacs-bug-")) ;;;*** @@ -11106,6 +11128,14 @@ Interactively select a server to connect to using `erc-server-alist'." t nil) ;;;*** +;;;### (autoloads "actual autoloads are elsewhere" "erc-status-sidebar" +;;;;;; "erc/erc-status-sidebar.el" (0 0 0 0)) +;;; Generated autoloads from erc/erc-status-sidebar.el + +(register-definition-prefixes "erc-status-sidebar" '("erc-status-sidebar-")) + +;;;*** + ;;;### (autoloads "actual autoloads are elsewhere" "erc-track" "erc/erc-track.el" ;;;;;; (0 0 0 0)) ;;; Generated autoloads from erc/erc-track.el @@ -11253,6 +11283,11 @@ Emacs shell interactive mode. \(fn)" t nil) +(autoload 'eshell-bookmark-jump "esh-mode" "\ +Default bookmark handler for Eshell buffers. + +\(fn BOOKMARK)" nil nil) + (register-definition-prefixes "esh-mode" '("eshell")) ;;;*** @@ -11599,7 +11634,7 @@ Do `query-replace-regexp' of FROM with TO on all files listed in tags table. Third arg DELIMITED (prefix arg) means replace only word-delimited matches. If you exit (\\[keyboard-quit], RET or q), you can resume the query replace with the command \\[tags-loop-continue]. -For non-interactive use, superceded by `fileloop-initialize-replace'. +For non-interactive use, superseded by `fileloop-initialize-replace'. \(fn FROM TO &optional DELIMITED FILES)" t nil) @@ -12818,6 +12853,9 @@ The command run (after changing into DIR) is essentially except that the car of the variable `find-ls-option' specifies what to use in place of \"-ls\" as the final argument. +Collect output in the \"*Find*\" buffer. To kill the job before +it finishes, type \\[kill-find]. + \(fn DIR ARGS)" t nil) (autoload 'find-name-dired "find-dired" "\ @@ -14112,6 +14150,10 @@ instead (which see).") (autoload 'define-generic-mode "generic" "\ Create a new generic mode MODE. +A \"generic\" mode is a simple major mode with basic support for +comment syntax and Font Lock mode, but otherwise does not have +any special keystrokes or functionality available. + MODE is the name of the command for the generic mode; don't quote it. The optional DOCSTRING is the documentation for the mode command. If you do not supply it, `define-generic-mode' uses a default @@ -17590,7 +17632,7 @@ The main features of this mode are \\[idlwave-info] to display (complain to your sysadmin if that does not work). For Postscript, PDF, and HTML versions of the documentation, check IDLWAVE's homepage at URL - `http://github.com/jdtsmith/idlwave'. + `https://github.com/jdtsmith/idlwave'. IDLWAVE has customize support - see the group `idlwave'. 10.Keybindings @@ -21608,7 +21650,7 @@ upper atmosphere. These cause momentary pockets of higher-pressure air to form, which act as lenses that deflect incoming cosmic rays, focusing them to strike the drive platter and flip the desired bit. You can type `M-x butterfly C-M-c' to run it. This is a permuted -variation of `C-x M-c M-butterfly' from url `http://xkcd.com/378/'." t nil) +variation of `C-x M-c M-butterfly' from url `https://xkcd.com/378/'." t nil) (autoload 'list-dynamic-libraries "misc" "\ Display a list of all dynamic libraries known to Emacs. @@ -22130,6 +22172,12 @@ different buffer menu using the function `msb'. ;;;### (autoloads nil "mspools" "mail/mspools.el" (0 0 0 0)) ;;; Generated autoloads from mail/mspools.el +(autoload 'mspools-show "mspools" "\ +Show the list of non-empty spool files in the *spools* buffer. +Buffer is not displayed if SHOW is non-nil. + +\(fn &optional NOSHOW)" t nil) + (register-definition-prefixes "mspools" '("mspools-")) ;;;*** @@ -22848,7 +22896,7 @@ This command does not work if you use short group names." t nil) ;;;### (autoloads nil "nnir" "gnus/nnir.el" (0 0 0 0)) ;;; Generated autoloads from gnus/nnir.el -(register-definition-prefixes "nnir" '("gnus-" "nnir-")) +(register-definition-prefixes "nnir" '("nnir-")) ;;;*** @@ -22927,6 +22975,13 @@ Generate NOV databases in all nnml directories. ;;;*** +;;;### (autoloads nil "nnselect" "gnus/nnselect.el" (0 0 0 0)) +;;; Generated autoloads from gnus/nnselect.el + +(register-definition-prefixes "nnselect" '("gnus-" "ids-by-group" "nnselect-" "numbers-by-group")) + +;;;*** + ;;;### (autoloads nil "nnspool" "gnus/nnspool.el" (0 0 0 0)) ;;; Generated autoloads from gnus/nnspool.el @@ -25502,7 +25557,12 @@ Completion rules for the `ssh' command." nil nil) Completion rules for the `scp' command. Includes files as well as host names followed by a colon." nil nil) -(register-definition-prefixes "pcmpl-unix" '("pcmpl-")) +(autoload 'pcomplete/telnet "pcmpl-unix" nil nil nil) + +(autoload 'pcomplete/rsh "pcmpl-unix" "\ +Complete `rsh', which, after the user and hostname, is like xargs." nil nil) + +(register-definition-prefixes "pcmpl-unix" '("pcmpl-" "pcomplete/")) ;;;*** @@ -25522,6 +25582,11 @@ long options." nil nil) (autoload 'pcomplete/ag "pcmpl-x" "\ Completion for the `ag' command." nil nil) +(autoload 'pcomplete/bcc32 "pcmpl-x" "\ +Completion function for Borland's C++ compiler." nil nil) + +(defalias 'pcomplete/bcc 'pcomplete/bcc32) + (register-definition-prefixes "pcmpl-x" '("pcmpl-x-")) ;;;*** @@ -26573,7 +26638,7 @@ Open profile FILENAME. ;;;### (autoloads nil "project" "progmodes/project.el" (0 0 0 0)) ;;; Generated autoloads from progmodes/project.el -(push (purecopy '(project 0 5 1)) package--builtin-versions) +(push (purecopy '(project 0 5 2)) package--builtin-versions) (autoload 'project-current "project" "\ Return the project instance in DIRECTORY, defaulting to `default-directory'. @@ -26622,7 +26687,8 @@ Run project command, displaying resultant buffer in a new tab. The following commands are available: \\{project-prefix-map}" t nil) - (define-key tab-prefix-map "p" #'project-other-tab-command) + +(when (bound-and-true-p tab-prefix-map) (define-key tab-prefix-map "p" #'project-other-tab-command)) (autoload 'project-find-regexp "project" "\ Find all matches for REGEXP in the current project's roots. @@ -26742,7 +26808,7 @@ identical. Only the buffers that match a condition in `project-kill-buffer-conditions' will be killed. If NO-CONFIRM is non-nil, the command will not ask the user for confirmation. NO-CONFIRM is always nil when the command is invoked -interactivly. +interactively. \(fn &optional NO-CONFIRM)" t nil) @@ -28249,6 +28315,8 @@ disabled. Reveal mode is a buffer-local minor mode. When enabled, it reveals invisible text around point. +Also see the `reveal-auto-hide' variable. + \(fn &optional ARG)" t nil) (defvar global-reveal-mode nil "\ @@ -28873,7 +28941,7 @@ to use for finding the schema. ;;;### (autoloads nil "rng-xsd" "nxml/rng-xsd.el" (0 0 0 0)) ;;; Generated autoloads from nxml/rng-xsd.el -(put 'http://www\.w3\.org/2001/XMLSchema-datatypes 'rng-dt-compile #'rng-xsd-compile) +(put 'https://www\.w3\.org/2001/XMLSchema-datatypes 'rng-dt-compile #'rng-xsd-compile) (autoload 'rng-xsd-compile "rng-xsd" "\ Provide W3C XML Schema as a RELAX NG datatypes library. @@ -30414,7 +30482,7 @@ and `default-sendmail-coding-system', but lower priority than the local value of `buffer-file-coding-system'. See also the function `select-message-coding-system'.") -(defvar default-sendmail-coding-system 'iso-latin-1 "\ +(defvar default-sendmail-coding-system 'utf-8 "\ Default coding system for encoding the outgoing mail. This variable is used only when `sendmail-coding-system' is nil. @@ -31479,7 +31547,7 @@ Use \\[so-long-customize] to configure the behaviour. ;;;### (autoloads nil "soap-client" "net/soap-client.el" (0 0 0 0)) ;;; Generated autoloads from net/soap-client.el -(push (purecopy '(soap-client 3 1 5)) package--builtin-versions) +(push (purecopy '(soap-client 3 2 0)) package--builtin-versions) (register-definition-prefixes "soap-client" '("soap-")) @@ -32718,6 +32786,27 @@ Studlify-case the current buffer." t nil) ;;;### (autoloads nil "subr-x" "emacs-lisp/subr-x.el" (0 0 0 0)) ;;; Generated autoloads from emacs-lisp/subr-x.el +(autoload 'if-let "subr-x" "\ +Bind variables according to SPEC and evaluate THEN or ELSE. +Evaluate each binding in turn, as in `let*', stopping if a +binding value is nil. If all are non-nil return the value of +THEN, otherwise the last form in ELSE. + +Each element of SPEC is a list (SYMBOL VALUEFORM) that binds +SYMBOL to the value of VALUEFORM. An element can additionally be +of the form (VALUEFORM), which is evaluated and checked for nil; +i.e. SYMBOL can be omitted if only the test result is of +interest. It can also be of the form SYMBOL, then the binding of +SYMBOL is checked for nil. + +As a special case, interprets a SPEC of the form (SYMBOL SOMETHING) +like ((SYMBOL SOMETHING)). This exists for backward compatibility +with an old syntax that accepted only one binding. + +\(fn SPEC THEN &rest ELSE)" nil t) + +(function-put 'if-let 'lisp-indent-function '2) + (autoload 'when-let "subr-x" "\ Bind variables according to SPEC and conditionally evaluate BODY. Evaluate each binding in turn, stopping if a binding value is nil. @@ -32734,7 +32823,7 @@ Truncate STRING to LENGTH, replacing initial surplus with \"...\". \(fn STRING LENGTH)" nil nil) -(register-definition-prefixes "subr-x" '("and-let*" "hash-table-" "if-let" "internal--" "replace-region-contents" "string-" "thread-" "when-let*")) +(register-definition-prefixes "subr-x" '("and-let*" "hash-table-" "if-let*" "internal--" "replace-region-contents" "string-" "thread-" "when-let*")) ;;;*** @@ -32880,7 +32969,7 @@ and `sc-post-hook' is run after the guts of this function." nil nil) ;;;### (autoloads nil "svg" "svg.el" (0 0 0 0)) ;;; Generated autoloads from svg.el -(push (purecopy '(svg 1 0)) package--builtin-versions) +(push (purecopy '(svg 1 1)) package--builtin-versions) (register-definition-prefixes "svg" '("svg-")) @@ -33383,7 +33472,7 @@ buffer, and leaves the previous contents of the buffer untouched. References used for this implementation: HTML: - URL `http://www.w3.org' + URL `https://www.w3.org' LaTeX: URL `http://www.maths.tcd.ie/~dwilkins/LaTeXPrimer/Tables.html' @@ -34597,7 +34686,7 @@ runs the normal hook `display-time-hook' after each update. \(fn &optional ARG)" t nil) -(defalias 'display-time-world #'world-clock) +(define-obsolete-function-alias 'display-time-world #'world-clock "28.1") (autoload 'world-clock "time" "\ 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]'. Return a string giving the uptime of this instance of Emacs. FORMAT is a string to format the result, using `format-seconds'. For example, the Unix uptime command format is \"%D, %z%2h:%.2m\". +If the optional argument HERE is non-nil, insert string at +point. -\(fn &optional FORMAT)" t nil) +\(fn &optional FORMAT HERE)" t nil) (autoload 'emacs-init-time "time" "\ Return a string giving the duration of the Emacs initialization." t nil) @@ -38441,6 +38532,11 @@ See also `warning-series', `warning-prefix-function', `warning-fill-prefix', and `warning-fill-column' for additional programming features. +This will also display buttons allowing the user to permanently +disable automatic display of the warning or disable the warning +entirely by setting `warning-suppress-types' or +`warning-suppress-log-types' on their behalf. + \(fn TYPE MESSAGE &optional LEVEL BUFFER-NAME)" nil nil) (autoload 'lwarn "warnings" "\ @@ -39601,16 +39697,16 @@ Zone out, completely." t nil) ;;;;;; "erc/erc-notify.el" "erc/erc-page.el" "erc/erc-pcomplete.el" ;;;;;; "erc/erc-replace.el" "erc/erc-ring.el" "erc/erc-services.el" ;;;;;; "erc/erc-sound.el" "erc/erc-speedbar.el" "erc/erc-spelling.el" -;;;;;; "erc/erc-stamp.el" "erc/erc-track.el" "erc/erc-truncate.el" -;;;;;; "erc/erc-xdcc.el" "eshell/em-alias.el" "eshell/em-banner.el" -;;;;;; "eshell/em-basic.el" "eshell/em-cmpl.el" "eshell/em-dirs.el" -;;;;;; "eshell/em-glob.el" "eshell/em-hist.el" "eshell/em-ls.el" -;;;;;; "eshell/em-pred.el" "eshell/em-prompt.el" "eshell/em-rebind.el" -;;;;;; "eshell/em-script.el" "eshell/em-smart.el" "eshell/em-term.el" -;;;;;; "eshell/em-tramp.el" "eshell/em-unix.el" "eshell/em-xtra.el" -;;;;;; "facemenu.el" "faces.el" "files.el" "font-core.el" "font-lock.el" -;;;;;; "format.el" "frame.el" "help.el" "hfy-cmap.el" "ibuf-ext.el" -;;;;;; "indent.el" "international/characters.el" "international/charprop.el" +;;;;;; "erc/erc-stamp.el" "erc/erc-status-sidebar.el" "erc/erc-track.el" +;;;;;; "erc/erc-truncate.el" "erc/erc-xdcc.el" "eshell/em-alias.el" +;;;;;; "eshell/em-banner.el" "eshell/em-basic.el" "eshell/em-cmpl.el" +;;;;;; "eshell/em-dirs.el" "eshell/em-glob.el" "eshell/em-hist.el" +;;;;;; "eshell/em-ls.el" "eshell/em-pred.el" "eshell/em-prompt.el" +;;;;;; "eshell/em-rebind.el" "eshell/em-script.el" "eshell/em-smart.el" +;;;;;; "eshell/em-term.el" "eshell/em-tramp.el" "eshell/em-unix.el" +;;;;;; "eshell/em-xtra.el" "facemenu.el" "faces.el" "files.el" "font-core.el" +;;;;;; "font-lock.el" "format.el" "frame.el" "help.el" "hfy-cmap.el" +;;;;;; "ibuf-ext.el" "indent.el" "international/characters.el" "international/charprop.el" ;;;;;; "international/charscript.el" "international/cp51932.el" ;;;;;; "international/eucjp-ms.el" "international/mule-cmds.el" ;;;;;; "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 of the mapping.") (quail-define-rules - ;; Table taken from http://en.wikipedia.org/wiki/X-SAMPA, checked with + ;; Table taken from https://en.wikipedia.org/wiki/X-SAMPA, checked with ;; http://www.phon.ucl.ac.uk/home/sampa/ipasam-x.pdf ("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." ;; ;; Source: ISO 3166 Maintenance Agency ;; http://www.iso.org/iso/en/prods-services/iso3166ma/02iso-3166-code-lists/list-en1-semic.txt -;; http://www.iana.org/domain-names.htm -;; http://www.iana.org/cctld/cctld-whois.htm +;; https://www.iana.org/domain-names.htm +;; https://www.iana.org/cctld/cctld-whois.htm ;; Latest change: 2007/11/15 (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." (setq mail-names (sort (append (if (consp mail-aliases) (mapcar - (function (lambda (a) (list (car a)))) + (lambda (a) (list (car a))) mail-aliases)) (if (consp mail-local-names) 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." (with-current-buffer rmail-view-buffer ;; We give the view buffer a buffer-local value of ;; rmail-header-style based on the binding in effect when - ;; this function is called; `rmail-toggle-headers' can + ;; this function is called; `rmail-toggle-header' can ;; inspect this value to determine how to toggle. (set (make-local-variable 'rmail-header-style) header-style) ;; 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 @@ ;; Modified by Simon Josefsson <jas@pdc.kth.se>, 22/2/99, to support SMTP ;; Authentication by the AUTH mechanism. -;; See http://www.ietf.org/rfc/rfc2554.txt +;; See https://www.ietf.org/rfc/rfc2554.txt ;;; Code: ;;; 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 @@ ;; SQL buffer. ;; ;; (add-hook 'sql-mode-hook -;; (function (lambda () -;; (master-mode t) -;; (master-set-slave sql-buffer)))) +;; (lambda () +;; (master-mode t) +;; (master-set-slave sql-buffer))) ;; (add-hook 'sql-set-sqli-hook -;; (function (lambda () -;; (master-set-slave sql-buffer)))) +;; (lambda () +;; (master-set-slave sql-buffer))) ;;; Thanks to all the people who helped me out: ;; 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." &rest body) "Define a menu-bar toggle command. See `menu-bar-make-toggle-command', for which this is a -compatability wrapper. BODY is passed in as SETTING-SEXP in that macro." +compatibility wrapper. BODY is passed in as SETTING-SEXP in that macro." (declare (obsolete menu-bar-make-toggle-command "28.1")) `(menu-bar-make-toggle-command ,command ,variable ,item-name ,message ,help ,(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 @@ * mh-customize.el (mh-show-pgg-good-face) (mh-show-pgg-unknown-face, mh-show-pgg-bad-face): Faces added to - highlight buttons introduced for encrpted or signed MIME parts. + highlight buttons introduced for encrypted or signed MIME parts. 2005-03-19 Bill Wohler <wohler@newt.com> @@ -428,7 +428,7 @@ 2004-11-28 Jeffrey C Honig <jch@honig.net> * mh-comp.el (mh-complete-word): Kill the *Completions* buffer in - any cases where we belive we are done with it. Not perfect, but + any cases where we believe we are done with it. Not perfect, but better than just leaving it around. 2004-11-08 Satyaki Das <satyaki@theforce.stanford.edu> @@ -818,7 +818,7 @@ * Makefile: (mh-e-autoloads.el): Add target to make `mh-e-autoloads.el', a - file containg usual entry commands into MH-E to be used for users + file containing usual entry commands into MH-E to be used for users installing MH-E separately from Emacs. (XEMACS_LOADDEFS_FILE): New. Used to generate mh-loaddefs.el in XEmacs. @@ -1201,7 +1201,7 @@ 2003-11-01 Peter S Galbraith <psg@debian.org> - * Makefile: Add target to make `mh-startup.el', a file containg + * Makefile: Add target to make `mh-startup.el', a file containing usual entry commands into MH-E to be used for users installing MH-E separately from Emacs. @@ -1914,7 +1914,7 @@ 2003-08-18 Peter S Galbraith <psg@debian.org> * mh-comp.el (mh-letter-mode): Call `mh-find-path unconditionally, - like elsewehere in MH-E. + like elsewhere in MH-E. * mh-utils.el (mh-find-path): Run setup code only if `mh-find-path-run' is nil such that this is only done once. @@ -2588,7 +2588,7 @@ 2003-07-24 Satyaki Das <satyakid@stanford.edu> * mh-e.el (mh-folder-message-menu, mh-folder-folder-menu): Use the - predicate mh-outstanding-commands-p instead of its exapansion. + predicate mh-outstanding-commands-p instead of its expansion. Also use the same label in both menus. (mh-outstanding-commands-p): Generalized so that it will work in mh-show-mode buffers as well. @@ -3915,7 +3915,7 @@ 2003-04-22 Satyaki Das <satyaki@theforce.stanford.edu> * mh-utils.el (mh-normalize-folder-name): Make the completion - code work properly with XEmacs. This change is neeeded since + code work properly with XEmacs. This change is needed since split-string behaves differently in XEmacs than it does in GNU Emacs. (mh-exec-cmd-error): Add a comment, so that we change it later on. @@ -7391,7 +7391,7 @@ numbers. (mh-cmd-note): Mention mh-set-cmd-note in docstring. Also suggest that it is updated dynamically only if mh-scan-format-file is t. - (mh-set-cmd-note): Grammer fix in docstring. + (mh-set-cmd-note): Grammar fix in docstring. (mh-cmd-note): Noted that the first column is column number 0. * mh-e.el (mh-scan-format-file): Added information about @@ -7696,7 +7696,7 @@ * mh-identity.el: New file. Multiple Identify support for MH-E. Used to easily set different fields such as From and Organization, - as well as diffrent signature files. This file won't be included + as well as different signature files. This file won't be included with V7.0. 2002-11-02 Bill Wohler <wohler@newt.com> @@ -9458,10 +9458,10 @@ 2002-07-15 Mark D. Baushke <mdb@gnu.org> - * mh-utils.el (mm-decode): Use load for the Non-fatal depencency + * mh-utils.el (mm-decode): Use load for the Non-fatal dependency on the mm-decode library. * mh-mime.el (mm-decode, mm-uu, mm-view): Use load for the - Non-fatal depencencies on the mm-decode, mm-uu and mm-view + Non-fatal dependencies on the mm-decode, mm-uu and mm-view libraries. 2002-07-15 Satyaki Das <satyaki@theforce.stanford.edu> @@ -11356,7 +11356,7 @@ 4 was silly for my case. * mh-e.el (mh-update-sequences): Check for nil value of mh-current-folder, which happens if mh-summary-height < 4 - although I haven't tracked doen why that happens. + although I haven't tracked down why that happens. 2001-10-22 Peter S Galbraith <psg@debian.org> 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." (defmacro mh-face-background (face &optional frame inherit) "Return the background color name of face, or nil if unspecified. -See documentation for `back-foreground' for a description of the +See documentation for `face-background' for a description of the arguments FACE, FRAME, and INHERIT. This macro is used by Emacs versions that lack an INHERIT argument, 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." ,(append '(radio) (mapcar - (function (lambda (arg) `(const ,arg))) + (lambda (arg) `(const ,arg)) (mapcar 'car mh-identity-list)))) (cons :tag "Fcc Field" (const "fcc") @@ -1577,7 +1577,7 @@ See `mh-identity-list'." :type (append '(radio) (cons '(const :tag "None" nil) - (mapcar (function (lambda (arg) `(const ,arg))) + (mapcar (lambda (arg) `(const ,arg)) (mapcar 'car mh-identity-list)))) :group 'mh-identity :package-version '(MH-E . "7.1")) @@ -1914,7 +1914,7 @@ of images into \"X-Face:\" header fields (see URL Use the \"make-face\" script to convert a JPEG image to the higher resolution, color, \"Face:\" header field (see URL -`http://quimby.gnus.org/circus/face/make-face'). +`https://quimby.gnus.org/circus/face/make-face'). The URL of any image can be used for the \"X-Image-URL:\" field and no processing of the image is required. @@ -2420,11 +2420,11 @@ of citations entirely, choose \"None\"." ;; These entries have been intentionally excluded by the developers. ;; "Comments:" ; RFC 822 (or later) - show this one -;; "Fax:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ -;; "Mail-System-Version:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ -;; "Mailer:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ +;; "Fax:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ +;; "Mail-System-Version:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ +;; "Mailer:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ ;; "Organization:" ; -;; "Phone:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ +;; "Phone:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ ;; "Reply-By:" ; RFC 2156 ;; "Reply-To:" ; RFC 822 (or later) ;; "Sender:" ; @@ -2437,13 +2437,13 @@ of citations entirely, choose \"None\"." ;; Mention source, if known. (defvar mh-invisible-header-fields-internal '( - "Abuse-Reports-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Abuse-Reports-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "Accept-Language:" "AcceptLanguage:" "Accreditor:" ; Habeas "Also-Control:" ; H. Spencer: News Article Format and Transmission, June 1994 "Alternate-recipient:" ; RFC 2156 - "Approved-By:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Approved-By:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "Approved:" ; RFC 1036 "Article-Names:" ; H. Spencer: News Article Format and Transmission, June 1994 "Article-Updates:" ; H. Spencer: News Article Format and Transmission, June 1994 @@ -2454,7 +2454,7 @@ of citations entirely, choose \"None\"." "Bounces-To:" "Bounces_to:" "Bytes:" - "Cancel-Key:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Cancel-Key:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "Cancel-Lock:" ; NNTP posts "Comment:" ; Shows up with DomainKeys "Content-" ; RFC 2045, 1123, 1766, 1864, 2045, 2110, 2156, 2183, 2912 @@ -2475,14 +2475,14 @@ of citations entirely, choose \"None\"." "DomainKey-Signature:" "Encoding:" ; RFC 1505 "Envelope-to:" - "Errors-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Errors-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "Expires:" ; RFC 1036 "Expiry-Date:" ; RFC 2156 "Face:" ; Gnus Face header "Followup-To:" ; RFC 1036 - "For-Approval:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ - "For-Comment:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ - "For-Handling:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "For-Approval:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "For-Comment:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "For-Handling:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "Forwarded:" ; MH "From " ; sendmail "Generate-Delivery-Report:" ; RFC 2156 @@ -2493,12 +2493,12 @@ of citations entirely, choose \"None\"." "Language:" ; RFC 2156 "Lines:" ; RFC 1036 "List-" ; RFC 2369, 2919 - "Mail-Copies-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ - "Mail-Followup-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Mail-Copies-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Mail-Followup-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "Mail-from:" ; MH - "Mail-Reply-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Mail-Reply-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "Mailing-List:" ; Egroups/yahoogroups mailing list manager - "Message-Content:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Message-Content:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "Message-ID:" ; RFC 822 (or later) "Message-Type:" ; RFC 2156 "Mime-Version" ; RFC 2045 @@ -2516,42 +2516,42 @@ of citations entirely, choose \"None\"." "Original-Recipient:" ; RFC 2298 "Original-To:" ; mail to news "Original-X-" ; mail to news - "Origination-Client:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ - "Originator:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Origination-Client:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Originator:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "P1-Content-Type:" ; X400 "P1-Message-Id:" ; X400 "P1-Recipient:" ; X400 "Path:" ; RFC 1036 "Pics-Label:" ; W3C - "Posted-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ - "Precedence:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Posted-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Precedence:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "Prev-Resent" ; MH "Prevent-NonDelivery-Report:" ; RFC 2156 "Priority:" ; RFC 2156 - "Read-Receipt-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Read-Receipt-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "Received-SPF:" ; Gmail "Received:" ; RFC 822 (or later) "References:" ; RFC 822 (or later) - "Registered-Mail-Reply-Requested-By:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Registered-Mail-Reply-Requested-By:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "Remailed-" ; MH - "Replaces:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Replaces:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "Replied:" ; MH "Resent-" ; RFC 822 (or later) "Return-Path:" ; RFC 822 (or later) - "Return-Receipt-Requested:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ - "Return-Receipt-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Return-Receipt-Requested:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Return-Receipt-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "Seal-Send-Time:" "See-Also:" ; H. Spencer: News Article Format and Transmission, June 1994 "Sensitivity:" ; RFC 2156, 2421 - "Speech-Act:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Speech-Act:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "Status:" ; sendmail "Supersedes:" ; H. Spencer: News Article Format and Transmission, June 1994 - "Telefax:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Telefax:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "Thread-" "Thread-Index:" "Thread-Topic:" - "Translated-By:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ - "Translation-Of:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Translated-By:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "Translation-Of:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "Ua-Content-Id:" ; X400 "Via:" ; MH "X-Abuse-and-DMCA-" @@ -2559,7 +2559,7 @@ of citations entirely, choose \"None\"." "X-Accept-Language:" ; Netscape/Mozilla "X-Ack:" "X-ACL-Warn:" ; http://www.exim.org - "X-Admin:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-Admin:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-Administrivia-To:" "X-AMAZON" ; Amazon.com "X-AnalysisOut:" ; Exchange @@ -2594,9 +2594,9 @@ of citations entirely, choose \"None\"." "X-CanIt-Geo:" ; IEEE spam filter "X-Cloudmark-SP-" ; Cloudmark (www.cloudmark.com) "X-Comment:" ; AT&T Mailennium - "X-Complaints-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-Complaints-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-Completed:" - "X-Confirm-Reading-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-Confirm-Reading-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-Content-Filtered-By:" "X-ContentStamp:" ; NetZero "X-Country-Chain:" ; http://www.declude.com/x-note.htm @@ -2622,13 +2622,13 @@ of citations entirely, choose \"None\"." "X-Email-Type-Id:" ; Paypal http://www.paypal.com "X-Enigmail-Version:" "X-Envelope-Date:" ; GNU mailutils - "X-Envelope-From:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-Envelope-From:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-Envelope-Sender:" - "X-Envelope-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-Envelope-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-EviteMessageId:" ; evite.com "X-Evolution:" ; Evolution mail client "X-ExtLoop" - "X-Face:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-Face:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-Facebook" ; Facebook "X-FB-SS:" "X-fmx-" @@ -2652,7 +2652,7 @@ of citations entirely, choose \"None\"." "X-Identity:" ; http://www.declude.com/x-note.htm "X-IEEE-UCE-" ; IEEE spam filter "X-Image-URL:" - "X-IMAP:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-IMAP:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-Info:" ; NTMail "X-IronPort-" ; IronPort AV "X-ISI-4-30-3-MailScanner:" @@ -2662,12 +2662,12 @@ of citations entirely, choose \"None\"." "X-Juno-" ; Juno "X-Key:" "X-Launchpad-" ; plaunchpad.net - "X-List-Host:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-List-Host:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-List-Subscribe:" ; Unknown mailing list managers "X-List-Unsubscribe:" ; Unknown mailing list managers "X-Listprocessor-" ; ListProc(tm) by CREN - "X-Listserver:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ - "X-Loop:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-Listserver:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-Loop:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-Lrde-Mailscanner:" "X-Lumos-SenderID:" ; Roving ConstantContact "X-mail_abuse_inquiries:" ; http://www.salesforce.com @@ -2693,18 +2693,18 @@ of citations entirely, choose \"None\"." "X-MessageWall-Score:" ; Unknown mailing list manager, AUC TeX "X-MHE-Checksum:" ; Checksum added during index search "X-MIME-Autoconverted:" ; sendmail - "X-MIMEOLE:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/sendmail + "X-MIMEOLE:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/sendmail "X-MIMETrack:" "X-Mms-" ; T-Mobile pictures "X-Mozilla-Status:" ; Netscape/Mozilla "X-MS-" ; MS Outlook "X-Msmail-" ; MS Outlook - "X-MSMail-Priority" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-MSMail-Priority" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-MXL-Hash:" "X-NAI-Spam-" ; Network Associates Inc. SpamKiller "X-News:" ; News - "X-Newsreader:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ - "X-No-Archive:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-Newsreader:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-No-Archive:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-Notes-Item:" ; Lotus Notes Domino structured header "X-Notification-" ; Google+ "X-Notifications:" ; Google+ @@ -2713,7 +2713,7 @@ of citations entirely, choose \"None\"." "X-ORBL:" "X-Orcl-Content-Type:" "X-Organization:" - "X-Original-Arrival-Type:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-Original-Arrival-Type:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-Original-Complaints-To:" "X-Original-Date:" ; SourceForge mailing list manager "X-Original-To:" @@ -2733,10 +2733,10 @@ of citations entirely, choose \"None\"." "X-Provags-ID:" "X-PSTN-" "X-Qotd-" ; User added - "X-RCPT-TO:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-RCPT-TO:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-Received-Date:" "X-Received:" - "X-Report-Abuse-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-Report-Abuse-To:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-Request-" "X-Resolved-to:" ; fastmail.fm "X-Return-Path-Hint:" ; Roving ConstantContact @@ -2753,7 +2753,7 @@ of citations entirely, choose \"None\"." "X-SBRule:" ; Spam "X-Scanned-By:" "X-Sender-ID:" ; Google+ - "X-Sender:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-Sender:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-Sendergroup:" ; Cisco Email Security (formerly IronPort; http://www.ironport.com) "X-Server-Date:" "X-Server-Uuid:" @@ -2776,11 +2776,11 @@ of citations entirely, choose \"None\"." "X-TM-IMSS-Message-ID:" ; http://www.trendmicro.com "X-Trace:" "X-UID" - "X-UIDL:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-UIDL:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-Unity" "X-UNTD-" ; NetZero - "X-URI:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ - "X-URL:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-URI:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-URL:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-USANET-" ; usa.net "X-Usenet-Provider" "X-UserInfo1:" @@ -2792,7 +2792,7 @@ of citations entirely, choose \"None\"." "X-VSMLoop:" ; NTMail "X-WebTV-Signature:" "X-Wss-Id:" ; Worldtalk gateways - "X-X-Sender:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ + "X-X-Sender:" ; https://people.dsv.su.se/~jpalme/ietf/mail-headers/ "X-XPT-XSL-Name:" ; Paypal http://www.paypal.com "X-xsi-" "X-XWALL-" ; http://www.dataenter.co.at/doc/xwall_undocumented_config.htm @@ -3036,7 +3036,7 @@ supports it. The first header field used, if present, is the Gnus-specific \"Face:\" field. The \"Face:\" field appeared in GNU Emacs 21 and XEmacs. For more information, see URL -`http://quimby.gnus.org/circus/face/'. Next is the traditional +`https://quimby.gnus.org/circus/face/'. Next is the traditional \"X-Face:\" header field. The display of this field requires the \"uncompface\" program (see URL `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 present. The display of the images requires \"wget\" (see URL `https://www.gnu.org/software/wget/wget.html'), \"fetch\", or \"curl\" to fetch the image and the \"convert\" program from the ImageMagick -suite (see URL `http://www.imagemagick.org/'). Of the three header +suite (see URL `https://www.imagemagick.org/'). Of the three header fields this is the most efficient in terms of network usage since the image doesn't need to be transmitted with every single mail. 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: (defun mh-blacklist-a-msg (message) "Blacklist MESSAGE. If MESSAGE is nil then the message at point is blacklisted. -The hook `mh-blacklisted-msg-hook' is called after you mark a message +The hook `mh-blacklist-msg-hook' is called after you mark a message for blacklisting." (save-excursion (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 @@ ;; The threading portion of this files tries to implement the ;; algorithm described at: -;; http://www.jwz.org/doc/threading.html +;; https://www.jwz.org/doc/threading.html ;; It also begins to implement the threading section of the IMAP - ;; SORT and THREAD Extensions RFC at: ;; 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'." (while p (pcase p (`(,(or 'any 'any-delim) point . ,rest) (setq p `(point . ,rest))) - ;; This is not just a performance improvement: it also turns - ;; a terminating `point' into an implicit `any', which - ;; affects the final position of point (because `point' gets - ;; turned into a non-greedy ".*?" regexp whereas we need - ;; it the be greedy when it's at the end, see bug#38458). - (`(,(pred symbolp)) (setq p nil)) ;Implicit terminating `any'. + ;; This is not just a performance improvement: it turns a + ;; terminating `point' into an implicit `any', which affects + ;; the final position of point (because `point' gets turned + ;; into a non-greedy ".*?" regexp whereas we need it to be + ;; greedy when it's at the end, see bug#38458). + (`(point) (setq p nil)) ;Implicit terminating `any'. (_ (push (pop p) n)))) (nreverse n))) 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'." (buf nil) (ido-ignore-item-temp-list bufs)) (while (not (string-equal - (setq buf (read-buffer - (if (eq read-buffer-function #'ido-read-buffer) - "Next buffer to search (C-j to end): " - "Next buffer to search (RET to end): ") - nil t)) + (setq buf (read-buffer (multi-occur--prompt) nil t)) "")) (add-to-list 'bufs buf) (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." ;; Sort the list to put the most popular major modes first. (setq split-by-major-mode (sort split-by-major-mode - (function (lambda (elt1 elt2) - (> (length elt1) (length elt2)))))) + (lambda (elt1 elt2) + (> (length elt1) (length elt2))))) ;; Make a separate submenu for each major mode ;; that has more than one buffer, ;; unless all the remaining buffers are less than 1/10 of them. @@ -2248,8 +2248,8 @@ and selects that window." head) (setq buffers (sort buffers - (function (lambda (elt1 elt2) - (string< (buffer-name elt1) (buffer-name elt2)))))) + (lambda (elt1 elt2) + (string< (buffer-name elt1) (buffer-name elt2))))) (setq tail buffers) (while tail (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 ;; </signal> ;; </interface> +(defconst dbus-annotation-deprecated (concat dbus-interface-dbus ".Deprecated") + "An annotation indicating a deprecated interface, method, signal, or property.") + ;;; Default D-Bus errors. 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." ;;;###autoload (defun eww-search-words () - "Search the web for the text between BEG and END. + "Search the web for the text in the region. If region is active (and not whitespace), search the web for -the text between BEG and END. Else, prompt the user for a search -string. See the `eww-search-prefix' variable for the search -engine used." +the text between region beginning and end. Else, prompt the +user for a search string. See the variable `eww-search-prefix' +for the search engine used." (interactive) (if (use-region-p) (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." (t nil)))) (min-prime-bits (or min-prime-bits gnutls-min-prime-bits))) - (when verify-hostname-error - (push :hostname verify-error)) + ;; Only add :hostname if `verify-error' is not t, since t + ;; means "include :hostname" Bug#38602. + (and verify-hostname-error + (not (eq verify-error t)) + (push :hostname verify-error)) `(:priority ,priority-string :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." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Full list is available at: -;; http://www.iana.org/assignments/port-numbers +;; https://www.iana.org/assignments/port-numbers (defvar network-connection-service-alist (list (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." ;; Hard-coding URLs like this is a recipe for propagating obsolete info. (defconst newsticker--raw-url-list-defaults '( - ;; 2017/12: no response. -;;; ("CNET News.com" -;;; "http://export.cnet.com/export/feeds/news/rss/1,11176,,00.xml") ("Debian Security Advisories" "http://www.debian.org/security/dsa.en.rdf") ("Debian Security Advisories - Long format" @@ -81,11 +78,6 @@ considered to be running if the newsticker timer list is not empty." 3600) ("LWN (Linux Weekly News)" "https://lwn.net/headlines/rss") - ;; Not updated since 2010. -;;; ("NY Times: Technology" -;;; "http://www.nytimes.com/services/xml/rss/userland/Technology.xml") -;;; ("NY Times" -;;; "http://www.nytimes.com/services/xml/rss/userland/HomePage.xml") ("Quote of the day" "http://feeds.feedburner.com/quotationspage/qotd" "07:00" @@ -898,7 +890,7 @@ Argument BUFFER is the buffer of the retrieval process." ;; Atom 1.0 feed. ;; (and (eq 'feed (xml-node-name topnode)) - ;; (string= "http://www.w3.org/2005/Atom" + ;; (string= "https://www.w3.org/2005/Atom" ;; (xml-get-attribute topnode 'xmlns))) (setq image-url (newsticker--get-logo-url-atom-1.0 topnode)) (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 @@ ;; as well as the following Atom formats: ;; * Atom 0.3 ;; * Atom 1.0 -;; (see http://www.ietf.org/internet-drafts/draft-ietf-atompub-format-11.txt) +;; (see https://www.ietf.org/internet-drafts/draft-ietf-atompub-format-11.txt) ;; That makes Newsticker.el an "Atom aggregator, "RSS reader", "RSS ;; aggregator", and "Feed Reader". 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 number, STATUS is the peer status returned by `gnutls-peer-status', and SETTINGS is the persistent and session settings for the host HOST. Please refer to the contents of -`nsm-setting-file' for details. If a problem is found, the check +`nsm-settings-file' for details. If a problem is found, the check function is required to return an error message, and nil otherwise. 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 @@ ;;; Commentary: ;; Written by looking at -;; http://stackoverflow.com/questions/183485/can-anyone-recommend-a-good-free-javascript-for-punycode-to-unicode-conversion +;; https://stackoverflow.com/questions/183485/can-anyone-recommend-a-good-free-javascript-for-punycode-to-unicode-conversion ;;; Code: @@ -196,12 +196,12 @@ For instance \"xn--bcher-kva\" => \"bücher\"." (cl-incf i))) (buffer-string))) -;; http://www.unicode.org/reports/tr39/#Restriction_Level_Detection -;; http://www.unicode.org/reports/tr31/#Table_Candidate_Characters_for_Inclusion_in_Identifiers +;; https://www.unicode.org/reports/tr39/#Restriction_Level_Detection +;; https://www.unicode.org/reports/tr31/#Table_Candidate_Characters_for_Inclusion_in_Identifiers (defun puny-highly-restrictive-string-p (string) "Say whether STRING is \"highly restrictive\" in the Unicode IDNA sense. -See http://www.unicode.org/reports/tr39/#Restriction_Level_Detection +See https://www.unicode.org/reports/tr39/#Restriction_Level_Detection for details. The main idea is that if you're mixing scripts (like latin and cyrillic), you may confuse the user by 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 @@ ;;; Commentary: ;; This package provides an implementation of the Secret Service API -;; <http://www.freedesktop.org/wiki/Specifications/secret-storage-spec>. +;; <https://www.freedesktop.org/wiki/Specifications/secret-storage-spec>. ;; This API is meant to make GNOME-Keyring- and KWallet-like daemons ;; available under a common D-BUS interface and thus increase ;; 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 soap-headers ; list of (message part use) soap-body ; message parts present in the body use ; 'literal or 'encoded, see - ; http://www.w3.org/TR/wsdl#_soap:body + ; https://www.w3.org/TR/wsdl#_soap:body ) (cl-defstruct (soap-binding (:include soap-element)) @@ -2111,6 +2111,8 @@ This is a specialization of `soap-decode-type' for ;; Add the XSD types to the wsdl document (let ((ns (soap-make-xs-basic-types + ;; The following string is a name and not an URL, so + ;; the "http:" should not be changed. "http://www.w3.org/2001/XMLSchema" "xsd"))) (soap-wsdl-add-namespace ns wsdl) (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 @@ (declare-function tramp-handle-temporary-file-directory "tramp") (defvar tramp-temp-name-prefix) +(defconst tramp-compat-emacs-compiled-version (eval-when-compile emacs-version) + "The Emacs version used for compilation.") + +(unless (= emacs-major-version + (car (version-to-list tramp-compat-emacs-compiled-version))) + (warn "Tramp has been compiled with Emacs %s, this is Emacs %s" + tramp-compat-emacs-compiled-version emacs-version)) + ;; For not existing functions, obsolete functions, or functions with a ;; changed argument list, there are compiler warnings. We want to ;; 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++) $stat[1]); } printf(\")\\n\");' \"$1\" \"$2\" 2>/dev/null" - "Perl script implementing `directory-files-attributes' as Lisp `read'able + "Perl script implementing `directory-files-and-attributes' as Lisp `read'able output. Escape sequence %s is replaced with name of Perl binary. 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." ;; IRIX64 bash expands "!" even when in single quotes. This ;; destroys our shell functions, we must disable it. See - ;; <http://stackoverflow.com/questions/3291692/irix-bash-shell-expands-expression-in-single-quotes-yet-shouldnt>. + ;; <https://stackoverflow.com/questions/3291692/irix-bash-shell-expands-expression-in-single-quotes-yet-shouldnt>. (when (string-match-p "^IRIX64" uname) (tramp-send-command vec "set +H" t)) 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 @@ (setq notifications-on-action-object nil))))) (defun notifications-on-closed-signal (id &optional reason) - "Dispatch signals to callback functions from `notifications-on-closed-map'." + "Dispatch signals to callback functions from `notifications-on-close-map'." ;; notification-daemon prior 0.4.0 does not send a reason. So we ;; make it optional, and assume `undefined' as default. (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 @@ ;; Inc. ;; Author: Alex Schroeder <alex@gnu.org> -;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ErcCompletion +;; URL: https://www.emacswiki.org/cgi-bin/wiki.pl?ErcCompletion ;; Obsolete-since: 24.1 ;; 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 @@ (org-babel-load-in-session-maybe, org-babel-pop-to-session-maybe): Use it. (org-babel-execute-src-block): Use `copy-tree' to prevent setf - from modifying users variables withing let-bound `info' variable. + from modifying users variables within let-bound `info' variable. * ob-exp.el (org-export-babel-evaluate): Add a 'inline-only option. @@ -1821,7 +1821,7 @@ it is an ARRAY ref, otherwise print it without a final newline. (org-babel-perl-preface): Content of this variable is prepended to body before invocation of perl. Rename input parameter body to - ibody and let-bind body to concatentation of + ibody and let-bind body to concatenation of `org-babel-perl-preface' and ibody. Implement results interpretation so that tables are easier to produce. @@ -3142,7 +3142,7 @@ relatively to the current timestamp, not to today's date. * org-agenda.el (org-agenda-filter-apply): - Deactive `org-agenda-entry-text-mode' when filtering. + Deactivate `org-agenda-entry-text-mode' when filtering. (org-agenda-entry-text-mode): Don't allow in filtered views. Don't show the maximum number of lines when turning off. @@ -3439,7 +3439,7 @@ (org-edit-src-exit): Cancel the timer. (org-edit-src-save): Prevent saving when editing fixed-width buffer, exiting will save already. - (org-edit-src-exit): Inconditionally kill the src/example + (org-edit-src-exit): Unconditionally kill the src/example editing buffer. * org-pcomplete.el (pcomplete/org-mode/file-option): @@ -3490,7 +3490,7 @@ * org-pcomplete.el (pcomplete/org-mode/file-option/x): Resurrect. Use `org-default-options' to initialize completion - fonctions for the most important keywords. + functions for the most important keywords. * org-macs.el (org-default-options): Rename and adapt from `org-get-current-options'. @@ -3588,7 +3588,7 @@ new sorting strategies. (org-agenda-get-todos, org-agenda-get-timestamps) (org-agenda-get-deadlines, org-agenda-get-scheduled): Add a - `ts-date' text property with scheduled, deadline or timetamp + `ts-date' text property with scheduled, deadline or timestamp date. (org-cmp-ts): New function to compare timestamps. (org-em): Add a docstring. @@ -4800,7 +4800,7 @@ (org-element-timestamp-interpreter): Parse warning delays. * ox-beamer.el (org-beamer--format-section): Fix regression which - prevents frames from being propely exported. + prevents frames from being properly exported. * ox.el (org-export-with-backend): Ensure function will use provided back-end. @@ -4888,7 +4888,7 @@ which is always nil in this back-end. * org.el (org-adaptive-fill-function): Look for a fill prefix at - the beginning of the paragraph and subsquently on its second line + the beginning of the paragraph and subsequently on its second line instead of the current line. * ob-core.el (org-babel-get-src-block-info): Look for indentation @@ -5595,7 +5595,7 @@ (org-export-async-start): Do not call `org-mode' since this is done already in the previous function. - * ox-beamer.el (org-beamer-keyword): Remove frame arount toc when + * ox-beamer.el (org-beamer-keyword): Remove frame around toc when generated from a TOC keyword. * org.el (org-export-backends): Do not reset list of loaded @@ -5629,7 +5629,7 @@ during a body-only export. * ox.el (org-export-as): Store export options in :export-options - porperty within communication channel. + property within communication channel. * ox-latex.el (org-latex-item): Fix wrong behavior when a counter is set in an ordered list while its parent is not ordered. @@ -5714,7 +5714,7 @@ (org-create-formula-image-with-dvipng) (org-create-formula-image-with-imagemagick): Use new function. - * ox.el (org-export-get-previous-element): Change order of retured + * ox.el (org-export-get-previous-element): Change order of returned elements in `org-export-get-previous-element'. * org-element.el (org-element-all-successors): Add `plain-link' @@ -5839,10 +5839,10 @@ Remove reference to now renamed `e-ascii' back-end. * ox-beamer.el (org-beamer-template): Allow to span documentclass - options accross multiple lines in template. + options across multiple lines in template. * ox-latex.el (org-latex-template): Allow to span documentclass - options accross multiple lines in template. + options across multiple lines in template. * ox-texinfo.el (org-texinfo--get-node): Upcase property name. (org-texinfo--get-node): New function. @@ -6524,7 +6524,7 @@ * org.el (org-open-at-point): The new code is being run in the same spot as `org-open-link-functions'. In case they failed, check if link matches "^id:" and if so, load the id interface and - follwo the link. + follow the link. 2013-11-12 Rasmus Pank Roulund <rasmus@gmx.us> (tiny change) @@ -6717,7 +6717,7 @@ 2013-11-12 Vitalie Spinu <spinuvit@gmail.com> * ob-tangle.el (org-babel-find-file-noselect-refresh): - Call `find-file-noselect' with 'nowarn argument to surpress + Call `find-file-noselect' with 'nowarn argument to suppress `yes-or-no-p' reversion message. * ob-core.el (org-babel-where-is-src-block-head): @@ -6990,7 +6990,7 @@ docstrings. Also fix typos. * org-list.el (org-list-struct-fix-box): When a checkbox has to be - resetted because of a non-nil ORDERED property value, make sure it + reset because of a non-nil ORDERED property value, make sure it had a checkbox already. 2013-02-07 Tokuya Kameshima <kametoku@gmail.com> (tiny change) @@ -9533,7 +9533,7 @@ * org-latex.el (org-export-latex-make-header): Ditto. * org-clock.el (org-clocktable-write-default): Temporarily disable - `delete-active-region' so that we don't accidently delete an + `delete-active-region' so that we don't accidentally delete an active region when exporting a subtree/region. * org-clock.el (org-program-exists): Remove. @@ -10419,7 +10419,7 @@ space character when auto-filling. * org.el (org-mode): Call external initalizers. Now both filling - code and comments code have their own independant part in org.el. + code and comments code have their own independent part in org.el. (org-setup-filling): Rename from `org-set-autofill-regexps'. (org-setup-comments-handling): New function. @@ -10652,7 +10652,7 @@ (org-list-struct-apply-struct, org-insert-item): Remove rule check. - * org-footnote.el (org-footnote-normalize): Fix positionning in + * org-footnote.el (org-footnote-normalize): Fix positioning in HTML export without a footnote section. * org-list.el (org-list-struct-indent): @@ -11318,7 +11318,7 @@ 2012-04-01 Shaun Johnson <shaun@slugfest.demon.co.uk> (tiny change) * org-exp-blocks.el (org-ditaa-jar-path): Better heuristic to find - the libary name. + the library name. 2012-04-01 Suvayu Ali <fatkasuvayu+linux@gmail.com> @@ -11917,7 +11917,7 @@ 2012-04-01 Nicolas Goaziou <n.goaziou@gmail.com> * org-footnote.el (org-footnote-at-definition-p): Make sure to - move point at the beginning of the separator before skiping white + move point at the beginning of the separator before skipping white spaces. Refactor code. 2012-04-01 Eric Schulte <eric.schulte@gmx.com> @@ -13692,7 +13692,7 @@ 2012-01-03 Carsten Dominik <carsten.dominik@gmail.com> * org-publish.el (org-publish-cache-file-needs-publishing): - Fix regexp to not inlcude newlines. + Fix regexp to not include newlines. 2012-01-03 Carsten Dominik <carsten.dominik@gmail.com> @@ -14560,7 +14560,7 @@ 2012-01-03 Nicolas Goaziou <n.goaziou@gmail.com> * org-footnote.el (org-footnote-normalize): Effectively remove - any footnote tag in non Org buffers, as detailled in the + any footnote tag in non Org buffers, as detailed in the docstring of `org-footnote-tag-for-non-org-mode-files'. 2012-01-03 Nicolas Goaziou <n.goaziou@gmail.com> @@ -15622,7 +15622,7 @@ 2011-07-28 David Maus <dmaus@ictsoc.de> * ob-haskell.el (org-babel-haskell-export-to-lhs): - Call `kill-buffer' with argument indiciating to kill current + Call `kill-buffer' with argument indicating to kill current buffer. Emacs 22 compatibility. 2011-07-28 David Maus <dmaus@ictsoc.de> @@ -18049,7 +18049,7 @@ * org-table.el (org-table-fedit-finish): Read more general LHS of formulas. - (org-table-formula-handle-@L): New function to hanle @L references. + (org-table-formula-handle-@L): New function to handle @L references. (org-table-current-ncol): New variable. (org-table-line-to-dline): New function. (org-table-get-stored-formulas): Accept range formulas as matches. @@ -18058,7 +18058,7 @@ only the region marked by the range, not the content. (org-table-recalculate): Call `org-table-expand-lhs-ranges' to expand range targets. Also check for duplicate access to fields. - (org-table-expand-lhs-ranges): New funktion. + (org-table-expand-lhs-ranges): New function. (org-table-get-remote-range): Bind `org-table-current-ncol' to protect the caller's value. (org-table-edit-formulas): Support highlighting of range targets. @@ -19339,8 +19339,8 @@ * org-crypt.el (org-encrypt-string): New function. (org-encrypt-entry): Use org-encrypt-string to encrypt, so we use - cached crypted values. - (org-decrypt-entry): Store crypted text in decrypted text. + cached encrypted values. + (org-decrypt-entry): Store encrypted text in decrypted text. 2011-07-28 Dan Davison <dandavison7@gmail.com> @@ -20331,7 +20331,7 @@ 2010-12-11 Carsten Dominik <carsten.dominik@gmail.com> * org-clock.el (org-quarter-to-date): Define variables. - (org-clock-special-range): Defin variables. Use org-floor*. + (org-clock-special-range): Define variables. Use org-floor*. (org-clocktable-write-default): Define tcol. * org-compat.el (org-floor*): New function. @@ -22854,7 +22854,7 @@ 2010-11-11 Nicolas Goaziou <n.goaziou@gmail.com> * org-list.el (org-cycle-item-indentation): Do return t if and - only if cycling is possible and succeded. + only if cycling is possible and succeeded. 2010-11-11 Nicolas Goaziou <n.goaziou@gmail.com> @@ -28181,7 +28181,7 @@ * org-src.el (org-src-lang-modes): New variable. (org-edit-src-code): Translate language. - * org-exp.el (org-export-format-source-code-or-example): Deal wit + * org-exp.el (org-export-format-source-code-or-example): Deal with the new structure of the `org-export-latex-listings-langs' variable. @@ -28529,7 +28529,7 @@ * org.el (org-adapt-indentation): Slightly improve the docstring. (org-occur): Sends an error when the user inputs an empty string. - (org-priority): Bugfix: the tag alignement should happen within + (org-priority): Bugfix: the tag alignment should happen within save-excursion. 2009-08-06 Bastien Guerry <bzg@gnu.org> @@ -28830,7 +28830,7 @@ * org-agenda.el (org-agenda-mode): Reset list of marks. (org-agenda-mode-map): Define new keys for refile and bulk action. - (org-agenda-menu): Add menu itesm for refile and bulk action. + (org-agenda-menu): Add menu items for refile and bulk action. (org-agenda-refile): New function. (org-agenda-set-tags): Optional arguments TAG and ONOFF. (org-agenda-marked-entries): New variable. @@ -29490,7 +29490,7 @@ New functions. (org-protocol-check-filename-for-protocol): Call `server-edit'. - * org.el (org-default-properties): New default properteis for + * org.el (org-default-properties): New default properties for completion. * org-exp.el (org-export-add-subtree-options): Add new properties @@ -29842,7 +29842,7 @@ * org-faces.el (org-checkbox): New face. * org-exp.el (org-export-html-preprocess): Only create LaTeX - fragement images if there is an export file. + fragment images if there is an export file. 2009-08-06 Carsten Dominik <carsten.dominik@gmail.com> @@ -30465,7 +30465,7 @@ workings of `org-toggle-heading'. (org-toggle-item): Rename from `org-toggle-region-items'. No longer needs a region defined, but will use it if there is one. - (org-ctrl-c-minus): Simplify, relying more on the inernal + (org-ctrl-c-minus): Simplify, relying more on the internal workings of `org-toggle-item'. * org-export-latex.el (org-export-latex-preprocess): Fix bug in @@ -30674,7 +30674,7 @@ converter. * org-exp.el (org-export-preprocess-string): Remove clock lines - and timestamps already in the preprocesor. + and timestamps already in the preprocessor. (org-export-remove-timestamps, org-export-remove-clock-lines): New functions. (org-export-as-ascii, org-export-as-html): Add the timestamps @@ -31158,14 +31158,14 @@ 2008-11-24 Carsten Dominik <carsten.dominik@gmail.com> * org-agenda.el (org-get-closed): Re-apply changes - accidentially overwritten by last commit to Emacs. + accidentally overwritten by last commit to Emacs. * org.el (org-outline-path-complete-in-steps): New option. (org-refile-get-location): Honor `org-outline-path-complete-in-steps'. (org-agenda-change-all-lines, org-tags-sparse-tree) (org-time-string-to-absolute, org-small-year-to-year) - (org-link-escape): Re-apply changes accidentially overwritten + (org-link-escape): Re-apply changes accidentally overwritten by last commit to Emacs. 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 @@ ;; Org-Babel support for evaluating plantuml script. ;; ;; Inspired by Ian Yang's org-export-blocks-format-plantuml -;; http://www.emacswiki.org/emacs/org-export-blocks-format-plantuml.el +;; https://www.emacswiki.org/emacs/org-export-blocks-format-plantuml.el ;;; Requirements: 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 @@ ;; - ruby and irb executables :: http://www.ruby-lang.org/ ;; ;; - ruby-mode :: Can be installed through ELPA, or from -;; http://github.com/eschulte/rinari/raw/master/util/ruby-mode.el +;; https://github.com/eschulte/rinari/raw/master/util/ruby-mode.el ;; ;; - inf-ruby mode :: Can be installed through ELPA, or from -;; http://github.com/eschulte/rinari/raw/master/util/inf-ruby.el +;; https://github.com/eschulte/rinari/raw/master/util/inf-ruby.el ;;; Code: (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 @@ ;;; Requirements: -;; - sass-mode :: http://github.com/nex3/haml/blob/master/extra/sass-mode.el +;; - sass-mode :: https://github.com/nex3/haml/blob/master/extra/sass-mode.el ;;; Code: (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 @@ ;; For more information and usage examples, visit ;; https://orgmode.org/worg/org-contrib/babel/languages/ob-doc-stan.html ;; -;; [1] http://mc-stan.org/ +;; [1] https://mc-stan.org/ ;;; Code: (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." "Controls whether inherited tags are converted to bibtex keywords. It is relevant only if `org-bibtex-tags-are-keywords' is non-nil. Tag inheritance itself is controlled by `org-use-tag-inheritance' -and `org-exclude-tags-from-inheritance'." +and `org-tags-exclude-from-inheritance'." :group 'org-bibtex :version "26.1" :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 archived sub-trees. Tag in this list prevent numbering the whole sub-tree, -irrespective to `org-use-tags-inheritance', or other means to +irrespective to `org-use-tag-inheritance', or other means to control tag inheritance." :group 'org-appearance :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." ;; Here are two examples of different styles. ;; Unicode block characters are used to give a smooth effect. -;; See http://en.wikipedia.org/wiki/Block_Elements +;; See https://en.wikipedia.org/wiki/Block_Elements ;; Use one of those drawing functions ;; - orgtbl-ascii-draw (the default ascii) ;; - orgtbl-uc-draw-grid (unicode with a grid effect) @@ -6136,7 +6136,7 @@ which will prompt for the width." It is a variant of orgtbl-ascii-draw with Unicode block characters, for a smooth display. Bars appear as grids (to the extent the font allows)." - ;; http://en.wikipedia.org/wiki/Block_Elements + ;; https://en.wikipedia.org/wiki/Block_Elements ;; best viewed with the "DejaVu Sans Mono" font. (orgtbl-ascii-draw value min max width " \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'." (choice :tag "Interpretation" ;;Quick and dirty way to see - ;;`org-todo-interpretations'. This takes the + ;;`org-todo-interpretation'. This takes the ;;place of item arguments :convert-widget (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." (apostrophe :utf-8 "’" :html "’")) ("da" ;; one may use: »...«, "...", ›...‹, or '...'. - ;; http://sproget.dk/raad-og-regler/retskrivningsregler/retskrivningsregler/a7-40-60/a7-58-anforselstegn/ + ;; https://sproget.dk/raad-og-regler/retskrivningsregler/retskrivningsregler/a7-40-60/a7-58-anforselstegn/ ;; LaTeX quotes require Babel! (primary-opening :utf-8 "»" :html "»" :latex ">>" :texinfo "@guillemetright{}") @@ -5553,7 +5553,7 @@ transcoding it." (secondary-closing :utf-8 "’" :html "’" :latex "'" :texinfo "'") (apostrophe :utf-8 "’" :html "’")) ("ru" - ;; 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 + ;; 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 ;; http://www.artlebedev.ru/kovodstvo/sections/104/ (primary-opening :utf-8 "«" :html "«" :latex "{}<<" :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." ;; ssh support by Phil Hagelberg. -;; http://www.emacswiki.org/cgi-bin/wiki/pcmpl-ssh.el +;; https://www.emacswiki.org/cgi-bin/wiki/pcmpl-ssh.el (defun pcmpl-ssh-known-hosts () "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 @@ ;; possible in as few moves as possible. ;; Bubbles is an implementation of the "Same Game", similar to "Same -;; GNOME" and many others, see <http://en.wikipedia.org/wiki/SameGame>. +;; GNOME" and many others, see <https://en.wikipedia.org/wiki/SameGame>. ;; Installation ;; ------------ 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." :group 'gametree) (defcustom gametree-make-heading-function - (function (lambda (level) - (insert (make-string level ?*)))) + (lambda (level) + (insert (make-string level ?*))) "A function of one numeric argument, LEVEL, to insert a heading at point. You should change this if you change `outline-regexp'." :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 @@ ;; Author: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> ;; Keywords: wp, print, PostScript ;; Version: 6.9.3 -;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre +;; X-URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre (defconst pr-version "6.9.3" "printing.el, v 6.9.3 <2007/12/09 vinicius> @@ -64,7 +64,7 @@ Please send all bug fixes and enhancements to ;; interface to ps-print package and it also provides some extra stuff. ;; ;; To download the latest ps-print package see -;; `http://www.emacswiki.org/cgi-bin/wiki/PsPrintPackage'. +;; `https://www.emacswiki.org/cgi-bin/wiki/PsPrintPackage'. ;; Please, see README file for ps-print installation instructions. ;; ;; `printing' was inspired by: @@ -944,8 +944,8 @@ Please send all bug fixes and enhancements to ;; ;; * For `printing' package: ;; -;; printing `http://www.emacswiki.org/cgi-bin/emacs/download/printing.el' -;; ps-print `http://www.emacswiki.org/cgi-bin/wiki/PsPrintPackage' +;; printing `https://www.emacswiki.org/cgi-bin/emacs/download/printing.el' +;; ps-print `https://www.emacswiki.org/cgi-bin/wiki/PsPrintPackage' ;; ;; * For GNU or Unix system: ;; @@ -4721,7 +4721,7 @@ Each element has the form: (MENU-PART . NUMBER-OF-ITEMS) -See `pr-visible-entry-alist'.") +See `pr-visible-entry-list'.") (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." (defun antlr-option-spec (level option specs existsp) "Return version correct option value specification. Return specification for option OPTION of kind level LEVEL. SPECS -should correspond to the VALUE-SPEC... in `antlr-option-alists'. +should correspond to the VALUE-SPEC... in `antlr-options-alists'. EXISTSP determines whether the option already exists." (let (value) (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 @@ ;; See documentation of function `bat-mode'. ;; ;; Separate package `dos-indent' (Matthew Fidler) provides rudimentary -;; indentation, see http://www.emacswiki.org/emacs/dos-indent.el. +;; indentation, see https://www.emacswiki.org/emacs/dos-indent.el. ;; ;; Acknowledgements: ;; 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." ;; remain. This is not necessary for c-offsets-alist, since ;; c-get-style-variables contains every valid offset type in the ;; fallback entry. - (setq c-special-indent-hook - (default-value 'c-special-indent-hook))) + (kill-local-variable 'c-special-indent-hook)) (mapc (lambda (elem) (c-set-style-1 elem dont-override)) ;; Need to go through the variables backwards when we @@ -644,7 +643,7 @@ CC Mode by making sure the proper entries are present on (defun c-make-styles-buffer-local (&optional this-buf-only-p) "Make all CC Mode style variables buffer local. -If `this-buf-only-p' is non-nil, the style variables will be made +If THIS-BUF-ONLY-P is non-nil, the style variables will be made buffer local only in the current buffer. Otherwise they'll be made permanently buffer local in any buffer that changes their values. @@ -662,7 +661,6 @@ any reason to call this function directly." ;; Hooks must be handled specially (if this-buf-only-p (if (featurep 'xemacs) (make-local-hook 'c-special-indent-hook)) - (with-no-warnings (make-variable-buffer-local 'c-special-indent-hook)) (setq c-style-variables-are-local-p t)) )) 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 @@ ;; support. ;; The latest version is available from -;; http://github.com/jrockway/cperl-mode +;; https://github.com/jrockway/cperl-mode ;; ;; (perhaps in the moosex-declare branch) 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 @@ ;; ----------- ;; ;; See the URL: -;; `http://www.ietf.org/rfc/rfc2234.txt' +;; `https://www.ietf.org/rfc/rfc2234.txt' ;; or ;; `http://www.faqs.org/rfcs/rfc2234.html' ;; 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 @@ ;; ---------- ;; ;; See the URLs: -;; `http://www.w3.org/TR/2004/REC-xml-20040204/' +;; `https://www.w3.org/TR/2004/REC-xml-20040204/' ;; (Extensible Markup Language (XML) 1.0 (Third Edition)) -;; `http://www.w3.org/TR/html40/' +;; `https://www.w3.org/TR/html40/' ;; (HTML 4.01 Specification) -;; `http://www.w3.org/TR/NOTE-html-970421' +;; `https://www.w3.org/TR/NOTE-html-970421' ;; (HTML DTD with support for Style Sheets) ;; ;; 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 @@ ;; ------------ ;; ;; See the URL: -;; `http://www.w3.org/TR/2004/REC-xml-20040204/#sec-notation' +;; `https://www.w3.org/TR/2004/REC-xml-20040204/#sec-notation' ;; (Extensible Markup Language (XML) 1.0 (Third Edition)) ;; ;; 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 @@ ;; Author: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> ;; Keywords: wp, ebnf, PostScript ;; Version: 4.4 -;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre +;; X-URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre ;; This file is part of GNU Emacs. @@ -326,7 +326,7 @@ Please send all bug fixes and enhancements to ;; `ebnf-lex-comment-char' and `ebnf-lex-eop-char'. ;; ;; `abnf' ebnf2ps recognizes the syntax described in the URL: -;; `http://www.ietf.org/rfc/rfc2234.txt' +;; `https://www.ietf.org/rfc/rfc2234.txt' ;; ("Augmented BNF for Syntax Specifications: ABNF"). ;; ;; `iso-ebnf' ebnf2ps recognizes the syntax described in the URL: @@ -342,11 +342,11 @@ Please send all bug fixes and enhancements to ;; `ebnf-yac-ignore-error-recovery'. ;; ;; `ebnfx' ebnf2ps recognizes the syntax described in the URL: -;; `http://www.w3.org/TR/2004/REC-xml-20040204/#sec-notation' +;; `https://www.w3.org/TR/2004/REC-xml-20040204/#sec-notation' ;; ("Extensible Markup Language (XML) 1.0 (Third Edition)") ;; ;; `dtd' ebnf2ps recognizes the syntax described in the URL: -;; `http://www.w3.org/TR/2004/REC-xml-20040204/' +;; `https://www.w3.org/TR/2004/REC-xml-20040204/' ;; ("Extensible Markup Language (XML) 1.0 (Third Edition)") ;; ;; Any other value is treated as `ebnf'. @@ -1779,7 +1779,7 @@ Valid values are: `ebnf-lex-comment-char' and `ebnf-lex-eop-char'. `abnf' ebnf2ps recognizes the syntax described in the URL: - `http://www.ietf.org/rfc/rfc2234.txt' + `https://www.ietf.org/rfc/rfc2234.txt' (\"Augmented BNF for Syntax Specifications: ABNF\"). `iso-ebnf' ebnf2ps recognizes the syntax described in the URL: @@ -1795,11 +1795,11 @@ Valid values are: `ebnf-yac-ignore-error-recovery'. `ebnfx' ebnf2ps recognizes the syntax described in the URL: - `http://www.w3.org/TR/2004/REC-xml-20040204/#sec-notation' + `https://www.w3.org/TR/2004/REC-xml-20040204/#sec-notation' (\"Extensible Markup Language (XML) 1.0 (Third Edition)\") `dtd' ebnf2ps recognizes the syntax described in the URL: - `http://www.w3.org/TR/2004/REC-xml-20040204/' + `https://www.w3.org/TR/2004/REC-xml-20040204/' (\"Extensible Markup Language (XML) 1.0 (Third Edition)\") 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." ;;; Tags query replace & search (defvar ebrowse-tags-loop-call '(ignore) - "Function call for `ebrowse-loop-continue'. + "Function call for `ebrowse-tags-loop-continue'. Passed to `apply' for each file in the tree. If it returns nil, proceed with the next file.") 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." (cond ((derived-mode-p 'c++-mode) "c++") (t "c"))))) -(defvar-local flymake-cc--proc nil "Internal variable for `flymake-gcc'") +(defvar-local flymake-cc--proc nil "Internal variable for `flymake-cc'") ;; forward declare this to shoosh compiler (instead of requiring ;; 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 @@ ;;; Bugs/todo: ;; - Only uses "Makefile", not "makefile" or "GNUmakefile" -;; (from http://bugs.debian.org/337339). +;; (from https://bugs.debian.org/337339). ;;; Code: 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 @@ ;; This file is part of GNU Emacs. -;; Homepage: http://www.emacswiki.org/emacs/GDB-MI +;; Homepage: https://www.emacswiki.org/emacs/GDB-MI ;; GNU Emacs is free software: you can redistribute it and/or modify ;; 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." ;; JDB command will get out of the debugger. There is some truly ;; pathetic JDB documentation available at: ;; -;; http://java.sun.com/products/jdk/1.1/debugging/ +;; https://java.sun.com/products/jdk/1.1/debugging/ ;; ;; KNOWN PROBLEMS AND FIXME's: ;; 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." (defvar hide-ifdef-env-backup nil "This variable is a backup of the previously cleared `hide-ifdef-env'. -This backup prevents any accidental clearance of `hide-fidef-env' by +This backup prevents any accidental clearance of `hide-ifdef-env' by `hif-clear-all-ifdef-defined'.") (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 @@ ;; ;; New versions of IDLWAVE, documentation, and more information available ;; from: -;; http://github.com/jdtsmith/idlwave +;; https://github.com/jdtsmith/idlwave ;; ;; INSTALLATION ;; ============ 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 @@ ;; along with new versions of IDLWAVE, documentation, and more ;; information, at: ;; -;; http://github.com/jdtsmith/idlwave +;; https://github.com/jdtsmith/idlwave ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 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 @@ ;; ;; New versions of IDLWAVE, documentation, and more information ;; available from: -;; http://github.com/jdtsmith/idlwave +;; https://github.com/jdtsmith/idlwave ;; ;; INSTALLATION: ;; ============= @@ -58,7 +58,7 @@ ;; The newest version of this file can be found on the maintainers ;; web site. ;; -;; http://github.com/jdtsmith/idlwave +;; https://github.com/jdtsmith/idlwave ;; ;; DOCUMENTATION ;; ============= @@ -896,7 +896,7 @@ IDL has currently stepped.") Info documentation for this package is available. Use \\[idlwave-info] to display (complain to your sysadmin if that does not work). For PostScript and HTML versions of the documentation, check IDLWAVE's - homepage at URL `http://github.com/jdtsmith/idlwave'. + homepage at URL `https://github.com/jdtsmith/idlwave'. IDLWAVE has customize support - see the group `idlwave'. 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 @@ ;; New versions of IDLWAVE, documentation, and more information ;; available from: -;; http://github.com/jdtsmith/idlwave +;; https://github.com/jdtsmith/idlwave ;;; 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 @@ ;; ;; New versions of IDLWAVE, documentation, and more information ;; available from: -;; http://github.com/jdtsmith/idlwave +;; https://github.com/jdtsmith/idlwave ;; ;; INSTALLATION ;; ============ @@ -64,7 +64,7 @@ ;; The newest version of this file is available from the maintainer's ;; Webpage: ;; -;; http://github.com/jdtsmith/idlwave +;; https://github.com/jdtsmith/idlwave ;; ;; DOCUMENTATION ;; ============= @@ -164,7 +164,7 @@ "Major mode for editing IDL .pro files." :tag "IDLWAVE" :link '(url-link :tag "Home Page" - "http://github.com/jdtsmith/idlwave") + "https://github.com/jdtsmith/idlwave") :link '(emacs-commentary-link :tag "Commentary in idlw-shell.el" "idlw-shell.el") :link '(emacs-commentary-link :tag "Commentary in idlwave.el" "idlwave.el") @@ -1846,7 +1846,7 @@ The main features of this mode are \\[idlwave-info] to display (complain to your sysadmin if that does not work). For Postscript, PDF, and HTML versions of the documentation, check IDLWAVE's homepage at URL - `http://github.com/jdtsmith/idlwave'. + `https://github.com/jdtsmith/idlwave'. IDLWAVE has customize support - see the group `idlwave'. 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 @@ ;; (or some similar separator), or by one of the special keywords ;; corresponding to builtin functions that can take their first arg ;; without parentheses. Of course, that presume we're looking at the - ;; *opening* slash. We can afford to mis-match the closing ones + ;; *opening* slash. We can afford to mismatch the closing ones ;; here, because they will be re-treated separately later in ;; perl-font-lock-special-syntactic-constructs. ((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." :group 'python) (defcustom python-shell-setup-codes nil - "List of code run by `python-shell-send-setup-codes'." + "List of code run by `python-shell-send-setup-code'." :type '(repeat symbol) :group 'python) @@ -2378,9 +2378,11 @@ regexps: `python-shell-prompt-regexp', (defun python-shell-prompt-set-calculated-regexps () "Detect and set input and output prompt regexps. -Build and set the values for `python-shell-input-prompt-regexp' -and `python-shell-output-prompt-regexp' using the values from -`python-shell-prompt-regexp', `python-shell-prompt-block-regexp', +Build and set the values for +`python-shell--prompt-calculated-input-regexp' and +`python-shell--prompt-calculated-output-regexp' using the values +from `python-shell-prompt-regexp', +`python-shell-prompt-block-regexp', `python-shell-prompt-pdb-regexp', `python-shell-prompt-output-regexp', `python-shell-prompt-input-regexps', @@ -2442,7 +2444,7 @@ of `python-shell-buffer-name'." (defun python-shell-internal-get-process-name () "Calculate the appropriate process name for Internal Python process. -The name is calculated from `python-shell-global-buffer-name' and +The name is calculated from `python-shell-buffer-name' and the `buffer-name'." (format "%s[%s]" python-shell-internal-buffer-name (buffer-name))) @@ -3074,7 +3076,7 @@ Returns the output. See `python-shell-send-string-no-output'." (define-obsolete-function-alias 'python-send-string 'python-shell-internal-send-string "24.3") -(defun python-shell-buffer-substring (start end &optional nomain) +(defun python-shell-buffer-substring (start end &optional nomain no-cookie) "Send buffer substring from START to END formatted for shell. This is a wrapper over `buffer-substring' that takes care of different transformations for the code sent to be evaluated in @@ -3100,12 +3102,13 @@ the python shell: (goto-char start) (python-util-forward-comment 1) (current-indentation)))) - (fillstr (when (not starts-at-point-min-p) - (concat - (format "# -*- coding: %s -*-\n" encoding) - (make-string - ;; Subtract 2 because of the coding cookie. - (- (line-number-at-pos start) 2) ?\n))))) + (fillstr (and (not no-cookie) + (not starts-at-point-min-p) + (concat + (format "# -*- coding: %s -*-\n" encoding) + (make-string + ;; Subtract 2 because of the coding cookie. + (- (line-number-at-pos start) 2) ?\n))))) (with-temp-buffer (python-mode) (when fillstr @@ -3144,7 +3147,8 @@ the python shell: (line-beginning-position) (line-end-position)))) (buffer-substring-no-properties (point-min) (point-max))))) -(defun python-shell-send-region (start end &optional send-main msg) +(defun python-shell-send-region (start end &optional send-main msg + no-cookie) "Send the region delimited by START and END to inferior Python process. When optional argument SEND-MAIN is non-nil, allow execution of 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 process running; defaults to t when called interactively." (interactive (list (region-beginning) (region-end) current-prefix-arg t)) - (let* ((string (python-shell-buffer-substring start end (not send-main))) + (let* ((string (python-shell-buffer-substring start end (not send-main) + no-cookie)) (process (python-shell-get-process-or-error msg)) (original-string (buffer-substring-no-properties start end)) (_ (string-match "\\`\n*\\(.*\\)" original-string))) @@ -3178,7 +3183,7 @@ interactively." (python-shell-send-region (save-excursion (python-nav-beginning-of-statement)) (save-excursion (python-nav-end-of-statement)) - send-main msg))) + send-main msg t))) (defun python-shell-send-buffer (&optional send-main msg) "Send the entire buffer to inferior Python process. @@ -3200,27 +3205,29 @@ optional argument MSG is non-nil, forces display of a user-friendly message if there's no process running; defaults to t when called interactively." (interactive (list current-prefix-arg t)) - (save-excursion - (python-shell-send-region - (progn - (end-of-line 1) - (while (and (or (python-nav-beginning-of-defun) - (beginning-of-line 1)) - (> (current-indentation) 0))) - (when (not arg) - (while (and - (eq (forward-line -1) 0) - (if (looking-at (python-rx decorator)) - t - (forward-line 1) - nil)))) - (point-marker)) - (progn - (or (python-nav-end-of-defun) - (end-of-line 1)) - (point-marker)) - nil ;; noop - msg))) + (let ((starting-pos (point))) + (save-excursion + (python-shell-send-region + (progn + (end-of-line 1) + (while (and (or (python-nav-beginning-of-defun) + (beginning-of-line 1)) + (> (current-indentation) 0))) + (when (not arg) + (while (and + (eq (forward-line -1) 0) + (if (looking-at (python-rx decorator)) + t + (forward-line 1) + nil)))) + (point-marker)) + (progn + (goto-char starting-pos) + (or (python-nav-end-of-defun) + (end-of-line 1)) + (point-marker)) + nil ;; noop + msg)))) (defun python-shell-send-file (file-name &optional process temp-file-name delete msg) @@ -4712,7 +4719,7 @@ customize how labels are formatted." (defun python-imenu-create-flat-index (&optional alist prefix) "Return flat outline of the current Python buffer for Imenu. Optional argument ALIST is the tree to be flattened; when nil -`python-imenu-build-index' is used with +`python-imenu-create-index' is used with `python-imenu-format-parent-item-jump-label-function' `python-imenu-format-parent-item-label-function' `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 @@ ;; Authors: Yukihiro Matsumoto ;; Nobuyoshi Nakada -;; URL: http://www.emacswiki.org/cgi-bin/wiki/RubyMode +;; URL: https://www.emacswiki.org/cgi-bin/wiki/RubyMode ;; Created: Fri Feb 4 14:49:13 JST 1994 ;; Keywords: languages ruby ;; 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." ?~ "_" ?, "_" ?= "." + ?/ "." ?\; "." ?| "." ?& "." 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." The KEYWORDS-ONLY flag is passed to font-lock to specify whether only keywords should be highlighted and syntactic highlighting -skipped. The IMENU flag indicates whether `imenu-mode' should -also be configured." +skipped. The IMENU flag indicates whether `imenu' should also be +configured." (let ;; Get the product-specific syntax-alist. @@ -4293,14 +4293,14 @@ Here is an example for your init file. It keeps the SQLi buffer a certain length. \(add-hook \\='sql-interactive-mode-hook - (function (lambda () - (setq comint-output-filter-functions #\\='comint-truncate-buffer)))) + (lambda () + (setq comint-output-filter-functions #\\='comint-truncate-buffer))) Here is another example. It will always put point back to the statement you entered, right above the output it created. \(setq comint-output-filter-functions - (function (lambda (STR) (comint-show-output))))" + (lambda (STR) (comint-show-output)))" :syntax-table sql-mode-syntax-table ;; FIXME: The doc above uses `setq' on `comint-output-filter-functions', ;; 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 @@ ;; Author: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> ;; Kenichi Handa <handa@gnu.org> (multi-byte characters) ;; Keywords: wp, print, PostScript -;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre +;; X-URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre ;; Package: ps-print ;; 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 @@ ;; Maintainer: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> ;; Keywords: wp, print, PostScript ;; Version: 7.3.5 -;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre +;; X-URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre (eval-when-compile (require 'cl-lib)) @@ -2198,7 +2198,7 @@ The values for `ps-line-number-start': `ps-line-number-step' inclusive. * If `ps-line-number-step' is set to `zebra', must be between 1 and the - value of `ps-zebra-strip-height' inclusive. Use this combination if you + value of `ps-zebra-stripe-height' inclusive. Use this combination if you wish that line number be relative to zebra stripes." :type '(integer :tag "Start Step Interval") :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 @@ ;; Kenichi Handa <handa@gnu.org> (multi-byte characters) ;; Maintainer: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> ;; Keywords: wp, print, PostScript -;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre +;; X-URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre ;; Package: ps-print ;; This file is part of GNU Emacs. @@ -57,7 +57,7 @@ (interactive) (ps-print-message-from-summary 'rmail-summary-buffer "RMAIL")) -;; Used in `ps-rmail-print-article-from-summary', +;; Used in `ps-rmail-print-message-from-summary', ;; `ps-gnus-print-article-from-summary' and `ps-vm-print-message-from-summary'. (defun ps-print-message-from-summary (summary-buffer summary-default) (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: - A number Cleanup each time Emacs has been idle that number of seconds. - A time string - Cleanup at specified time string, for example at \"11:00pm\". + Cleanup at specified time string daily, for example at \"11:00pm\". + +If a time string is provided and it is already past the specified time +for the current day, the first cleanup happens immediately as for `mode'. Setting this variable directly does not take effect; use \\[customize]. @@ -257,7 +260,7 @@ cleanup the list." :value mode) (const :tag "Never" :value never) - (number :tag "When idle that seconds" + (number :tag "When idle after (seconds)" :value 300) (string :tag "At time" :value "11:00pm")) @@ -371,7 +374,8 @@ See also the option `recentf-auto-cleanup'.") recentf-auto-cleanup t 'recentf-cleanup)) ((stringp recentf-auto-cleanup) (run-at-time - recentf-auto-cleanup nil 'recentf-cleanup)))))) + ;; Repeat every 24 hours. + recentf-auto-cleanup (* 24 60 60) 'recentf-cleanup)))))) ;;; File functions ;; 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." (defvar ido-ignore-item-temp-list) +(defun multi-occur--prompt () + (concat + "Next buffer to search " + (cond + ((eq read-buffer-function #'ido-read-buffer) + (substitute-command-keys + "(\\<ido-completion-map>\\[ido-select-text] to end): ")) + ((bound-and-true-p fido-mode) + (substitute-command-keys + "(\\<icomplete-fido-mode-map>\\[icomplete-fido-exit] to end): ")) + (t "(RET to end): ")))) + (defun multi-occur (bufs regexp &optional nlines) "Show all lines in buffers BUFS containing a match for REGEXP. Optional argument NLINES specifies the number of context lines to show @@ -1587,11 +1599,7 @@ See also `multi-occur-in-matching-buffers'." (buf nil) (ido-ignore-item-temp-list bufs)) (while (not (string-equal - (setq buf (read-buffer - (if (eq read-buffer-function #'ido-read-buffer) - "Next buffer to search (C-j to end): " - "Next buffer to search (RET to end): ") - nil t)) + (setq buf (read-buffer (multi-occur--prompt) nil t)) "")) (cl-pushnew buf bufs) (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' encountered an error during printing. Otherwise nil.") (defvar ses-start-time nil - "Time when current operation started. Used by `ses-time-check' to decide + "Time when current operation started. Used by `ses--time-check' to decide when to emit a progress message.") 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." (cwd (file-name-as-directory (expand-file-name default-directory))) (ignored-extensions (and comint-completion-fignore - (mapconcat (function (lambda (x) (concat (regexp-quote x) "\\'"))) + (mapconcat (lambda (x) (concat (regexp-quote x) "\\'")) comint-completion-fignore "\\|"))) (dir "") (comps-in-dir ()) (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'." ;; BEWARE: Called directly from the C code. "Execute CMD as an editor command. CMD must be a symbol that satisfies the `commandp' predicate. -Optional second arg RECORD-FLAG non-nil -means unconditionally put this command in the variable `command-history'. -Otherwise, that is done only if an arg is read using the minibuffer. -The argument KEYS specifies the value to use instead of (this-command-keys) -when reading the arguments; if it is nil, (this-command-keys) is used. -The argument SPECIAL, if non-nil, means that this command is executing -a special event, so ignore the prefix argument and don't clear it." + +Optional second arg RECORD-FLAG non-nil means unconditionally put +this command in the variable `command-history'. Otherwise, that +is done only if an arg is read using the minibuffer. + +The argument KEYS specifies the value to use instead of the +return value of the `this-command-keys' function when reading the +arguments; if it is nil, `this-command-keys' is used. + +The argument SPECIAL, if non-nil, means that this command is +executing a special event, so ignore the prefix argument and +don't clear it." (setq debug-on-next-call nil) (let ((prefixarg (unless special ;; FIXME: This should probably be done around @@ -7275,15 +7280,16 @@ Mode' for details." :lighter " Wrap" (if visual-line-mode (progn - (set (make-local-variable 'visual-line--saved-state) nil) - ;; Save the local values of some variables, to be restored if - ;; visual-line-mode is turned off. - (dolist (var '(line-move-visual truncate-lines - truncate-partial-width-windows - word-wrap fringe-indicator-alist)) - (if (local-variable-p var) - (push (cons var (symbol-value var)) - visual-line--saved-state))) + (unless visual-line--saved-state + (setq-local visual-line--saved-state (list nil)) + ;; Save the local values of some variables, to be restored if + ;; visual-line-mode is turned off. + (dolist (var '(line-move-visual truncate-lines + truncate-partial-width-windows + word-wrap fringe-indicator-alist)) + (if (local-variable-p var) + (push (cons var (symbol-value var)) + visual-line--saved-state)))) (set (make-local-variable 'line-move-visual) t) (set (make-local-variable 'truncate-partial-width-windows) nil) (setq truncate-lines nil @@ -7297,7 +7303,8 @@ Mode' for details." (kill-local-variable 'truncate-partial-width-windows) (kill-local-variable 'fringe-indicator-alist) (dolist (saved visual-line--saved-state) - (set (make-local-variable (car saved)) (cdr saved))) + (when (car saved) + (set (make-local-variable (car saved)) (cdr saved)))) (kill-local-variable 'visual-line--saved-state))) (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" (defun x-apply-session-resources () "Apply X resources which specify initial values for Emacs variables. This is called from a window-system initialization function, such -as `x-initialize-window-system' for X, either at startup (prior +as `window-system-initialization' for X, either at startup (prior to reading the init file), or afterwards when the user first opens a graphical frame. 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 @@ ;; The default value (9) should be fine for most decent computers. ;; NOTE: This variable should not be set to a number less than 3. -;; `strokes-display-strokes-buffer' will allow you to hide the strokes +;; `strokes-use-strokes-buffer' will allow you to hide the strokes ;; buffer when doing simple strokes. This is a speedup for slow ;; computers as well as people who don't want to see their strokes. @@ -581,7 +581,7 @@ The grid is a square whose dimension is [0,GRID-RESOLUTION)." (defun strokes-fill-stroke (unfilled-stroke &optional force) "Fill in missing grid locations in the list of UNFILLED-STROKE. -If FORCE is non-nil, then fill the stroke even if it's `stroke-click'. +If FORCE is non-nil, then fill the stroke even if it's `strokes-click-p'. NOTE: This is where the global variable `strokes-last-stroke' is set." (setq strokes-last-stroke ; this is global (if (and (strokes-click-p unfilled-stroke) @@ -1629,7 +1629,7 @@ Optional FORCE non-nil will ignore the buffer's read-only status." ;; The comment below is what I'd have to do if I wanted to ;; deal with random newlines in the midst of the compressed ;; strings. If I do this, I'll also have to change - ;; `strokes-xpm-to-compress-string' to deal with the newline, + ;; `strokes-xpm-to-compressed-string' to deal with the newline, ;; and possibly other whitespace stuff. YUCK! ;; (while (re-search-forward "\\+/\\(\\w\\|\\)+/" nil t nil (get-buffer buffer)) (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. (defmacro dotimes (spec &rest body) "Loop a certain number of times. Evaluate BODY with VAR bound to successive integers running from 0, -inclusive, to COUNT, exclusive. Then evaluate RESULT to get -the return value (nil if RESULT is omitted). Its use is deprecated. +inclusive, to COUNT, exclusive. + +Finally RESULT is evaluated to get the return value (nil if +RESULT is omitted). Using RESULT is deprecated, and may result +in compilation warnings about unused variables. \(fn (VAR COUNT [RESULT]) BODY...)" (declare (indent 1) (debug dolist)) @@ -3253,7 +3256,7 @@ See Info node `(elisp)Security Considerations'." ;; First, quote argument so that CommandLineToArgvW will ;; understand it. See - ;; http://msdn.microsoft.com/en-us/library/17w5ykft%28v=vs.85%29.aspx + ;; https://msdn.microsoft.com/en-us/library/17w5ykft%28v=vs.85%29.aspx ;; After we perform that level of quoting, escape shell ;; metacharacters so that cmd won't mangle our argument. If the ;; 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).") (let ((frame (nth 1 (car tail))) (this-buffer (nth 2 (car tail))) (buffers - (mapcar (function (lambda (elt) (nth 2 elt))) + (mapcar (lambda (elt) (nth 2 elt)) talk-display-alist))) ;; Put this display's own talk buffer ;; 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 @@ ;; ftp.lysator.liu.se in the directory /pub/emacs ;; There is also a WWW page at -;; http://www.lysator.liu.se/~davidk/elisp/ which has some information +;; https://www.lysator.liu.se/~davidk/elisp/ which has some information ;;; Known bugs: @@ -306,8 +306,8 @@ mode, ON-REGION is ignored and assumed true if the region is active." (goto-char tempo-region-start)) (save-excursion (tempo-insert-mark (point-marker)) - (mapc (function (lambda (elt) - (tempo-insert elt on-region))) + (mapc (lambda (elt) + (tempo-insert elt on-region)) (symbol-value template)) (tempo-insert-mark (point-marker))) (tempo-forward-mark)) @@ -449,9 +449,9 @@ never prompted." "Tries all the user-defined element handlers in `tempo-user-elements'." ;; Sigh... I need (some list) (catch 'found - (mapc (function (lambda (handler) - (let ((result (funcall handler element))) - (if result (throw 'found result))))) + (mapc (lambda (handler) + (let ((result (funcall handler element))) + (if result (throw 'found result)))) tempo-user-elements) (throw 'found nil))) @@ -542,7 +542,7 @@ and insert the results." ;;; tempo-forward-mark (defun tempo-forward-mark () - "Jump to the next mark in `tempo-forward-mark-list'." + "Jump to the next mark in `tempo-marks'." (interactive) (let ((next-mark (catch 'found (mapc @@ -560,7 +560,7 @@ and insert the results." ;;; tempo-backward-mark (defun tempo-backward-mark () - "Jump to the previous mark in `tempo-back-mark-list'." + "Jump to the previous mark in `tempo-marks'." (interactive) (let ((prev-mark (catch 'found (let (last) @@ -640,11 +640,11 @@ If `tempo-dirty-collection' is nil, the old collection is reused." tempo-collection) (setq tempo-collection (apply (function append) - (mapcar (function (lambda (tag-list) + (mapcar (lambda (tag-list) ; If the format for ; tempo-local-tags changes, ; change this - (eval (car tag-list)))) + (eval (car tag-list))) tempo-local-tags)))) (setq tempo-dirty-collection nil))) 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'. This is a good thing to set in mode hooks.") (defvar term-input-filter - (function (lambda (str) (not (string-match "\\`\\s *\\'" str)))) + (lambda (str) (not (string-match "\\`\\s *\\'" str))) "Predicate for filtering additions to input history. Only inputs answering true to this function are saved on the input history list. Default is to save anything that isn't all whitespace.") @@ -860,6 +860,7 @@ is buffer-local." (define-key map [prior] 'term-send-prior) (define-key map [next] 'term-send-next) (define-key map [xterm-paste] #'term--xterm-paste) + (define-key map [?\C-/] #'term-send-C-_) map) "Keyboard map for sending characters directly to the inferior process.") @@ -1282,6 +1283,7 @@ without any interpretation." (defun term-send-next () (interactive) (term-send-raw-string "\e[6~")) (defun term-send-del () (interactive) (term-send-raw-string "\e[3~")) (defun term-send-backspace () (interactive) (term-send-raw-string "\C-?")) +(defun term-send-C-_ () (interactive) (term-send-raw-string "\C-_")) (defun term-char-mode () "Switch to char (\"raw\") sub-mode of term mode. @@ -3638,8 +3640,8 @@ The top-most line is line 0." (message "Terminal-emulator pager break help...") (sit-for 0) (with-electric-help - (function (lambda () - (princ (substitute-command-keys + (lambda () + (princ (substitute-command-keys "\\<term-pager-break-map>\ Terminal-emulator MORE break.\n\ Type one of the following keys:\n\n\ @@ -3657,7 +3659,7 @@ Type one of the following keys:\n\n\ Any other key is passed through to the program running under the terminal emulator and disables pager processing until all pending output has been dealt with.")) - nil)))) + nil))) (defun term-pager-continue (new-count) (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." ;; The following alist was compiled from: ;; ;; Ralf Brown's Interrupt List. file INTERRUP.F, D-2138, Table 01400 -;; http://www.ethnologue.com/country_index.asp (official languages) -;; http://unicode.org/onlinedat/languages.html -;; http://unicode.org/onlinedat/countries.html +;; https://www.ethnologue.com/country_index.asp (official languages) +;; https://unicode.org/onlinedat/languages.html +;; https://unicode.org/onlinedat/countries.html ;; ;; Only the official languages listed for each country. ;; 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.") (define-key map "\C-c\C-a\C-b" 'artist-submit-bug-report) (define-key map [menu-bar artist] (cons "Artist" artist-menu-map)) map) - "Keymap for `artist-minor-mode'.") + "Keymap for `artist-mode'.") (defvar artist-replacement-table (make-vector 256 0) "Replacement table for `artist-replace-char'.") @@ -1958,7 +1958,8 @@ Return a list (RETURN-CODE STDOUT STDERR)." (defsubst artist-get-char-at-xy (x y) "Return the character found at column X, row Y. -Also updates the variables `artist-draw-min-y' and `artist-draw-max-y'." +Also updates the variables `artist-draw-region-min-y' and +`artist-draw-region-max-y'." (artist-move-to-xy x y) (let ((curr-y (artist-current-line))) (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." ;; - artist-key-set-point-xxx for setting a point in the ;; mode, to be called from `artist-key-set-point-common'. ;; -;; - artist-key-do-continuously-xxx to be called from -;; `artist-key-do-continuously-common' whenever the user +;; - artist-key-do-continously-xxx to be called from +;; `artist-key-do-continously-common' whenever the user ;; moves around. ;; ;; 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 @@ "Identifiers for types of media.") (defconst css-property-alist - ;; CSS 2.1 properties (http://www.w3.org/TR/CSS21/propidx.html). + ;; CSS 2.1 properties (https://www.w3.org/TR/CSS21/propidx.html). ;; ;; Properties duplicated by any of the CSS3 modules below have been ;; removed. @@ -190,7 +190,7 @@ ("z-index" "auto" integer) ;; CSS Animations - ;; (http://www.w3.org/TR/css3-animations/#property-index) + ;; (https://www.w3.org/TR/css3-animations/#property-index) ("animation" single-animation-name time single-timing-function single-animation-iteration-count single-animation-direction single-animation-fill-mode single-animation-play-state) @@ -204,7 +204,7 @@ ("animation-timing-function" single-timing-function) ;; CSS Backgrounds and Borders Module Level 3 - ;; (http://www.w3.org/TR/css3-background/#property-index) + ;; (https://www.w3.org/TR/css3-background/#property-index) ("background" bg-layer final-bg-layer) ("background-attachment" attachment) ("background-clip" box) @@ -249,7 +249,7 @@ ("box-shadow" "none" shadow) ;; CSS Basic User Interface Module Level 3 (CSS3 UI) - ;; (http://www.w3.org/TR/css3-ui/#property-index) + ;; (https://www.w3.org/TR/css3-ui/#property-index) ("box-sizing" "content-box" "border-box") ("caret-color" "auto" color) ("cursor" uri x y "auto" "default" "none" "context-menu" "help" @@ -272,7 +272,7 @@ ("text-overflow" "clip" "ellipsis" string) ;; CSS Color Module Level 3 - ;; (http://www.w3.org/TR/css3-color/#property) + ;; (https://www.w3.org/TR/css3-color/#property) ("color" color) ("opacity" alphavalue) @@ -304,7 +304,7 @@ ("grid-template-rows" "none" track-list auto-track-list) ;; CSS Flexible Box Layout Module Level 1 - ;; (http://www.w3.org/TR/css-flexbox-1/#property-index) + ;; (https://www.w3.org/TR/css-flexbox-1/#property-index) ("align-content" "flex-start" "flex-end" "center" "space-between" "space-around" "stretch") ("align-items" "flex-start" "flex-end" "center" "baseline" @@ -323,7 +323,7 @@ ("order" integer) ;; CSS Fonts Module Level 3 - ;; (http://www.w3.org/TR/css3-fonts/#property-index) + ;; (https://www.w3.org/TR/css3-fonts/#property-index) ("font" font-style font-variant-css21 font-weight font-stretch font-size line-height font-family "caption" "icon" "menu" "message-box" "small-caption" "status-bar") @@ -419,7 +419,7 @@ ("columns" column-width column-count) ;; CSS Overflow Module Level 3 - ;; (http://www.w3.org/TR/css-overflow-3/#property-index) + ;; (https://www.w3.org/TR/css-overflow-3/#property-index) ("max-lines" "none" integer) ("overflow" "visible" "hidden" "scroll" "auto" "paged-x" "paged-y" "paged-x-controls" "paged-y-controls" "fragments") @@ -448,7 +448,7 @@ ("text-underline-position" "auto" "under" "left" "right") ;; CSS Text Module Level 3 - ;; (http://www.w3.org/TR/css3-text/#property-index) + ;; (https://www.w3.org/TR/css3-text/#property-index) ("hanging-punctuation" "none" "first" "force-end" "allow-end" "last") ("hyphens" "none" "manual" "auto") @@ -470,7 +470,7 @@ ("word-wrap" "normal" "break-word") ;; CSS Transforms Module Level 1 - ;; (http://www.w3.org/TR/css3-2d-transforms/#property-index) + ;; (https://www.w3.org/TR/css3-2d-transforms/#property-index) ("backface-visibility" "visible" "hidden") ("perspective" "none" length) ("perspective-origin" "left" "center" "right" "top" "bottom" @@ -481,7 +481,7 @@ ("transform-style" "flat" "preserve-3d") ;; CSS Transitions - ;; (http://www.w3.org/TR/css3-transitions/#property-index) + ;; (https://www.w3.org/TR/css3-transitions/#property-index) ("transition" single-transition) ("transition-delay" time) ("transition-duration" time) @@ -503,7 +503,7 @@ ("writing-mode" "horizontal-tb" "vertical-rl" "vertical-lr") ;; Filter Effects Module Level 1 - ;; (http://www.w3.org/TR/filter-effects/#property-index) + ;; (https://www.w3.org/TR/filter-effects/#property-index) ("color-interpolation-filters" "auto" "sRGB" "linearRGB") ("filter" "none" filter-function-list) ("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'. Consider using the `ispell-parser' to check your text. For instance consider adding: -\(add-hook \\='tex-mode-hook (function (lambda () (setq ispell-parser \\='tex)))) +\(add-hook \\='tex-mode-hook (lambda () (setq ispell-parser \\='tex))) in your init file. \\[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: You can bind this to the key C-c i in GNUS or mail by adding to `news-reply-mode-hook' or `mail-mode-hook' the following lambda expression: - (function (lambda () (local-set-key \"\\C-ci\" \\='ispell-message)))" + (lambda () (local-set-key \"\\C-ci\" \\='ispell-message))" (interactive) (save-excursion (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 @@ ;; When using `table-cell-map-hook' do not use `local-set-key'. ;; ;; (add-hook 'table-cell-map-hook -;; (function (lambda () -;; (local-set-key [<key sequence>] '<function>)))) +;; (lambda () +;; (local-set-key [<key sequence>] '<function>))) ;; ;; Adding the above to your init file is a common way to customize a ;; mode specific keymap. However it does not work for this package. @@ -349,8 +349,8 @@ ;; explicitly. The correct way of achieving above task is: ;; ;; (add-hook 'table-cell-map-hook -;; (function (lambda () -;; (define-key table-cell-map [<key sequence>] '<function>)))) +;; (lambda () +;; (define-key table-cell-map [<key sequence>] '<function>))) ;; ;; ----- ;; Menu: @@ -2929,7 +2929,7 @@ buffer, and leaves the previous contents of the buffer untouched. References used for this implementation: HTML: - URL `http://www.w3.org' + URL `https://www.w3.org' LaTeX: URL `http://www.maths.tcd.ie/~dwilkins/LaTeXPrimer/Tables.html' @@ -3503,9 +3503,9 @@ column must consists from cells of same width." (let ((cell-list (table--vertical-cell-list 'top-to-bottom))) (unless (and (table--uniform-list-p - (mapcar (function (lambda (cell) (car (table--get-coordinate (car cell))))) cell-list)) + (mapcar (lambda (cell) (car (table--get-coordinate (car cell)))) cell-list)) (table--uniform-list-p - (mapcar (function (lambda (cell) (car (table--get-coordinate (cdr cell))))) cell-list))) + (mapcar (lambda (cell) (car (table--get-coordinate (cdr cell)))) cell-list))) (error "Cells in this column are not in uniform width")) (unless lu-coord (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." (push (cons "--" (match-beginning 0)) menu)) ;; Sort in increasing buffer position order. - (sort menu (function (lambda (a b) (< (cdr a) (cdr b)))))))) + (sort menu (lambda (a b) (< (cdr a) (cdr b))))))) ;;;; ;;;; 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'.") "Regexp matching a URI without a scheme component.") (defvar thing-at-point-uri-schemes - ;; Officials from http://www.iana.org/assignments/uri-schemes.html + ;; Officials from https://www.iana.org/assignments/uri-schemes.html '("aaa://" "about:" "acap://" "apt:" "bzr://" "bzr+ssh://" "attachment:/" "chrome://" "cid:" "content://" "crid://" "cvs://" "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 @@ ;; your images, use image-dired.el ;; ;; The 'convert' program from 'ImageMagick' -;; [URL:http://www.imagemagick.org/] is required. +;; [URL:https://www.imagemagick.org/] is required. ;; ;; Thanks: Alex Schroeder <alex@gnu.org> for maintaining the package at some ;; 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 @@ 2012-04-10 William Xu <william.xwl@gmail.com> (tiny change) - * url.el (url-retrieve-internal): Hexify multibye URL string first + * url.el (url-retrieve-internal): Hexify multibyte URL string first when necessary (bug#7017). 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 @@ ;;; ------------------------ ;;; This implements the BASIC authorization type. See the online ;;; documentation at -;;; http://www.w3.org/hypertext/WWW/AccessAuthorization/Basic.html +;;; https://www.w3.org/hypertext/WWW/AccessAuthorization/Basic.html ;;; for the complete documentation on this type. ;;; ;;; 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." (setq fname (and fname (mapconcat - (function (lambda (x) - (if (= x ?~) "" (char-to-string x)))) + (lambda (x) + (if (= x ?~) "" (char-to-string x))) fname "")) fname (cond ((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 @@ ;;; Commentary: ;; IRC URLs are defined in -;; http://www.w3.org/Addressing/draft-mirashi-url-irc-01.txt +;; https://www.w3.org/Addressing/draft-mirashi-url-irc-01.txt ;;; Code: 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 @@ ;;; Commentary: -;; Registered URI schemes: http://www.iana.org/assignments/uri-schemes +;; Registered URI schemes: https://www.iana.org/assignments/uri-schemes ;;; Code: 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." (defun-cvs-mode (cvs-mode-diff . DOUBLE) (flags) "Diff the selected files against the repository. This command compares the files in your working area against the -revision which they are based upon. -See also `cvs-diff-ignore-marks'." +revision which they are based upon." (interactive (list (cvs-add-branch-prefix (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." ;; Don't unquote the old name, it wasn't quoted in the first place (and file (setq file (wdired-normalize-filename file (not old))))) (if (or no-dir old) - file + (if no-dir (file-relative-name file) file) (and file (> (length file) 0) (concat (dired-current-directory) file)))))) @@ -913,9 +913,9 @@ Like original function but it skips read-only words." (if (= (length perms-new) 10) (progn (setq perm-tmp - (int-to-string (wdired-perms-to-number perms-new))) - (unless (equal 0 (process-file dired-chmod-program - nil nil nil perm-tmp filename)) + (string-to-number + (int-to-string (wdired-perms-to-number perms-new)) 8)) + (unless (set-file-modes filename perm-tmp) (setq errors (1+ errors)) (dired-log "%s %s `%s' failed\n\n" 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 @@ ;; Author: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> ;; Keywords: data, wp ;; Version: 13.2.2 -;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre +;; X-URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre ;; This file is part of GNU Emacs. 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." :group 'widgets :type 'boolean) +(defun widget--simplify-menu (extended) + "Convert the EXTENDED menu into a menu composed of simple menu items. + +Each item in the simplified menu is of the form (ITEM-STRING . REAL-BINDING), +where both elements are taken from the EXTENDED MENU. ITEM-STRING is the +correspondent ITEM-NAME in the menu-item entry: + (menu-item ITEM-NAME REAL-BINDING . ITEM-PROPERTY-LIST), and REAL-BINDING is +the symbol in the key vector, as in `define-key'. + (See `(elisp)Defining Menus' for more information.) + +Only visible, enabled and meaningful menu items make their way into +the returned simplified menu. That is: +For the menu item to be visible, it has to either lack a :visible form in its +item-property-list, or the :visible form has to evaluate to a non-nil value. +For the menu item to be enabled, it has to either lack a :enabled form in its +item-property-list, or the :enable form has to evaluate to a non-nil value. +Additionally, if the menu item is a radio button, then its selected form has +to evaluate to nil for the menu item to be meaningful." + (let (simplified) + (map-keymap (lambda (ev def) + (when (and (eq (nth 0 def) 'menu-item) + (nth 2 def)) ; Only menu-items with a real binding. + ;; Loop through the item-property-list, looking for + ;; :visible, :enable (or :active) and :button properties. + (let ((plist (nthcdr 3 def)) + (enable t) ; Enabled by default. + (visible t) ; Visible by default. + selected keyword value) + (while (and plist (cdr plist) + (keywordp (setq keyword (car plist)))) + (setq value (cadr plist)) + (cond ((memq keyword '(:visible :included)) + (setq visible value)) + ((memq keyword '(:enable :active)) + (setq enable value)) + ((and (eq keyword :button) + (eq (car value) :radio)) + (setq selected (cdr value)))) + (setq plist (cddr plist))) + (when (and (eval visible) + (eval enable) + (or (not selected) + (not (eval selected)))) + (push (cons (nth 1 def) ev) simplified))))) + extended) + (reverse simplified))) + (defun widget-choose (title items &optional event) "Choose an item from a list. First argument TITLE is the name of the list. -Second argument ITEMS is a list whose members are either +Second argument ITEMS should be a menu, either with simple item definitions, +or with extended item definitions. +When ITEMS has simple item definitions, it is a list whose members are either (NAME . VALUE), to indicate selectable items, or just strings to indicate unselectable items. + +When ITEMS is a menu that uses an extended format, then ITEMS should be a +keymap, and each binding should look like this: + (menu-item ITEM-NAME REAL-BINDING . ITEM-PROPERTY-LIST) +or like this: (menu-item ITEM-NAME) to indicate a non-selectable item. +REAL-BINDING should be a symbol, and should not be a keymap, because submenus +are not supported. + Optional third argument EVENT is an input event. -The user is asked to choose between each NAME from the items alist, -and the VALUE of the chosen element will be returned. If EVENT is a -mouse event, and the number of elements in items is less than +If EVENT is a mouse event, and the number of elements in items is less than `widget-menu-max-size', a popup menu will be used, otherwise the -minibuffer." +minibuffer. + +The user is asked to choose between each NAME from ITEMS. +If ITEMS has simple item definitions, then this function returns the VALUE of +the chosen element. If ITEMS is a keymap, then the return value is the symbol +in the key vector, as in the argument of `define-key'." (cond ((and (< (length items) widget-menu-max-size) event (display-popup-menus-p)) ;; Mouse click. - (x-popup-menu event - (list title (cons "" items)))) + (if (keymapp items) + ;; Modify the keymap prompt, and then restore the old one, if any. + (let ((prompt (keymap-prompt items))) + (unwind-protect + (progn + (setq items (delete prompt items)) + (push title (cdr items)) + ;; Return just the first element of the list of events. + (car (x-popup-menu event items))) + (setq items (delete title items)) + (when prompt + (push prompt (cdr items))))) + (x-popup-menu event (list title (cons "" items))))) ((or widget-menu-minibuffer-flag (> (length items) widget-menu-max-shortcuts)) + (when (keymapp items) + (setq items (widget--simplify-menu items))) ;; Read the choice of name from the minibuffer. (setq items (cl-remove-if 'stringp items)) (let ((val (completing-read (concat title ": ") items nil t))) @@ -233,6 +306,8 @@ minibuffer." (setq val try)) (cdr (assoc val items)))))) (t + (when (keymapp items) + (setq items (widget--simplify-menu items))) ;; Construct a menu of the choices ;; and then use it for prompting for a single character. (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." (set-window-parameter (window-parent new) 'window-side window-side)))) ((eq window-combination-resize 'atom) - ;; Make sure `window--check-frame' won't destroy an existing + ;; Make sure `window--check' won't destroy an existing ;; atomic window in case the new window gets nested inside. (unless (window-parameter window 'window-atom) (set-window-parameter window 'window-atom t)) @@ -7712,7 +7712,7 @@ indirectly called by the latter." (with-current-buffer (window-buffer window) (cond ((memq major-mode allowed-modes) 'same) - ((derived-mode-p allowed-modes) + ((apply #'derived-mode-p allowed-modes) 'derived))))) (when (and mode? (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." (setq name (xml-maybe-do-ns (match-string-no-properties 1) nil xml-ns)) (goto-char end-pos) - ;; See also: http://www.w3.org/TR/2000/REC-xml-20001006#AVNormalize + ;; See also: https://www.w3.org/TR/2000/REC-xml-20001006#AVNormalize ;; Do we have a string between quotes (or double-quotes), ;; or a simple word ? |