Mercurial > emacs
comparison lisp/subr.el @ 293:7e7575d7b6d0
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Thu, 20 Jun 1991 10:29:36 +0000 |
parents | 535ec1aa78ef |
children | 38d331b3a0b8 |
comparison
equal
deleted
inserted
replaced
292:cab78578e745 | 293:7e7575d7b6d0 |
---|---|
143 | 143 |
144 ;; Avoids useless byte-compilation. | 144 ;; Avoids useless byte-compilation. |
145 ;; In the future, would be better to fix byte compiler | 145 ;; In the future, would be better to fix byte compiler |
146 ;; not to really compile in cases like this, | 146 ;; not to really compile in cases like this, |
147 ;; and use defun here. | 147 ;; and use defun here. |
148 (fset 'ignore '(lambda (&rest ignore) nil)) | 148 (fset 'ignore '(lambda (&rest ignore) |
149 "Do nothing. | |
150 Accept any number of arguments, but ignore them." | |
151 nil)) | |
149 | 152 |
150 | 153 |
151 ; old names | 154 ; old names |
152 (fset 'make-syntax-table 'copy-syntax-table) | 155 (fset 'make-syntax-table 'copy-syntax-table) |
153 (fset 'dot 'point) | 156 (fset 'dot 'point) |