Mercurial > emacs
comparison lisp/textmodes/ispell.el @ 48374:a6f9803f174f
(defgroup ispell): Arrange that definition starts at beginning of
line.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Sun, 17 Nov 2002 22:34:13 +0000 |
| parents | fc2f7f66ce57 |
| children | 759019dacc3f |
comparison
equal
deleted
inserted
replaced
| 48373:4c02bb10da9a | 48374:a6f9803f174f |
|---|---|
| 189 (defmacro defcustom (symbol value doc &rest args) | 189 (defmacro defcustom (symbol value doc &rest args) |
| 190 "Empty replacement for defcustom when not supplied." | 190 "Empty replacement for defcustom when not supplied." |
| 191 `(defvar ,symbol ,value ,doc)))) | 191 `(defvar ,symbol ,value ,doc)))) |
| 192 | 192 |
| 193 (eval-when-compile | 193 (eval-when-compile |
| 194 (if (fboundp 'defgroup) | 194 (if (not (fboundp 'defgroup)) |
| 195 (defgroup ispell nil | 195 (defmacro defgroup (&rest args) |
| 196 "User variables for emacs ispell interface." | 196 "Empty replacement for defgroup when not supplied."))) |
| 197 :group 'applications))) | 197 |
| 198 (defgroup ispell nil | |
| 199 "User variables for emacs ispell interface." | |
| 200 :group 'applications) | |
| 198 | 201 |
| 199 (if (not (fboundp 'buffer-substring-no-properties)) | 202 (if (not (fboundp 'buffer-substring-no-properties)) |
| 200 (defun buffer-substring-no-properties (start end) | 203 (defun buffer-substring-no-properties (start end) |
| 201 (buffer-substring start end))) | 204 (buffer-substring start end))) |
| 202 | 205 |