Mercurial > hg > xemacs-beta

comparison lisp/packages/emerge.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
2984 2984
2985 ;; These functions save (get the values of) and restore (set the values of) 2985 ;; These functions save (get the values of) and restore (set the values of)
2986 ;; a list of variables. The argument is a list of symbols (the names of 2986 ;; a list of variables. The argument is a list of symbols (the names of
2987 ;; the variables). A list element can also be a list of two functions, 2987 ;; the variables). A list element can also be a list of two functions,
2988 ;; the first of which (when called with no arguments) gets the value, and 2988 ;; the first of which (when called with no arguments) gets the value, and
2989 ;; the second (when called with a value as an argment) sets the value. 2989 ;; the second (when called with a value as an argument) sets the value.
2990 ;; A "function" is anything that funcall can handle as an argument. 2990 ;; A "function" is anything that funcall can handle as an argument.
2991 2991
2992 (defun emerge-save-variables (vars) 2992 (defun emerge-save-variables (vars)
2993 (mapcar (function (lambda (v) (if (symbolp v) 2993 (mapcar (function (lambda (v) (if (symbolp v)
2994 (symbol-value v) 2994 (symbol-value v)