aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2007-11-26 15:38:18 +0000
committerJuanma Barranquero2007-11-26 15:38:18 +0000
commit516b36532677ba43963f6ea656678eaf47cf4709 (patch)
treeabab43857a6246e2f00dba1c1fee4d6fdab22f4e
parent1dcf3f16eadf331d5a6c357a85a87b7d4a40a9c3 (diff)
downloademacs-516b36532677ba43963f6ea656678eaf47cf4709.tar.gz
emacs-516b36532677ba43963f6ea656678eaf47cf4709.zip
(batch-byte-recompile-directory): Doc fix.
-rw-r--r--lisp/emacs-lisp/bytecomp.el16
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 7d1b2b94572..bc83a25cb3a 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -3506,12 +3506,12 @@ That command is designed for interactive use only" fn))
3506 3506
3507;; Return the list of items in CONDITION-PARAM that match PRED-LIST. 3507;; Return the list of items in CONDITION-PARAM that match PRED-LIST.
3508;; Only return items that are not in ONLY-IF-NOT-PRESENT. 3508;; Only return items that are not in ONLY-IF-NOT-PRESENT.
3509(defun byte-compile-find-bound-condition (condition-param 3509(defun byte-compile-find-bound-condition (condition-param
3510 pred-list 3510 pred-list
3511 &optional only-if-not-present) 3511 &optional only-if-not-present)
3512 (let ((result nil) 3512 (let ((result nil)
3513 (nth-one nil) 3513 (nth-one nil)
3514 (cond-list 3514 (cond-list
3515 (if (memq (car-safe condition-param) pred-list) 3515 (if (memq (car-safe condition-param) pred-list)
3516 ;; The condition appears by itself. 3516 ;; The condition appears by itself.
3517 (list condition-param) 3517 (list condition-param)
@@ -3519,7 +3519,7 @@ That command is designed for interactive use only" fn))
3519 ;; `and' arguments. 3519 ;; `and' arguments.
3520 (when (eq 'and (car-safe condition-param)) 3520 (when (eq 'and (car-safe condition-param))
3521 (cdr condition-param))))) 3521 (cdr condition-param)))))
3522 3522
3523 (dolist (crt cond-list) 3523 (dolist (crt cond-list)
3524 (when (and (memq (car-safe crt) pred-list) 3524 (when (and (memq (car-safe crt) pred-list)
3525 (eq 'quote (car-safe (setq nth-one (nth 1 crt)))) 3525 (eq 'quote (car-safe (setq nth-one (nth 1 crt))))
@@ -3541,10 +3541,10 @@ being undefined will be suppressed.
3541If CONDITION's value is (not (featurep 'emacs)) or (featurep 'xemacs), 3541If CONDITION's value is (not (featurep 'emacs)) or (featurep 'xemacs),
3542that suppresses all warnings during execution of BODY." 3542that suppresses all warnings during execution of BODY."
3543 (declare (indent 1) (debug t)) 3543 (declare (indent 1) (debug t))
3544 `(let* ((fbound-list (byte-compile-find-bound-condition 3544 `(let* ((fbound-list (byte-compile-find-bound-condition
3545 ,condition (list 'fboundp) 3545 ,condition (list 'fboundp)
3546 byte-compile-unresolved-functions)) 3546 byte-compile-unresolved-functions))
3547 (bound-list (byte-compile-find-bound-condition 3547 (bound-list (byte-compile-find-bound-condition
3548 ,condition (list 'boundp 'default-boundp))) 3548 ,condition (list 'boundp 'default-boundp)))
3549 ;; Maybe add to the bound list. 3549 ;; Maybe add to the bound list.
3550 (byte-compile-bound-variables 3550 (byte-compile-bound-variables
@@ -4274,7 +4274,7 @@ Must be used only with `-batch', and kills Emacs on completion.
4274For example, invoke `emacs -batch -f batch-byte-recompile-directory .'. 4274For example, invoke `emacs -batch -f batch-byte-recompile-directory .'.
4275 4275
4276Optional argument ARG is passed as second argument ARG to 4276Optional argument ARG is passed as second argument ARG to
4277`batch-recompile-directory'; see there for its possible values 4277`byte-recompile-directory'; see there for its possible values
4278and corresponding effects." 4278and corresponding effects."
4279 ;; command-line-args-left is what is left of the command line (startup.el) 4279 ;; command-line-args-left is what is left of the command line (startup.el)
4280 (defvar command-line-args-left) ;Avoid 'free variable' warning 4280 (defvar command-line-args-left) ;Avoid 'free variable' warning