comparison lisp/emacs-lisp/byte-opt.el @ 77097:43beb362565f

Markus Triska <markus.triska at gmx.at>: (byte-optimize-char-before): Remove (move to bytecomp.el as byte-compile-char-before).

77096:14feb20665af

  (cond ((and (= 2 (safe-length form))
	      (numberp (nth 1 form)))
	 (list 'forward-word (eval (- (nth 1 form)))))
	((= 1 (safe-length form))
	 '(forward-word -1))
	(t form)))

(put 'char-before 'byte-optimizer 'byte-optimize-char-before)
(defun byte-optimize-char-before (form)
  (cond ((= 2 (safe-length form))
	 `(char-after (1- ,(nth 1 form))))
	((= 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.

77097:43beb362565f

  (cond ((and (= 2 (safe-length form))
	      (numberp (nth 1 form)))
	 (list 'forward-word (eval (- (nth 1 form)))))
	((= 1 (safe-length form))
	 '(forward-word -1))
	(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.