1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 00:00:39 -08:00

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'). '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 The new option 'window-adjust-process-window-size-function' controls
how subprocesses are told to adapt their logical window sizes to how subprocesses are told to adapt their logical window sizes to
changes in the Emacs window configuration. Its default value calls 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 (mapcar 'semanticdb-elisp-sym->tag
;; Fancy eieio function that knows all about ;; Fancy eieio function that knows all about
;; built in methods belonging to CLASS. ;; built in methods belonging to CLASS.
(eieio-all-generic-functions class))))) (cl-generic-all-functions class)))))
) )
taglst)))) taglst))))

View file

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

View file

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

View file

@ -162,7 +162,7 @@ are not abstract."
(defun eieio-display-method-list () (defun eieio-display-method-list ()
"Display a list of all the methods and what features are used." "Display a list of all the methods and what features are used."
(interactive) (interactive)
(let* ((meth1 (cl--generic-all-functions)) (let* ((meth1 (cl-generic-all-functions))
(meth (sort meth1 (lambda (a b) (meth (sort meth1 (lambda (a b)
(string< (symbol-name a) (string< (symbol-name a)
(symbol-name b))))) (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" "") (if (< (- (match-end 0) (match-beginning 0)) 2) "\n" "")
"\n\n") "\n\n")
(if (stringp arglist) (if (stringp arglist)
(if (string-match "\\`[^ ]+\\(.*\\))\\'" arglist) (if (string-match "\\`[^ ]+\\(\\(?:.\\|\n\\)*\\))\\'" arglist)
(concat "(fn" (match-string 1 arglist) ")") (concat "(fn" (match-string 1 arglist) ")")
(error "Unrecognized usage format")) (error "Unrecognized usage format"))
(help--make-usage-docstring 'fn arglist))))) (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))))) c-noise-macro-names is invalid: %s" c-noise-macro-names)))))
;; Non-customizable variables, still part of the interface to CC Mode ;; 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 (defvar c-macro-with-semi-re nil
;; Regular expression which matches a (#define'd) symbol whose expansion ;; Regular expression which matches a (#define'd) symbol whose expansion
;; ends with a semicolon. ;; ends with a semicolon.