aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBill Wohler2005-12-02 04:55:39 +0000
committerBill Wohler2005-12-02 04:55:39 +0000
commit1a18223ec4b5a7f8fc8cbaa88bf2aa9457bf6d9f (patch)
tree90c13d96df4b6dce9fc193202d6226250e61b2d7
parentf09e2a44951645af111d173feddc45553ff570b4 (diff)
downloademacs-1a18223ec4b5a7f8fc8cbaa88bf2aa9457bf6d9f.tar.gz
emacs-1a18223ec4b5a7f8fc8cbaa88bf2aa9457bf6d9f.zip
(mh-defface-compat): Checkdoc fix.
-rw-r--r--lisp/mh-e/mh-init.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mh-e/mh-init.el b/lisp/mh-e/mh-init.el
index 5575086fe78..3ef478fd55f 100644
--- a/lisp/mh-e/mh-init.el
+++ b/lisp/mh-e/mh-init.el
@@ -1,6 +1,6 @@
1;;; mh-init.el --- MH-E initialization. 1;;; mh-init.el --- MH-E initialization.
2 2
3;; Copyright (C) 2003, 2004 Free Software Foundation, Inc. 3;; Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc.
4 4
5;; Author: Peter S. Galbraith <psg@debian.org> 5;; Author: Peter S. Galbraith <psg@debian.org>
6;; Maintainer: Bill Wohler <wohler@newt.com> 6;; Maintainer: Bill Wohler <wohler@newt.com>
@@ -336,7 +336,7 @@ directory is added to the `load-path' if it isn't already there."
336 "Non-nil means defface supports min-colors display requirement.") 336 "Non-nil means defface supports min-colors display requirement.")
337 337
338(defun mh-defface-compat (spec) 338(defun mh-defface-compat (spec)
339 "Converts SPEC for defface if necessary to run on older platforms. 339 "Convert SPEC for defface if necessary to run on older platforms.
340See `defface' for the spec definition. 340See `defface' for the spec definition.
341 341
342When `mh-min-colors-defined-flag' is nil, this function finds a display with a 342When `mh-min-colors-defined-flag' is nil, this function finds a display with a
@@ -354,7 +354,7 @@ single \"class\" requirement with a \"color\" item, renames the requirement to
354 (when (not (eq (car entry) t)) 354 (when (not (eq (car entry) t))
355 (if (assoc 'min-colors (car entry)) 355 (if (assoc 'min-colors (car entry))
356 (delq (assoc 'min-colors (car entry)) (car entry))))))) 356 (delq (assoc 'min-colors (car entry)) (car entry)))))))
357 357
358(provide 'mh-init) 358(provide 'mh-init)
359 359
360;;; Local Variables: 360;;; Local Variables: