mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

(values, values-list, multiple-value-list, multiple-value-apply, nth-value):

Browse Source 
Use defsubst rather than defalias, to get better doc strings.
This commit is contained in:
Richard M. Stallman 2001-11-16 00:00:22 +00:00
parent 6f665da949
commit 413da4514b
2 changed files with 37 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2001-11-15 Richard M. Stallman <rms@gnu.org>
* emacs-lisp/cl.el (values, values-list, multiple-value-list)
(multiple-value-apply, nth-value): Use defsubst rather than defalias
to get better doc strings.
2001-11-15 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
* derived.el: Fix autoload cookie.
@ -15,16 +21,6 @@
* dired.el (dired-undo): Display a message to explain
that this does not undo file system changes.
2001-11-15 Alan Shutko <ats@acm.org>
* compile.el (recompile): Use compilation-arguments if set, so as
to be able to M-x recompile the exact command which created a
compilation-mode buffer.
2001-11-13 Richard M. Stallman <rms@gnu.org>
* progmodes/ada-mode.el (ada-fill-comment-prefix): Doc fix.
2001-11-15 David Kastrup <David.Kastrup@t-online.de>
* mouse-drag.el (mouse-drag-throw): Push back non-drag events

36
lisp/emacs-lisp/cl.el
View File

@ -203,12 +203,38 @@ Keywords supported: :test :test-not :key"
;;; simulated. Instead, multiple-value-bind and friends simply expect
;;; the target form to return the values as a list.
(defalias 'values 'list)
(defalias 'values-list 'identity)
(defalias 'multiple-value-list 'identity)
(defalias 'multiple-value-call 'apply) ; only works for one arg
(defalias 'nth-value 'nth)
(defsubst values (&rest values)
"Return multiple values, Common Lisp style.
The arguments of `values' are the values
that the containing function should return."
(apply 'list values))
(defsubst values-list (list)
"Return multiple values, Common Lisp style, taken from a list.
LIST specifies the list of values
that the containing function should return."
list)
(defsubst multiple-value-list (expression)
"Return a list of the multiple values produced by EXPRESSION.
This handles multiple values in Common Lisp style, but it does not
work right when EXPRESSION calls an ordinary Emacs Lisp function
that returns just one value."
expression)
(defsubst multiple-value-apply (function expression)
"Evaluate EXPRESSION to get multiple values and apply FUNCTION to them.
This handles multiple values in Common Lisp style, but it does not work
right when EXPRESSION calls an ordinary Emacs Lisp function that returns just
one value."
(apply function expression))
(defsubst nth-value (n expression)
"Evaluate EXPRESSION to get multiple values and return the Nth one.
This handles multiple values in Common Lisp style, but it does not work
right when EXPRESSION calls an ordinary Emacs Lisp function that returns just
one value."
(nth n expression))
;;; Macros.