aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/progmodes/hideif.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el
index 5b93696c101..be175fc612a 100644
--- a/lisp/progmodes/hideif.el
+++ b/lisp/progmodes/hideif.el
@@ -67,7 +67,7 @@
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)
@@ -1044,8 +1044,8 @@ Return as (TOP . BOTTOM) the extent of ifdef block."
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
@@ -1067,7 +1067,7 @@ Return as (TOP . BOTTOM) the extent of ifdef block."
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))))