mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 06:01:22 -08:00
Code Issues Projects Releases Wiki Activity

(hif-compress-define-list)

Browse source 
(hide-ifdef-use-define-alist): Don't quote lambda.
This commit is contained in:
Stefan Monnier 2000-06-12 05:22:26 +00:00
parent aeb1822825
commit 16fdbdceda
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/progmodes/hideif.el
View file

@ -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 @@ Return as (TOP . BOTTOM) the extent of ifdef block."
(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 @@ Return as (TOP . BOTTOM) the extent of ifdef block."
(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))))