diff options
| author | Karoly Lorentey <lorentey@elte.hu> | 2005-06-22 17:53:21 +0000 |
|---|---|---|
| committer | Karoly Lorentey <lorentey@elte.hu> | 2005-06-22 17:53:21 +0000 |
| commit | f4d9bf3a9be50a17c2e2f7569b88f3606ab273d9 (patch) | |
| tree | a06250d0c5fec729ab16920d2bb4f857f04cde8b /lisp/emacs-lisp/byte-opt.el | |
| parent | f3479ceeb65724094be33b49bae289a81f42b6ee (diff) | |
| parent | 73106994f86353b8bb5018bacdace22643c5f485 (diff) | |
| download | emacs-f4d9bf3a9be50a17c2e2f7569b88f3606ab273d9.tar.gz emacs-f4d9bf3a9be50a17c2e2f7569b88f3606ab273d9.tar.bz2 emacs-f4d9bf3a9be50a17c2e2f7569b88f3606ab273d9.zip | |
Merged from miles@gnu.org--gnu-2005 (patch 438-440)
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-438
Rename vertical-divider face to vertical-border
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-439
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-440
Change escape-glyph color on dark backgrounds back to cyan
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-353
Diffstat (limited to 'lisp/emacs-lisp/byte-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index acb882dd9a3..e1aacdd51e9 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -152,11 +152,11 @@ ;; ;; Associative math should recognize subcalls to identical function: ;; (disassemble (lambda (x) (+ (+ (foo) 1) (+ (bar) 2)))) ;; ;; This should generate the same as (1+ x) and (1- x) - + ;; (disassemble (lambda (x) (cons (+ x 1) (- x 1)))) ;; ;; An awful lot of functions always return a non-nil value. If they're ;; ;; error free also they may act as true-constants. - + ;; (disassemble (lambda (x) (and (point) (foo)))) ;; ;; When ;; ;; - all but one arguments to a function are constant @@ -165,19 +165,19 @@ ;; ;; condition is side-effect-free [assignment-free] then the other ;; ;; arguments may be any expressions. Since, however, the code size ;; ;; can increase this way they should be "simple". Compare: - + ;; (disassemble (lambda (x) (eq (if (point) 'a 'b) 'c))) ;; (disassemble (lambda (x) (if (point) (eq 'a 'c) (eq 'b 'c)))) - + ;; ;; (car (cons A B)) -> (prog1 A B) ;; (disassemble (lambda (x) (car (cons (foo) 42)))) - + ;; ;; (cdr (cons A B)) -> (progn A B) ;; (disassemble (lambda (x) (cdr (cons 42 (foo))))) - + ;; ;; (car (list A B ...)) -> (prog1 A B ...) ;; (disassemble (lambda (x) (car (list (foo) 42 (bar))))) - + ;; ;; (cdr (list A B ...)) -> (progn A (list B ...)) ;; (disassemble (lambda (x) (cdr (list 42 (foo) (bar))))) @@ -1126,7 +1126,7 @@ This assumes that the function will not have any side-effects and that its return value depends solely on its arguments. If the function can signal an error, this might change the semantics -of FORM by signalling the error at compile-time." +of FORM by signaling the error at compile-time." (let ((args (cdr form)) (constant t)) (while (and args constant) |