Parent Directory | Revision Log | Patch
revision 1.162 by rms, Sat Aug 28 14:00:38 2004 UTC | revision 1.163 by rms, Sat Aug 28 15:31:38 2004 UTC | |
---|---|---|
# | Line 363 if that value is non-nil." | Line 363 if that value is non-nil." |
363 | (when (stringp default) | (when (stringp default) |
364 | (if (string-match ":+" default) | (if (string-match ":+" default) |
365 | (substring default (match-end 0)) | (substring default (match-end 0)) |
366 | default)))) | default)))) |
367 | ||
368 | ;; Used in old LispM code. | ;; Used in old LispM code. |
369 | (defalias 'common-lisp-mode 'lisp-mode) | (defalias 'common-lisp-mode 'lisp-mode) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |