Mercurial > emacs

comparison lisp/progmodes/hideif.el @ 90106:bf0d492ea2d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-16 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-106 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-110 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-111 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-112 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-113 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-114 <no summary provided> * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-115 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-123 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-124 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-17 - miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-19 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-20 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-21 More work on moving images to etc/images * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-22 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-23 Fix errors with image-file installation * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-24 etc/Makefile.in (install): Put gnus-tut.txt in the right place. * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-25 etc/Makefile.in (install, uninstall): Fix installed image dirs. * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-26 etc/Makefile.in (install): Create $(etcdir)/images/gnus dir. * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-27 Update from CVS
author Miles Bader <miles@gnu.org>
date Wed, 23 Feb 2005 09:18:23 +0000
parents 68c22ea6027c de939ef4dd88
children 02f1dbc4a199
comparison
equal deleted inserted replaced
90105:7e3f621f1dd4 90106:bf0d492ea2d5
956 (push (cons name (hif-compress-define-list hide-ifdef-env)) 956 (push (cons name (hif-compress-define-list hide-ifdef-env))
957 hide-ifdef-define-alist)) 957 hide-ifdef-define-alist))
958 958
959 (defun hide-ifdef-use-define-alist (name) 959 (defun hide-ifdef-use-define-alist (name)
960 "Set `hide-ifdef-env' to the define list specified by NAME." 960 "Set `hide-ifdef-env' to the define list specified by NAME."
961 (interactive "SUse define list: ") 961 (interactive
962 (list (completing-read "Use define list: "
963 hide-ifdef-define-alist nil t)))
964 (if (stringp name) (setq name (intern name)))
962 (let ((define-list (assoc name hide-ifdef-define-alist))) 965 (let ((define-list (assoc name hide-ifdef-define-alist)))
963 (if define-list 966 (if define-list
964 (setq hide-ifdef-env 967 (setq hide-ifdef-env
965 (mapcar (lambda (arg) (cons arg t)) 968 (mapcar (lambda (arg) (cons arg t))
966 (cdr define-list))) 969 (cdr define-list)))