changeset 23267:a804a047b23d

(Man-init-defvars): Avoid trailing nil on Man-filter-list.
author Andreas Schwab <schwab@suse.de>
date Fri, 18 Sep 1998 09:13:46 +0000
parents ccedad9251db
children 7f15741f1899
files lisp/man.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/man.el	Fri Sep 18 09:13:07 1998 +0000
+++ b/lisp/man.el	Fri Sep 18 09:13:46 1998 +0000
@@ -381,7 +381,8 @@
 	    nil))))
 
   (setq Man-filter-list
-	(list
+	;; Avoid trailing nil which confuses customize.
+	(apply 'list
 	 (cons
 	  Man-sed-command
 	  (list
@@ -415,9 +416,10 @@
 	   "'"
 	   ))
 	 (if (not Man-uses-untabify-flag)
-	     (cons
-	      Man-untabify-command
-	      Man-untabify-command-args)
+	     ;; The outer list will be stripped off by apply.
+	     (list (cons
+		    Man-untabify-command
+		    Man-untabify-command-args))
 	   )))
 )