Mercurial > hg > xemacs-beta

comparison lisp/bytecomp/bytecomp.el @ 161:28f395d8dc7a r20-3b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b7
author cvs
date Mon, 13 Aug 2007 09:42:26 +0200
parents 6b37e6ddd302
children 0132846995bd
comparison
equal deleted inserted replaced
160:1c55655d6702 161:28f395d8dc7a
575 (byte-defop 109 1 byte-eobp) 575 (byte-defop 109 1 byte-eobp)
576 (byte-defop 110 1 byte-bolp) 576 (byte-defop 110 1 byte-bolp)
577 (byte-defop 111 1 byte-bobp) 577 (byte-defop 111 1 byte-bobp)
578 (byte-defop 112 1 byte-current-buffer) 578 (byte-defop 112 1 byte-current-buffer)
579 (byte-defop 113 0 byte-set-buffer) 579 (byte-defop 113 0 byte-set-buffer)
580 (byte-defop 114 1 byte-read-char-OBSOLETE) ;obsolete as of v19 580 (byte-defop 114 0 byte-save-current-buffer
581 "To make a binding to record the current buffer.")
582 ;;(byte-defop 114 1 byte-read-char-OBSOLETE) ;obsolete as of v19
581 (byte-defop 115 -1 byte-memq) ; new as of v20 583 (byte-defop 115 -1 byte-memq) ; new as of v20
582 (byte-defop 116 1 byte-interactive-p) 584 (byte-defop 116 1 byte-interactive-p)
583 585
584 (byte-defop 117 0 byte-forward-char) 586 (byte-defop 117 0 byte-forward-char)
585 (byte-defop 118 0 byte-forward-word) 587 (byte-defop 118 0 byte-forward-word)
1475 1477
1476 (if (or noninteractive byte-compile-verbose) ; XEmacs change 1478 (if (or noninteractive byte-compile-verbose) ; XEmacs change
1477 (message "Compiling %s..." filename)) 1479 (message "Compiling %s..." filename))
1478 (let (;;(byte-compile-current-file (file-name-nondirectory filename)) 1480 (let (;;(byte-compile-current-file (file-name-nondirectory filename))
1479 (byte-compile-current-file filename) 1481 (byte-compile-current-file filename)
1482 (debug-issue-ebola-notices 0) ; Hack -slb
1480 target-file input-buffer output-buffer 1483 target-file input-buffer output-buffer
1481 byte-compile-dest-file) 1484 byte-compile-dest-file)
1482 (setq target-file (byte-compile-dest-file filename)) 1485 (setq target-file (byte-compile-dest-file filename))
1483 (setq byte-compile-dest-file target-file) 1486 (setq byte-compile-dest-file target-file)
1484 (save-excursion 1487 (save-excursion
3525 3528
3526 (byte-defop-compiler-1 catch) 3529 (byte-defop-compiler-1 catch)
3527 (byte-defop-compiler-1 unwind-protect) 3530 (byte-defop-compiler-1 unwind-protect)
3528 (byte-defop-compiler-1 condition-case) 3531 (byte-defop-compiler-1 condition-case)
3529 (byte-defop-compiler-1 save-excursion) 3532 (byte-defop-compiler-1 save-excursion)
3533 (byte-defop-compiler-1 save-current-buffer)
3530 (byte-defop-compiler-1 save-restriction) 3534 (byte-defop-compiler-1 save-restriction)
3531 (byte-defop-compiler-1 save-window-excursion) 3535 (byte-defop-compiler-1 save-window-excursion)
3532 (byte-defop-compiler-1 with-output-to-temp-buffer) 3536 (byte-defop-compiler-1 with-output-to-temp-buffer)
3533 ;; no track-mouse. 3537 ;; no track-mouse.
3534 3538
3609 (byte-compile-body-do-effect (cdr form)) 3613 (byte-compile-body-do-effect (cdr form))
3610 (byte-compile-out 'byte-unbind 1)) 3614 (byte-compile-out 'byte-unbind 1))
3611 3615
3612 (defun byte-compile-save-restriction (form) 3616 (defun byte-compile-save-restriction (form)
3613 (byte-compile-out 'byte-save-restriction 0) 3617 (byte-compile-out 'byte-save-restriction 0)
3618 (byte-compile-body-do-effect (cdr form))
3619 (byte-compile-out 'byte-unbind 1))
3620
3621 (defun byte-compile-save-current-buffer (form)
3622 (byte-compile-out 'byte-save-current-buffer 0)
3614 (byte-compile-body-do-effect (cdr form)) 3623 (byte-compile-body-do-effect (cdr form))
3615 (byte-compile-out 'byte-unbind 1)) 3624 (byte-compile-out 'byte-unbind 1))
3616 3625
3617 (defun byte-compile-save-window-excursion (form) 3626 (defun byte-compile-save-window-excursion (form)
3618 (byte-compile-push-constant 3627 (byte-compile-push-constant
3955 ;; command-line-args-left is what is left of the command line (from 3964 ;; command-line-args-left is what is left of the command line (from
3956 ;; startup.el) 3965 ;; startup.el)
3957 (defvar command-line-args-left) ;Avoid 'free variable' warning 3966 (defvar command-line-args-left) ;Avoid 'free variable' warning
3958 (if (not noninteractive) 3967 (if (not noninteractive)
3959 (error "`batch-byte-compile' is to be used only with -batch")) 3968 (error "`batch-byte-compile' is to be used only with -batch"))
3960 (let ((error nil)) 3969 (let ((error nil)
3970 (debug-issue-ebola-notices 0)) ; Hack -slb
3961 (while command-line-args-left 3971 (while command-line-args-left
3962 (if (file-directory-p (expand-file-name (car command-line-args-left))) 3972 (if (file-directory-p (expand-file-name (car command-line-args-left)))
3963 (let ((files (directory-files (car command-line-args-left))) 3973 (let ((files (directory-files (car command-line-args-left)))
3964 source dest) 3974 source dest)
3965 (while files 3975 (while files
4009 (defvar command-line-args-left) ;Avoid 'free variable' warning 4019 (defvar command-line-args-left) ;Avoid 'free variable' warning
4010 (if (not noninteractive) 4020 (if (not noninteractive)
4011 (error "batch-byte-recompile-directory is to be used only with -batch")) 4021 (error "batch-byte-recompile-directory is to be used only with -batch"))
4012 (or command-line-args-left 4022 (or command-line-args-left
4013 (setq command-line-args-left '("."))) 4023 (setq command-line-args-left '(".")))
4014 (let ((byte-recompile-directory-ignore-errors-p t)) 4024 (let ((byte-recompile-directory-ignore-errors-p t)
4025 (debug-issue-ebola-notices 0))
4015 (while command-line-args-left 4026 (while command-line-args-left
4016 (byte-recompile-directory (car command-line-args-left)) 4027 (byte-recompile-directory (car command-line-args-left))
4017 (setq command-line-args-left (cdr command-line-args-left)))) 4028 (setq command-line-args-left (cdr command-line-args-left))))
4018 (kill-emacs 0)) 4029 (kill-emacs 0))
4019 4030