(defvar byte-compile-free-references)
(defvar byte-compile-free-assignments)
-(defvar debug-issue-ebola-notices)
(defvar byte-compiler-error-flag)
(byte-compile-warnings (if (eq byte-compile-warnings t)
byte-compile-default-warnings
byte-compile-warnings))
- (byte-compile-file-domain nil)
-
- ;; We reserve the right to compare ANY objects for equality.
- (debug-issue-ebola-notices -42)
- )
+ (byte-compile-file-domain nil))
(prog1
(progn ,@body)
(if (memq 'unused-vars byte-compile-warnings)
;; file if under Mule. If there are any extended characters in the
;; input file, use `escape-quoted' to make sure that both binary and
;; extended characters are output properly and distinguished properly.
- ;; Otherwise, use `no-conversion' for maximum portability with non-Mule
+ ;; Otherwise, use `raw-text' for maximum portability with non-Mule
;; Emacsen.
(when (featurep 'mule)
(defvar buffer-file-coding-system)
(skip-chars-forward (concat (char-to-string 0) "-"
(char-to-string 255)))
(eq (point) (point-max)))
- (setq buffer-file-coding-system 'no-conversion)
+ (setq buffer-file-coding-system 'raw-text)
(insert "(require 'mule)\n;;;###coding system: escape-quoted\n")
(setq buffer-file-coding-system 'escape-quoted)
;; #### Lazy loading not yet implemented for MULE files