procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(byte-compile-char-before): New function (modified replacement for
byte-optimize-char-before in byte-opt.el).
This commit is contained in:
Glenn Morris 2007-04-10 03:54:36 +00:00
parent 760c1f3c56
commit ec448ae2df
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/bytecomp.el
View file

@ -3148,6 +3148,7 @@ That command is designed for interactive use only" fn))
;; more complicated compiler macros
(byte-defop-compiler char-before)
(byte-defop-compiler list)
(byte-defop-compiler concat)
(byte-defop-compiler fset)
@ -3159,6 +3160,13 @@ That command is designed for interactive use only" fn))
(byte-defop-compiler19 (/ byte-quo) byte-compile-quo)
(byte-defop-compiler19 nconc)
(defun byte-compile-char-before (form)
(cond ((= 2 (length form))
(byte-compile-form `(char-after (1- ,(nth 1 form)))))
((= 1 (length form))
(byte-compile-form '(char-after (1- (point)))))
(t (byte-compile-subr-wrong-args form "0-1"))))
(defun byte-compile-list (form)
(let ((count (length (cdr form))))
(cond ((= count 0)