Mercurial > emacs
changeset 29588:0cf06902af64
(hif-compress-define-list)
(hide-ifdef-use-define-alist): Don't quote lambda.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 12 Jun 2000 05:22:26 +0000 |
| parents | bcdfb27c5ea4 |
| children | 793e4f0f455a |
| files | lisp/progmodes/hideif.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/hideif.el Mon Jun 12 05:20:23 2000 +0000 +++ b/lisp/progmodes/hideif.el Mon Jun 12 05:22:26 2000 +0000 @@ -67,7 +67,7 @@ ;; following example: ;; ;; (setq hide-ifdef-mode-hook -;; '(lambda () +;; (lambda () ;; (if (not hide-ifdef-define-alist) ;; (setq hide-ifdef-define-alist ;; '((list1 ONE TWO) @@ -1044,8 +1044,8 @@ (defun hif-compress-define-list (env) "Compress the define list ENV into a list of defined symbols only." - (let ((defs (mapcar '(lambda (arg) - (if (hif-lookup (car arg)) (car arg))) + (let ((defs (mapcar (lambda (arg) + (if (hif-lookup (car arg)) (car arg))) env)) (new-defs nil)) (while defs @@ -1067,7 +1067,7 @@ (let ((define-list (assoc name hide-ifdef-define-alist))) (if define-list (setq hide-ifdef-env - (mapcar '(lambda (arg) (cons arg t)) + (mapcar (lambda (arg) (cons arg t)) (cdr define-list))) (error "No define list for %s" name)) (if hide-ifdef-hiding (hide-ifdefs))))