diff options
| author | Juanma Barranquero | 2007-11-26 15:38:18 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-11-26 15:38:18 +0000 |
| commit | 516b36532677ba43963f6ea656678eaf47cf4709 (patch) | |
| tree | abab43857a6246e2f00dba1c1fee4d6fdab22f4e | |
| parent | 1dcf3f16eadf331d5a6c357a85a87b7d4a40a9c3 (diff) | |
| download | emacs-516b36532677ba43963f6ea656678eaf47cf4709.tar.gz emacs-516b36532677ba43963f6ea656678eaf47cf4709.zip | |
(batch-byte-recompile-directory): Doc fix.
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 16 |
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. | |||
| 3541 | If CONDITION's value is (not (featurep 'emacs)) or (featurep 'xemacs), | 3541 | If CONDITION's value is (not (featurep 'emacs)) or (featurep 'xemacs), |
| 3542 | that suppresses all warnings during execution of BODY." | 3542 | that 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. | |||
| 4274 | For example, invoke `emacs -batch -f batch-byte-recompile-directory .'. | 4274 | For example, invoke `emacs -batch -f batch-byte-recompile-directory .'. |
| 4275 | 4275 | ||
| 4276 | Optional argument ARG is passed as second argument ARG to | 4276 | Optional 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 |
| 4278 | and corresponding effects." | 4278 | and 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 |