diff options
| author | Paul Eggert | 2016-05-10 07:44:28 -0700 |
|---|---|---|
| committer | Paul Eggert | 2016-05-10 07:44:28 -0700 |
| commit | 6d0703a01df1ece3fd9ba2a927913d1bcf10d549 (patch) | |
| tree | e3492449c92c0895ac77853d0a8ea07c0ecfe24f | |
| parent | 433d366dc7b053048abf710d790ff62421dd1570 (diff) | |
| parent | d0d9f55b632717fccb605e0a204ebdd5ffe8608f (diff) | |
| download | emacs-6d0703a01df1ece3fd9ba2a927913d1bcf10d549.tar.gz emacs-6d0703a01df1ece3fd9ba2a927913d1bcf10d549.zip | |
Merge from origin/emacs-25
d0d9f55 Allow newlines inside cl function arglists
963541a Publicize cl--generic-all-functions
3c581d5 ; Fix typo
e58f900 Add some "safe-local-variable" declarations for compatibility...
| -rw-r--r-- | etc/NEWS | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/db-el.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-generic.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/eieio-opt.el | 2 | ||||
| -rw-r--r-- | lisp/help.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/cc-vars.el | 4 |
7 files changed, 10 insertions, 6 deletions
| @@ -2052,7 +2052,7 @@ process filter, sentinel, etc., through keyword arguments (similar to | |||
| 2052 | 'make-network-process'). | 2052 | 'make-network-process'). |
| 2053 | 2053 | ||
| 2054 | +++ | 2054 | +++ |
| 2055 | ** Subprocesses are automatically told about changes in window dimensions | 2055 | ** Subprocesses are automatically told about changes in window dimensions. |
| 2056 | The new option 'window-adjust-process-window-size-function' controls | 2056 | The new option 'window-adjust-process-window-size-function' controls |
| 2057 | how subprocesses are told to adapt their logical window sizes to | 2057 | how subprocesses are told to adapt their logical window sizes to |
| 2058 | changes in the Emacs window configuration. Its default value calls | 2058 | changes in the Emacs window configuration. Its default value calls |
diff --git a/lisp/cedet/semantic/db-el.el b/lisp/cedet/semantic/db-el.el index 83a268073b3..a85b9024eb0 100644 --- a/lisp/cedet/semantic/db-el.el +++ b/lisp/cedet/semantic/db-el.el | |||
| @@ -336,7 +336,7 @@ Return a list of tags." | |||
| 336 | (mapcar 'semanticdb-elisp-sym->tag | 336 | (mapcar 'semanticdb-elisp-sym->tag |
| 337 | ;; Fancy eieio function that knows all about | 337 | ;; Fancy eieio function that knows all about |
| 338 | ;; built in methods belonging to CLASS. | 338 | ;; built in methods belonging to CLASS. |
| 339 | (eieio-all-generic-functions class))))) | 339 | (cl-generic-all-functions class))))) |
| 340 | ) | 340 | ) |
| 341 | taglst)))) | 341 | taglst)))) |
| 342 | 342 | ||
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index b5dfe487d07..8bf0675f54b 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el | |||
| @@ -822,7 +822,7 @@ including `cl-block' and `cl-eval-when'." | |||
| 822 | (cl--describe-class-slots class) | 822 | (cl--describe-class-slots class) |
| 823 | 823 | ||
| 824 | ;; Describe all the methods specific to this class. | 824 | ;; Describe all the methods specific to this class. |
| 825 | (let ((generics (cl--generic-all-functions type))) | 825 | (let ((generics (cl-generic-all-functions type))) |
| 826 | (when generics | 826 | (when generics |
| 827 | (insert (propertize "Specialized Methods:\n\n" 'face 'bold)) | 827 | (insert (propertize "Specialized Methods:\n\n" 'face 'bold)) |
| 828 | (dolist (generic generics) | 828 | (dolist (generic generics) |
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index 7ad9f307f93..37edf45df38 100644 --- a/lisp/emacs-lisp/cl-generic.el +++ b/lisp/emacs-lisp/cl-generic.el | |||
| @@ -937,7 +937,7 @@ MET-NAME is a cons (SYMBOL . SPECIALIZERS)." | |||
| 937 | (setq applies t))) | 937 | (setq applies t))) |
| 938 | applies)) | 938 | applies)) |
| 939 | 939 | ||
| 940 | (defun cl--generic-all-functions (&optional type) | 940 | (defun cl-generic-all-functions (&optional type) |
| 941 | "Return a list of all generic functions. | 941 | "Return a list of all generic functions. |
| 942 | Optional TYPE argument returns only those functions that contain | 942 | Optional TYPE argument returns only those functions that contain |
| 943 | methods for TYPE." | 943 | methods for TYPE." |
diff --git a/lisp/emacs-lisp/eieio-opt.el b/lisp/emacs-lisp/eieio-opt.el index 9e5f524a945..2f1d69f78f8 100644 --- a/lisp/emacs-lisp/eieio-opt.el +++ b/lisp/emacs-lisp/eieio-opt.el | |||
| @@ -162,7 +162,7 @@ are not abstract." | |||
| 162 | (defun eieio-display-method-list () | 162 | (defun eieio-display-method-list () |
| 163 | "Display a list of all the methods and what features are used." | 163 | "Display a list of all the methods and what features are used." |
| 164 | (interactive) | 164 | (interactive) |
| 165 | (let* ((meth1 (cl--generic-all-functions)) | 165 | (let* ((meth1 (cl-generic-all-functions)) |
| 166 | (meth (sort meth1 (lambda (a b) | 166 | (meth (sort meth1 (lambda (a b) |
| 167 | (string< (symbol-name a) | 167 | (string< (symbol-name a) |
| 168 | (symbol-name b))))) | 168 | (symbol-name b))))) |
diff --git a/lisp/help.el b/lisp/help.el index efbae39a002..897cab5e371 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -1412,7 +1412,7 @@ ARGLIST can also be t or a string of the form \"(FUN ARG1 ARG2 ...)\"." | |||
| 1412 | (if (< (- (match-end 0) (match-beginning 0)) 2) "\n" "") | 1412 | (if (< (- (match-end 0) (match-beginning 0)) 2) "\n" "") |
| 1413 | "\n\n") | 1413 | "\n\n") |
| 1414 | (if (stringp arglist) | 1414 | (if (stringp arglist) |
| 1415 | (if (string-match "\\`[^ ]+\\(.*\\))\\'" arglist) | 1415 | (if (string-match "\\`[^ ]+\\(\\(?:.\\|\n\\)*\\))\\'" arglist) |
| 1416 | (concat "(fn" (match-string 1 arglist) ")") | 1416 | (concat "(fn" (match-string 1 arglist) ")") |
| 1417 | (error "Unrecognized usage format")) | 1417 | (error "Unrecognized usage format")) |
| 1418 | (help--make-usage-docstring 'fn arglist))))) | 1418 | (help--make-usage-docstring 'fn arglist))))) |
diff --git a/lisp/progmodes/cc-vars.el b/lisp/progmodes/cc-vars.el index 8cad27fd86d..216f0cc143a 100644 --- a/lisp/progmodes/cc-vars.el +++ b/lisp/progmodes/cc-vars.el | |||
| @@ -1679,6 +1679,10 @@ c-noise-macro-with-parens-names is invalid: %s" c-noise-macro-with-parens-names) | |||
| 1679 | c-noise-macro-names is invalid: %s" c-noise-macro-names))))) | 1679 | c-noise-macro-names is invalid: %s" c-noise-macro-names))))) |
| 1680 | 1680 | ||
| 1681 | ;; Non-customizable variables, still part of the interface to CC Mode | 1681 | ;; Non-customizable variables, still part of the interface to CC Mode |
| 1682 | ;; The following two are preparations for Emacs 25.2 (2016-05-09): | ||
| 1683 | (put 'c-noise-macro-names 'safe-local-variable #'c-string-list-p) | ||
| 1684 | (put 'c-noise-macro-with-parens-names 'safe-local-variable #'c-string-list-p) | ||
| 1685 | |||
| 1682 | (defvar c-macro-with-semi-re nil | 1686 | (defvar c-macro-with-semi-re nil |
| 1683 | ;; Regular expression which matches a (#define'd) symbol whose expansion | 1687 | ;; Regular expression which matches a (#define'd) symbol whose expansion |
| 1684 | ;; ends with a semicolon. | 1688 | ;; ends with a semicolon. |