diff options
| -rw-r--r-- | lisp/ldefs-boot.el | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index a9ea74102db..56a6283f708 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el | |||
| @@ -24952,7 +24952,8 @@ variable name being but a special case of it). | |||
| 24952 | (autoload 'pcase-let* "pcase" "\ | 24952 | (autoload 'pcase-let* "pcase" "\ |
| 24953 | Like `let*' but where you can use `pcase' patterns for bindings. | 24953 | Like `let*' but where you can use `pcase' patterns for bindings. |
| 24954 | BODY should be an expression, and BINDINGS should be a list of bindings | 24954 | BODY should be an expression, and BINDINGS should be a list of bindings |
| 24955 | of the form (PAT EXP). | 24955 | of the form (PATTERN EXP). |
| 24956 | See `pcase-let' for discussion of how PATTERN is matched. | ||
| 24956 | 24957 | ||
| 24957 | \(fn BINDINGS &rest BODY)" nil t) | 24958 | \(fn BINDINGS &rest BODY)" nil t) |
| 24958 | 24959 | ||
| @@ -24961,17 +24962,22 @@ of the form (PAT EXP). | |||
| 24961 | (autoload 'pcase-let "pcase" "\ | 24962 | (autoload 'pcase-let "pcase" "\ |
| 24962 | Like `let' but where you can use `pcase' patterns for bindings. | 24963 | Like `let' but where you can use `pcase' patterns for bindings. |
| 24963 | BODY should be a list of expressions, and BINDINGS should be a list of bindings | 24964 | BODY should be a list of expressions, and BINDINGS should be a list of bindings |
| 24964 | of the form (PAT EXP). | 24965 | of the form (PATTERN EXP). |
| 24965 | The macro is expanded and optimized under the assumption that those | 24966 | The PATTERNs are only used to extract data, so the code does not test |
| 24966 | patterns *will* match, so a mismatch may go undetected or may cause | 24967 | whether the data does match the corresponding patterns: a mismatch |
| 24967 | any kind of error. | 24968 | may signal an error or may go undetected, binding variables to arbitrary |
| 24969 | values, such as nil. | ||
| 24968 | 24970 | ||
| 24969 | \(fn BINDINGS &rest BODY)" nil t) | 24971 | \(fn BINDINGS &rest BODY)" nil t) |
| 24970 | 24972 | ||
| 24971 | (function-put 'pcase-let 'lisp-indent-function '1) | 24973 | (function-put 'pcase-let 'lisp-indent-function '1) |
| 24972 | 24974 | ||
| 24973 | (autoload 'pcase-dolist "pcase" "\ | 24975 | (autoload 'pcase-dolist "pcase" "\ |
| 24974 | Like `dolist' but where the binding can be a `pcase' pattern. | 24976 | Superset of `dolist' where the VAR binding can be a `pcase' PATTERN. |
| 24977 | More specifically, this is just a shorthand for the following combination | ||
| 24978 | of `dolist' and `pcase-let': | ||
| 24979 | |||
| 24980 | (dolist (x LIST) (pcase-let ((PATTERN x)) BODY...)) | ||
| 24975 | 24981 | ||
| 24976 | \(fn (PATTERN LIST) BODY...)" nil t) | 24982 | \(fn (PATTERN LIST) BODY...)" nil t) |
| 24977 | 24983 | ||
| @@ -28752,7 +28758,7 @@ CHAR | |||
| 28752 | `chinese-two-byte' (\\cC) | 28758 | `chinese-two-byte' (\\cC) |
| 28753 | `greek-two-byte' (\\cG) | 28759 | `greek-two-byte' (\\cG) |
| 28754 | `japanese-hiragana-two-byte' (\\cH) | 28760 | `japanese-hiragana-two-byte' (\\cH) |
| 28755 | `indian-tow-byte' (\\cI) | 28761 | `indian-two-byte' (\\cI) |
| 28756 | `japanese-katakana-two-byte' (\\cK) | 28762 | `japanese-katakana-two-byte' (\\cK) |
| 28757 | `korean-hangul-two-byte' (\\cN) | 28763 | `korean-hangul-two-byte' (\\cN) |
| 28758 | `cyrillic-two-byte' (\\cY) | 28764 | `cyrillic-two-byte' (\\cY) |
| @@ -34624,7 +34630,7 @@ Reenable Ange-FTP, when Tramp is unloaded. | |||
| 34624 | 34630 | ||
| 34625 | ;;;### (autoloads nil "trampver" "net/trampver.el" (0 0 0 0)) | 34631 | ;;;### (autoloads nil "trampver" "net/trampver.el" (0 0 0 0)) |
| 34626 | ;;; Generated autoloads from net/trampver.el | 34632 | ;;; Generated autoloads from net/trampver.el |
| 34627 | (push (purecopy '(tramp 2 3 4 26 2)) package--builtin-versions) | 34633 | (push (purecopy '(tramp 2 3 5 26 2)) package--builtin-versions) |
| 34628 | 34634 | ||
| 34629 | (if (fboundp 'register-definition-prefixes) (register-definition-prefixes "trampver" '("tramp-"))) | 34635 | (if (fboundp 'register-definition-prefixes) (register-definition-prefixes "trampver" '("tramp-"))) |
| 34630 | 34636 | ||