698 |
(cond ((equal '(t) mim) (auto-fill-mode 1)) ; backwards compatible |
(cond ((equal '(t) mim) (auto-fill-mode 1)) ; backwards compatible |
699 |
((equal '(nil) mim) (auto-fill-mode 0)) |
((equal '(nil) mim) (auto-fill-mode 0)) |
700 |
(t (mapcar #'(lambda (minor-mode) |
(t (mapcar #'(lambda (minor-mode) |
701 |
(unless (or (eq minor-mode t) (eq minor-mode nil)) |
(when (functionp minor-mode) |
702 |
(if (and minor-mode (fboundp minor-mode)) |
(funcall minor-mode 1))) |
703 |
(funcall minor-mode 1)))) |
mim))) |
|
mim))) |
|
704 |
(goto-char pt) |
(goto-char pt) |
705 |
(if (consp mk) |
(if (consp mk) |
706 |
(progn |
(progn |