958 |
|
|
959 |
(defun hide-ifdef-use-define-alist (name) |
(defun hide-ifdef-use-define-alist (name) |
960 |
"Set `hide-ifdef-env' to the define list specified by NAME." |
"Set `hide-ifdef-env' to the define list specified by NAME." |
961 |
(interactive "SUse define list: ") |
(interactive |
962 |
|
(list (completing-read "Use define list: " |
963 |
|
hide-ifdef-define-alist nil t))) |
964 |
|
(if (stringp name) (setq name (intern name))) |
965 |
(let ((define-list (assoc name hide-ifdef-define-alist))) |
(let ((define-list (assoc name hide-ifdef-define-alist))) |
966 |
(if define-list |
(if define-list |
967 |
(setq hide-ifdef-env |
(setq hide-ifdef-env |