Commit e5c230f4 authored by Dave Love's avatar Dave Love
Browse files

(byte-optimize-featurep): New.

parent b8234c84
2002-12-12 Dave Love <fx@gnu.org>
* custom.el (defcustom, custom-set-variables): Doc fix.
* emacs-lisp/bytecomp.el (byte-compile-if): Suppress warnings from
things protected by `(if (fboundp ...' or `(if (boundp ...'.
* emacs-lisp/byte-opt.el (byte-optimize-featurep): New.
2002-12-12 Glenn Morris <gmorris@ast.cam.ac.uk>
 
* progmodes/fortran.el (fortran-mode-abbrev-table): Handle
......
......@@ -252,7 +252,6 @@
(defun byte-inline-lapcode (lap)
(setq byte-compile-output (nconc (nreverse lap) byte-compile-output)))
(defun byte-compile-inline-expand (form)
(let* ((name (car form))
(fn (or (cdr (assq name byte-compile-function-environment))
......@@ -1127,6 +1126,7 @@
form)))
;; Avoid having to write forward-... with a negative arg for speed.
;; Fixme: don't be limited to constant args.
(put 'backward-char 'byte-optimizer 'byte-optimize-backward-char)
(defun byte-optimize-backward-char (form)
(cond ((and (= 2 (safe-length form))
......@@ -1152,6 +1152,16 @@
((= 1 (safe-length form))
'(char-after (1- (point))))
(t form)))
;; Fixme: delete-char -> delete-region (byte-coded)
;; optimize string-as-unibyte, string-as-multibyte, string-make-unibyte,
;; string-make-multibyte for constant args.
(put 'featurep 'byte-optimizer 'byte-optimize-featurep)
(defun byte-optimize-featurep (form)
(if (equal '((quote xemacs)) (cdr-safe form))
nil
form))
;;; enumerating those functions which need not be called if the returned
;;; value is not used. That is, something like
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment