mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 11:00:45 -08:00
Code Issues Projects Releases Wiki Activity

Markus Triska <markus.triska at gmx.at>:

Browse source 
(byte-optimize-backward-char, byte-optimize-backward-word): Remove -
move to bytecomp.el.
This commit is contained in:
Glenn Morris 2007-04-11 03:57:11 +00:00
parent 03d7faa3a2
commit 6f7e29f1d2
1 changed files with 0 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/emacs-lisp/byte-opt.el
View file

@ -1117,26 +1117,6 @@
(byte-optimize-predicate form)) (byte-optimize-predicate form))
form)) 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))
(numberp (nth 1 form)))
(list 'forward-char (eval (- (nth 1 form)))))
((= 1 (safe-length form))
'(forward-char -1))
(t form)))
(put 'backward-word 'byte-optimizer 'byte-optimize-backward-word)
(defun byte-optimize-backward-word (form)
(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) ;; Fixme: delete-char -> delete-region (byte-coded)
;; optimize string-as-unibyte, string-as-multibyte, string-make-unibyte, ;; optimize string-as-unibyte, string-as-multibyte, string-make-unibyte,
;; string-make-multibyte for constant args. ;; string-make-multibyte for constant args.