Parent Directory | Revision Log | Patch
revision 1.83 by monnier, Wed Nov 2 19:03:17 2005 UTC | revision 1.84 by monnier, Wed Nov 2 21:56:15 2005 UTC | |
---|---|---|
# | Line 1135 of FORM by signaling the error at compil | Line 1135 of FORM by signaling the error at compil |
1135 | (setq constant nil)) | (setq constant nil)) |
1136 | (setq args (cdr args))) | (setq args (cdr args))) |
1137 | (if constant | (if constant |
1138 | (eval form) | (cons 'quote (eval form)) |
1139 | form))) | form))) |
1140 | ||
1141 | ;; Avoid having to write forward-... with a negative arg for speed. | ;; Avoid having to write forward-... with a negative arg for speed. |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |