Mercurial > hg > xemacs-beta

comparison lisp/bytecomp.el @ 4907:9e7f5a77cc84

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Mon, 01 Feb 2010 01:05:28 -0600
parents 755ae5b97edb
children c17c857e20bf
comparison
equal deleted inserted replaced
4906:6ef8256a020a 4907:9e7f5a77cc84
4070 (error 4070 (error
4071 "Compiler error: `%s' has no `byte-compile-negated-op' property" 4071 "Compiler error: `%s' has no `byte-compile-negated-op' property"
4072 (car form))) 4072 (car form)))
4073 (cdr form)))) 4073 (cdr form))))
4074 4074
4075 ;;; other tricky macro-like special-forms 4075 ;;; other tricky macro-like special-operators
4076 4076
4077 (byte-defop-compiler-1 catch) 4077 (byte-defop-compiler-1 catch)
4078 (byte-defop-compiler-1 unwind-protect) 4078 (byte-defop-compiler-1 unwind-protect)
4079 (byte-defop-compiler-1 condition-case) 4079 (byte-defop-compiler-1 condition-case)
4080 (byte-defop-compiler-1 save-excursion) 4080 (byte-defop-compiler-1 save-excursion)
4165 (byte-compile-body-do-effect (cdr form)) 4165 (byte-compile-body-do-effect (cdr form))
4166 (byte-compile-out 'byte-unbind 1)) 4166 (byte-compile-out 'byte-unbind 1))
4167 4167
4168 (defun byte-compile-save-current-buffer (form) 4168 (defun byte-compile-save-current-buffer (form)
4169 (if (byte-compile-version-cond byte-compile-emacs19-compatibility) 4169 (if (byte-compile-version-cond byte-compile-emacs19-compatibility)
4170 ;; `save-current-buffer' special form is not available in XEmacs 19. 4170 ;; `save-current-buffer' special operator is not available in XEmacs 19.
4171 (byte-compile-form 4171 (byte-compile-form
4172 `(let ((_byte_compiler_save_buffer_emulation_closure_ (current-buffer))) 4172 `(let ((_byte_compiler_save_buffer_emulation_closure_ (current-buffer)))
4173 (unwind-protect 4173 (unwind-protect
4174 (progn ,@(cdr form)) 4174 (progn ,@(cdr form))
4175 (and (buffer-live-p _byte_compiler_save_buffer_emulation_closure_) 4175 (and (buffer-live-p _byte_compiler_save_buffer_emulation_closure_)