1 |
;;; derived.el --- allow inheritance of major modes |
;;; derived.el --- allow inheritance of major modes |
2 |
;;; (formerly mode-clone.el) |
;;; (formerly mode-clone.el) |
3 |
|
|
4 |
;; Copyright (C) 1993, 1994, 1999 Free Software Foundation, Inc. |
;; Copyright (C) 1993, 1994, 1999, 2003 Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: David Megginson (dmeggins@aix1.uottawa.ca) |
;; Author: David Megginson (dmeggins@aix1.uottawa.ca) |
7 |
;; Maintainer: FSF |
;; Maintainer: FSF |
156 |
|
|
157 |
Note that if the documentation string had been left out, it would have |
Note that if the documentation string had been left out, it would have |
158 |
been generated automatically, with a reference to the keymap." |
been generated automatically, with a reference to the keymap." |
159 |
|
(declare (debug (&define name symbolp sexp [&optional stringp] |
160 |
|
[&rest keywordp sexp] def-body))) |
161 |
|
|
162 |
(when (and docstring (not (stringp docstring))) |
(when (and docstring (not (stringp docstring))) |
163 |
;; Some trickiness, since what appears to be the docstring may really be |
;; Some trickiness, since what appears to be the docstring may really be |