# HG changeset patch # User Andreas Schwab # Date 906110026 0 # Node ID a804a047b23dd1837fcb32f0fa68ca931d875c2c # Parent ccedad9251dbf14e6cfa9e7e1aa04cce7afa33ca (Man-init-defvars): Avoid trailing nil on Man-filter-list. diff -r ccedad9251db -r a804a047b23d lisp/man.el --- 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)) ))) )