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 |
(interactive |
962 |
(list (completing-read "Use define list: " |
(list (completing-read "Use define list: " |
963 |
hide-ifdef-define-alist nil t))) |
(mapcar (lambda (x) (symbol-name (car x))) |
964 |
|
hide-ifdef-define-alist) |
965 |
|
nil t))) |
966 |
(if (stringp name) (setq name (intern name))) |
(if (stringp name) (setq name (intern name))) |
967 |
(let ((define-list (assoc name hide-ifdef-define-alist))) |
(let ((define-list (assoc name hide-ifdef-define-alist))) |
968 |
(if define-list |
(if define-list |
974 |
|
|
975 |
(provide 'hideif) |
(provide 'hideif) |
976 |
|
|
977 |
;;; arch-tag: c6381d17-a59a-483a-b945-658f22277981 |
;; arch-tag: c6381d17-a59a-483a-b945-658f22277981 |
978 |
;;; hideif.el ends here |
;;; hideif.el ends here |