/[emacs]/emacs/lisp/progmodes/hideif.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/hideif.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.51 by lute, Mon Jul 4 16:59:19 2005 UTC revision 1.52 by monnier, Thu Jul 7 04:31:17 2005 UTC
# Line 960  Return as (TOP . BOTTOM) the extent of i Line 960  Return as (TOP . BOTTOM) the extent of i
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
# Line 972  Return as (TOP . BOTTOM) the extent of i Line 974  Return as (TOP . BOTTOM) the extent of i
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

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26