Mercurial > emacs
comparison lisp/progmodes/hideif.el @ 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 | 693b53fde264 |
children | 09b01c9914a6 |
comparison
equal
deleted
inserted
replaced
29587:bcdfb27c5ea4 | 29588:0cf06902af64 |
---|---|
65 ;; If you have defined a hide-ifdef-mode-hook, you can set | 65 ;; If you have defined a hide-ifdef-mode-hook, you can set |
66 ;; up a list of symbols that may be used by hide-ifdefs as in the | 66 ;; up a list of symbols that may be used by hide-ifdefs as in the |
67 ;; following example: | 67 ;; following example: |
68 ;; | 68 ;; |
69 ;; (setq hide-ifdef-mode-hook | 69 ;; (setq hide-ifdef-mode-hook |
70 ;; '(lambda () | 70 ;; (lambda () |
71 ;; (if (not hide-ifdef-define-alist) | 71 ;; (if (not hide-ifdef-define-alist) |
72 ;; (setq hide-ifdef-define-alist | 72 ;; (setq hide-ifdef-define-alist |
73 ;; '((list1 ONE TWO) | 73 ;; '((list1 ONE TWO) |
74 ;; (list2 TWO THREE) | 74 ;; (list2 TWO THREE) |
75 ;; ))) | 75 ;; ))) |
1042 (defvar hide-ifdef-define-alist nil | 1042 (defvar hide-ifdef-define-alist nil |
1043 "A global assoc list of pre-defined symbol lists") | 1043 "A global assoc list of pre-defined symbol lists") |
1044 | 1044 |
1045 (defun hif-compress-define-list (env) | 1045 (defun hif-compress-define-list (env) |
1046 "Compress the define list ENV into a list of defined symbols only." | 1046 "Compress the define list ENV into a list of defined symbols only." |
1047 (let ((defs (mapcar '(lambda (arg) | 1047 (let ((defs (mapcar (lambda (arg) |
1048 (if (hif-lookup (car arg)) (car arg))) | 1048 (if (hif-lookup (car arg)) (car arg))) |
1049 env)) | 1049 env)) |
1050 (new-defs nil)) | 1050 (new-defs nil)) |
1051 (while defs | 1051 (while defs |
1052 (if (car defs) | 1052 (if (car defs) |
1053 (setq new-defs (cons (car defs) new-defs))) | 1053 (setq new-defs (cons (car defs) new-defs))) |
1065 "Set `hide-ifdef-env' to the define list specified by NAME." | 1065 "Set `hide-ifdef-env' to the define list specified by NAME." |
1066 (interactive "SUse define list: ") | 1066 (interactive "SUse define list: ") |
1067 (let ((define-list (assoc name hide-ifdef-define-alist))) | 1067 (let ((define-list (assoc name hide-ifdef-define-alist))) |
1068 (if define-list | 1068 (if define-list |
1069 (setq hide-ifdef-env | 1069 (setq hide-ifdef-env |
1070 (mapcar '(lambda (arg) (cons arg t)) | 1070 (mapcar (lambda (arg) (cons arg t)) |
1071 (cdr define-list))) | 1071 (cdr define-list))) |
1072 (error "No define list for %s" name)) | 1072 (error "No define list for %s" name)) |
1073 (if hide-ifdef-hiding (hide-ifdefs)))) | 1073 (if hide-ifdef-hiding (hide-ifdefs)))) |
1074 | 1074 |
1075 (provide 'hideif) | 1075 (provide 'hideif) |