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)