Parent Directory | Revision Log | Patch
revision 1.65 by rms, Wed Jun 8 15:54:43 2005 UTC | revision 1.66 by monnier, Sun Jun 26 18:21:26 2005 UTC | |
---|---|---|
# | Line 201 See the command `%s' for a description o | Line 201 See the command `%s' for a description o |
201 | :type 'boolean | :type 'boolean |
202 | ,@(cond | ,@(cond |
203 | ((not (and curfile require)) nil) | ((not (and curfile require)) nil) |
204 | ((not (eq require t)) `(:require ,require)) | ((not (eq require t)) `(:require ,require))) |
(t `(:require | ||
',(intern (file-name-nondirectory | ||
(file-name-sans-extension curfile)))))) | ||
205 | ,@(nreverse extra-keywords)))) | ,@(nreverse extra-keywords)))) |
206 | ||
207 | ;; The actual function. | ;; The actual function. |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |