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...
This commit is contained in:
Paul Eggert 2016-05-10 07:44:28 -07:00
commit 6d0703a01d
7 changed files with 10 additions and 6 deletions

View file

@ -2052,7 +2052,7 @@ process filter, sentinel, etc., through keyword arguments (similar to
'make-network-process').
+++
** Subprocesses are automatically told about changes in window dimensions
** Subprocesses are automatically told about changes in window dimensions.
The new option 'window-adjust-process-window-size-function' controls
how subprocesses are told to adapt their logical window sizes to
changes in the Emacs window configuration. Its default value calls

View file

@ -336,7 +336,7 @@ Return a list of tags."
(mapcar 'semanticdb-elisp-sym->tag
;; Fancy eieio function that knows all about
;; built in methods belonging to CLASS.
(eieio-all-generic-functions class)))))
(cl-generic-all-functions class)))))
)
taglst))))

View file

@ -822,7 +822,7 @@ including `cl-block' and `cl-eval-when'."
(cl--describe-class-slots class)
;; Describe all the methods specific to this class.
(let ((generics (cl--generic-all-functions type)))
(let ((generics (cl-generic-all-functions type)))
(when generics
(insert (propertize "Specialized Methods:\n\n" 'face 'bold))
(dolist (generic generics)

View file

@ -937,7 +937,7 @@ MET-NAME is a cons (SYMBOL . SPECIALIZERS)."
(setq applies t)))
applies))
(defun cl--generic-all-functions (&optional type)
(defun cl-generic-all-functions (&optional type)
"Return a list of all generic functions.
Optional TYPE argument returns only those functions that contain
methods for TYPE."

View file

@ -162,7 +162,7 @@ are not abstract."
(defun eieio-display-method-list ()
"Display a list of all the methods and what features are used."
(interactive)
(let* ((meth1 (cl--generic-all-functions))
(let* ((meth1 (cl-generic-all-functions))
(meth (sort meth1 (lambda (a b)
(string< (symbol-name a)
(symbol-name b)))))

View file

@ -1412,7 +1412,7 @@ ARGLIST can also be t or a string of the form \"(FUN ARG1 ARG2 ...)\"."
(if (< (- (match-end 0) (match-beginning 0)) 2) "\n" "")
"\n\n")
(if (stringp arglist)
(if (string-match "\\`[^ ]+\\(.*\\))\\'" arglist)
(if (string-match "\\`[^ ]+\\(\\(?:.\\|\n\\)*\\))\\'" arglist)
(concat "(fn" (match-string 1 arglist) ")")
(error "Unrecognized usage format"))
(help--make-usage-docstring 'fn arglist)))))

View file

@ -1679,6 +1679,10 @@ c-noise-macro-with-parens-names is invalid: %s" c-noise-macro-with-parens-names)
c-noise-macro-names is invalid: %s" c-noise-macro-names)))))
;; Non-customizable variables, still part of the interface to CC Mode
;; The following two are preparations for Emacs 25.2 (2016-05-09):
(put 'c-noise-macro-names 'safe-local-variable #'c-string-list-p)
(put 'c-noise-macro-with-parens-names 'safe-local-variable #'c-string-list-p)
(defvar c-macro-with-semi-re nil
;; Regular expression which matches a (#define'd) symbol whose expansion
;; ends with a semicolon.