commit 9c0ac88199accb4133d9fbf36d3c4adc3705b22f (HEAD, refs/remotes/origin/master) Author: Juanma Barranquero Date: Mon Dec 2 01:38:31 2019 +0100 ibuf-ext.el: Fix previous change * lisp/ibuf-ext.el (ibuffer-generate-filter-groups): Use `cl-destructuring-bind' instead of `cl-multiple-value-bind', as we don't want to assume how multiple-values are implemented, and we know a list is being returned anyway. Suggested by Stefan Monnier. diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index 375090e09c..12930fc0a6 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -760,7 +760,7 @@ specification, with the same structure as an element of the list (i 0)) (dolist (filtergroup filter-group-alist) (let ((filterset (cdr filtergroup))) - (cl-multiple-value-bind (hip-crowd lamers) + (cl-destructuring-bind (hip-crowd lamers) (ibuffer-split-list (lambda (bufmark) (ibuffer-included-in-filters-p (car bufmark) filterset)) commit 3dd7de625f13ac2ce85af6c28b91ce4bbcd972ac Author: Dmitry Gutov Date: Mon Dec 2 01:33:41 2019 +0200 * lisp/vc/diff-mode.el (diff-context): Set 'extend t' (bug#37774). diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el index 08998fbc77..b7d59bef8a 100644 --- a/lisp/vc/diff-mode.el +++ b/lisp/vc/diff-mode.el @@ -384,9 +384,9 @@ well." "`diff-mode' face used to highlight function names produced by \"diff -p\".") (defface diff-context - '((t nil)) + '((t :extend t)) "`diff-mode' face used to highlight context and other side-information." - :version "25.1") + :version "27.1") (defface diff-nonexistent '((t :inherit diff-file-header)) commit 9f2145f42daab13aed5cf89fdb6a7c5579819ec0 Author: Mattias Engdegård Date: Sun Dec 1 18:31:34 2019 +0100 Temporary enable transient-mark-mode for rectangle selection * lisp/mouse.el (mouse-drag-region-rectangle): Enable transient-mark-mode during selection (bug#38431). diff --git a/lisp/mouse.el b/lisp/mouse.el index bc05a35009..32996b2ede 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -2007,6 +2007,10 @@ This must be bound to a button-down mouse event." (setq dragged t) (mouse-minibuffer-check start-event) (deactivate-mark) + (setq-local transient-mark-mode + (if (eq transient-mark-mode 'lambda) + '(only) + (cons 'only transient-mark-mode))) (posn-set-point start-pos) (rectangle-mark-mode) ;; Only tell rectangle about the exact column if we are possibly commit 8b5c5a9a9b307a9593dbc643fd97885435191095 Author: Glenn Morris Date: Sun Dec 1 06:27:14 2019 -0800 ; Auto-commit of loaddefs files. diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index b6b0c894be..67475eb485 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -16778,6 +16778,29 @@ buffer `*icalendar-errors*'. ;;;### (autoloads nil "icomplete" "icomplete.el" (0 0 0 0)) ;;; Generated autoloads from icomplete.el +(defvar fido-mode nil "\ +Non-nil if Fido mode is enabled. +See the `fido-mode' command +for a description of this minor mode. +Setting this variable directly does not take effect; +either customize it (see the info node `Easy Customization') +or call the function `fido-mode'.") + +(custom-autoload 'fido-mode "icomplete" nil) + +(autoload 'fido-mode "icomplete" "\ +An enhanced `icomplete-mode' that emulates `ido-mode'. + +If called interactively, enable Fido mode if ARG is positive, and +disable it if ARG is zero or negative. If called from Lisp, also +enable the mode if ARG is omitted or nil, and toggle it if ARG is +`toggle'; disable the mode otherwise. + +This global minor mode makes minibuffer completion behave +more like `ido-mode' than regular `icomplete-mode'. + +\(fn &optional ARG)" t nil) + (defvar icomplete-mode nil "\ Non-nil if Icomplete mode is enabled. See the `icomplete-mode' command @@ -17383,7 +17406,11 @@ Optional TYPE is a symbol describing the image type. If TYPE is omitted or nil, try to determine the image type from its first few bytes of image data. If that doesn't work, and SOURCE is a file name, use its file extension as image type. -Optional DATA-P non-nil means SOURCE is a string containing image data. + +Optional DATA-P non-nil means SOURCE is a string containing image +data. If DATA-P is a symbol with a name on the format +`image/jpeg', that may be used as a hint to determine the image +type if we can't otherwise guess it. \(fn SOURCE &optional TYPE DATA-P)" nil nil) @@ -18907,7 +18934,7 @@ one of the aforementioned options instead of using this mode. ;;;### (autoloads nil "jsonrpc" "jsonrpc.el" (0 0 0 0)) ;;; Generated autoloads from jsonrpc.el -(push (purecopy '(jsonrpc 1 0 7)) package--builtin-versions) +(push (purecopy '(jsonrpc 1 0 8)) package--builtin-versions) (if (fboundp 'register-definition-prefixes) (register-definition-prefixes "jsonrpc" '("jrpc-default-request-timeout" "jsonrpc-"))) @@ -21637,7 +21664,6 @@ Display a list of all coding categories." nil nil) (autoload 'describe-font "mule-diag" "\ Display information about a font whose name is FONTNAME. -The font must be already used by Emacs. \(fn FONTNAME)" t nil) @@ -22053,10 +22079,12 @@ values: :client-certificate should either be a list where the first element is the certificate key file name, and the second - element is the certificate file name itself, or t, which - means that `auth-source' will be queried for the key and the + element is the certificate file name itself, or t, which means + that `auth-source' will be queried for the key and the certificate. This parameter will only be used when doing TLS - or STARTTLS connections. + or STARTTLS connections. To enable automatic queries of + `auth-source' when `:client-certificate' is not specified + customize `network-stream-use-client-certificates' to t. :use-starttls-if-possible is a boolean that says to do opportunistic STARTTLS upgrades even if Emacs doesn't have built-in TLS functionality. @@ -24198,13 +24226,13 @@ call (package-initialize) in your init-file.") (custom-autoload 'package-enable-at-startup "package" t) +(defvar package--activated nil "\ +Non-nil if `package-activate-all' has been run.") + (autoload 'package-initialize "package" "\ Load Emacs Lisp packages, and activate them. The variable `package-load-list' controls which packages to load. If optional arg NO-ACTIVATE is non-nil, don't activate packages. -If called as part of loading `user-init-file', set -`package-enable-at-startup' to nil, to prevent accidentally -loading packages twice. It is not necessary to adjust `load-path' or `require' the individual packages after calling `package-initialize' -- this is @@ -25145,7 +25173,7 @@ to make output that `read' can handle, whenever this is possible. \(fn OBJECT)" nil nil) (autoload 'pp-buffer "pp" "\ -Prettify the current buffer with printed representation of a Lisp object." nil nil) +Prettify the current buffer with printed representation of a Lisp object." t nil) (autoload 'pp "pp" "\ Output the pretty-printed representation of OBJECT, any Lisp object. @@ -29530,6 +29558,18 @@ Return a list of all the elements for which (PRED element) is nil in SEQUENCE. \(fn PRED SEQUENCE)" nil nil) +(autoload 'seq-reduce "seq" "\ +Reduce the function FUNCTION across SEQUENCE, starting with INITIAL-VALUE. + +Return the result of calling FUNCTION with INITIAL-VALUE and the +first element of SEQUENCE, then calling FUNCTION with that result and +the second element of SEQUENCE, then with that result and the third +element of SEQUENCE, etc. + +If SEQUENCE is empty, return INITIAL-VALUE and FUNCTION is not called. + +\(fn FUNCTION SEQUENCE INITIAL-VALUE)" nil nil) + (autoload 'seq-find "seq" "\ Return the first element for which (PRED element) is non-nil in SEQUENCE. If no element is found, return DEFAULT. @@ -30369,11 +30409,11 @@ enabled, and `so-long-predicate' has detected that the file contains long lines. Many Emacs modes struggle with buffers which contain excessively long lines, and may consequently cause unacceptable performance issues. -This is commonly on account of 'minified' code (i.e. code has been compacted -into the smallest file size possible, which often entails removing newlines -should they not be strictly necessary). These kinds of files are typically -not intended to be edited, so not providing the usual editing mode in these -cases will rarely be an issue. +This is commonly on account of \"minified\" code (i.e. code that has been +compacted into the smallest file size possible, which often entails removing +newlines should they not be strictly necessary). These kinds of files are +typically not intended to be edited, so not providing the usual editing mode +in these cases will rarely be an issue. This major mode disables any active minor modes listed in `so-long-minor-modes' for the current buffer, and buffer-local values are assigned to variables in @@ -30384,7 +30424,7 @@ values), despite potential performance issues, type \\[so-long-revert]. Use \\[so-long-commentary] for more information. -Use \\[so-long-customize] to configure the behavior. +Use \\[so-long-customize] to configure the behaviour. \(fn)" t nil) @@ -30396,8 +30436,12 @@ This command is called automatically when long lines are detected, when The effects of the action can be undone by calling `so-long-revert'. -If ACTION is provided, it is used instead of `so-long-action'. With a prefix -argument, select the action to use interactively. +If ACTION is provided, it is used instead of `so-long-action'. + +With a prefix argument, select the action to use interactively. + +If an action was already active in the buffer, it will be reverted before +invoking the new action. \(fn &optional ACTION)" t nil) @@ -30427,7 +30471,7 @@ ARG is `toggle'; disable the mode otherwise. Many Emacs modes struggle with buffers which contain excessively long lines, and may consequently cause unacceptable performance issues. -This is commonly on account of 'minified' code (i.e. code that has been +This is commonly on account of \"minified\" code (i.e. code that has been compacted into the smallest file size possible, which often entails removing newlines should they not be strictly necessary). @@ -31243,7 +31287,7 @@ The default comes from `process-coding-system-alist' and your might try undecided-dos as a coding system. If this doesn't help, Try to set `comint-output-filter-functions' like this: -\(add-hook 'comint-output-filter-functions #\\='comint-strip-ctrl-m 'append) +\(add-hook \\='comint-output-filter-functions #\\='comint-strip-ctrl-m \\='append) \(Type \\[describe-mode] in the SQL buffer for a list of commands.) @@ -35425,7 +35469,7 @@ in any way you like. (autoload 'userlock--ask-user-about-supersession-threat "userlock" "\ -\(fn FN)" nil nil) +\(fn FILENAME)" nil nil) (autoload 'ask-user-about-supersession-threat "userlock" "\ Ask a user who is about to modify an obsolete buffer what to do. @@ -35436,7 +35480,7 @@ in which case the proposed buffer modification will not be made. You can rewrite this to use any criterion you like to choose which one to do. The buffer in question is current when this function is called. -\(fn FN)" nil nil) +\(fn FILENAME)" nil nil) (if (fboundp 'register-definition-prefixes) (register-definition-prefixes "userlock" '("ask-user-about-" "file-" "userlock--check-content-unchanged"))) @@ -35724,12 +35768,16 @@ WORKING-REVISION and LIMIT. \(fn &optional WORKING-REVISION LIMIT)" t nil) (autoload 'vc-print-root-log "vc" "\ -List the change log for the current VC controlled tree in a window. +List the revision history for the current VC controlled tree in a window. If LIMIT is non-nil, it should be a number specifying the maximum number of revisions to show; the default is `vc-log-show-limit'. When called interactively with a prefix argument, prompt for LIMIT. +When the prefix argument is a number, use it as LIMIT. +A special case is when the prefix argument is 1: in this case +the command asks for the ID of a revision, and shows that revision +with its diffs (if the underlying VCS supports that). -\(fn &optional LIMIT)" t nil) +\(fn &optional LIMIT REVISION)" t nil) (autoload 'vc-print-branch-log "vc" "\ Show the change log for BRANCH in a window. @@ -36192,7 +36240,7 @@ Key bindings: ;;;### (autoloads nil "verilog-mode" "progmodes/verilog-mode.el" ;;;;;; (0 0 0 0)) ;;; Generated autoloads from progmodes/verilog-mode.el -(push (purecopy '(verilog-mode 2019 9 23 4801067)) package--builtin-versions) +(push (purecopy '(verilog-mode 2019 11 21 248091482)) package--builtin-versions) (autoload 'verilog-mode "verilog-mode" "\ Major mode for editing Verilog code. @@ -36871,8 +36919,8 @@ Known problems: - XEmacs: Incorrect start-up when automatically opening speedbar. - XEmacs: Indentation in XEmacs 21.4 (and higher). -- Indentation incorrect for new 'postponed' VHDL keyword. -- Indentation incorrect for 'protected body' construct. +- Indentation incorrect for new `postponed' VHDL keyword. +- Indentation incorrect for `protected body' construct. The VHDL Mode Authors commit ec65b9adbeffe8f9b568a79a694ce681d2519a1a Author: Michael Albinus Date: Sun Dec 1 12:25:15 2019 +0100 Suppress superfluous messages in tramp-tests * test/lisp/net/tramp-tests.el (tramp-test10-write-region) (tramp-test10-write-region-file-precious-flag) (tramp-test34-connection-local-variables) (tramp-test36-vc-registered): Let-bind `inhibit-message'. diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el index 1c41437220..36403997b3 100644 --- a/lisp/net/tramp-compat.el +++ b/lisp/net/tramp-compat.el @@ -327,6 +327,11 @@ A nil value for either argument stands for the current time." (unload-feature 'tramp-loaddefs 'force) (unload-feature 'tramp-compat 'force))) +;;; TODO: +;; +;; * Starting with Emacs 25.1, replace `tramp-message-show-message' by +;; the reverse of `inhibit-message'. + (provide 'tramp-compat) ;;; tramp-compat.el ends here diff --git a/test/lisp/net/tramp-archive-tests.el b/test/lisp/net/tramp-archive-tests.el index 80bc9ccaae..7de9589e89 100644 --- a/test/lisp/net/tramp-archive-tests.el +++ b/test/lisp/net/tramp-archive-tests.el @@ -58,11 +58,11 @@ "A directory file name, which looks like an archive.") (setq password-cache-expiry nil - tramp-verbose 0 tramp-cache-read-persistent-data t ;; For auth-sources. tramp-copy-size-limit nil tramp-message-show-message nil - tramp-persistency-file-name nil) + tramp-persistency-file-name nil + tramp-verbose 0) (defun tramp-archive--test-make-temp-name () "Return a temporary file name for test. diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 9b1af1b28b..09ba928c89 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -2233,7 +2233,8 @@ This checks also `file-name-as-directory', `file-name-directory', (skip-unless (tramp--test-enabled)) (dolist (quoted (if (tramp--test-expensive-test) '(nil t) '(nil))) - (let ((tmp-name (tramp--test-make-temp-name nil quoted))) + (let ((tmp-name (tramp--test-make-temp-name nil quoted)) + (inhibit-message t)) (unwind-protect (progn ;; Write buffer. Use absolute and relative file name. @@ -2332,6 +2333,7 @@ This checks also `file-name-as-directory', `file-name-directory', (skip-unless (tramp--test-emacs27-p)) (let* ((tmp-name (tramp--test-make-temp-name)) + (inhibit-message t) written-files (advice (lambda (_start _end filename &rest _r) (push filename written-files)))) @@ -4566,6 +4568,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." (tmp-name2 (expand-file-name "foo" tmp-name1)) (enable-local-variables :all) (enable-remote-dir-locals t) + (inhibit-message t) kill-buffer-query-functions connection-local-profile-alist connection-local-criteria-alist) (unwind-protect @@ -4797,6 +4800,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." (tmp-name1 (tramp--test-make-temp-name nil quoted)) (tmp-name2 (expand-file-name "foo" tmp-name1)) (tramp-remote-process-environment tramp-remote-process-environment) + (inhibit-message t) (vc-handled-backends (with-parsed-tramp-file-name tramp-test-temporary-file-directory nil (cond commit eb452dfe95320fb0226af601537b98ee7945f12e Author: Juanma Barranquero Date: Sun Dec 1 10:41:49 2019 +0100 ibuffer-mark-by-content-regexp: don't depend on `cl-some' * lisp/ibuf-ext.el (ibuffer-mark-by-content-regexp): Use `cl-dolist' instead of `cl-some' to avoid a run-time dependency on cl-lib that triggers an unreported bug similar to bug#38430. diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index de3035e9d0..375090e09c 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -1861,8 +1861,9 @@ Otherwise buffers whose name matches an element of (cond ((and (not all-buffers) (or (memq mode ibuffer-never-search-content-mode) - (cl-some (lambda (x) (string-match x (buffer-name buf))) - ibuffer-never-search-content-name))) + (cl-dolist (x ibuffer-never-search-content-name nil) + (when-let ((found (string-match x (buffer-name buf)))) + (cl-return found))))) (setq res nil)) (t (with-current-buffer buf