mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-10 00:00:39 -08:00
Merge from origin/emacs-25
d0d9f55Allow newlines inside cl function arglists963541aPublicize cl--generic-all-functions3c581d5; Fix typoe58f900Add some "safe-local-variable" declarations for compatibility...
This commit is contained in:
commit
6d0703a01d
7 changed files with 10 additions and 6 deletions
2
etc/NEWS
2
etc/NEWS
|
|
@ -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
|
||||||
|
|
|
||||||
|
|
@ -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))))
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -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)
|
||||||
|
|
|
||||||
|
|
@ -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."
|
||||||
|
|
|
||||||
|
|
@ -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)))))
|
||||||
|
|
|
||||||
|
|
@ -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)))))
|
||||||
|
|
|
||||||
|
|
@ -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.
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue