/[emacs]/emacs/lisp/emacs-lisp/bytecomp.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/bytecomp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.109 by rms, Wed Jul 31 22:04:33 2002 UTC revision 2.110 by rms, Thu Aug 29 14:49:48 2002 UTC
# Line 943  Each function's symbol gets marked with Line 943  Each function's symbol gets marked with
943           (goto-char (point-max))           (goto-char (point-max))
944           (insert "\n")           (insert "\n")
945           (let ((pt (point)))           (let ((pt (point)))
946             (insert "^L\nCompiling "             (insert "\f\nCompiling "
947                     (if (stringp byte-compile-current-file)                     (if (stringp byte-compile-current-file)
948                         (concat "file " byte-compile-current-file)                         (concat "file " byte-compile-current-file)
949                       (concat "buffer " (buffer-name byte-compile-current-file)))                       (concat "buffer " (buffer-name byte-compile-current-file)))
# Line 1230  Each function's symbol gets marked with Line 1230  Each function's symbol gets marked with
1230                          '(cl-block-wrapper cl-block-throw                          '(cl-block-wrapper cl-block-throw
1231                            multiple-value-call nth-value                            multiple-value-call nth-value
1232                            copy-seq first second rest endp cl-member                            copy-seq first second rest endp cl-member
1233                            ;; This is sometimes defined in CL                            ;; These would sometimes be warned about
1234                            ;; but that redefines a standard function,                            ;; but such warnings are never useful,
1235                            ;; so don't warn about it.                            ;; so don't warn about them.
1236                            macroexpand))))                            macroexpand cl-macroexpand-all cl-compiling-file))))
1237          (byte-compile-warn "Function `%s' from cl package called at runtime"          (byte-compile-warn "Function `%s' from cl package called at runtime"
1238                             func)))                             func)))
1239    form)    form)
# Line 1329  Each function's symbol gets marked with Line 1329  Each function's symbol gets marked with
1329                  )                  )
1330                body)))                body)))
1331    
1332    ;;;      ;; Log the file name.
1333    ;;;      (let ((tem (byte-compile-log-file)))
1334    ;;;        ;; Record position of that text,
1335    ;;;        ;; unless we're compiling multiple files and this isn't the first.
1336    ;;;        (unless warning-series
1337    ;;;      (setq warning-series tem)))
1338    
1339  (defmacro displaying-byte-compile-warnings (&rest body)  (defmacro displaying-byte-compile-warnings (&rest body)
1340    `(let (warning-series)    `(let (warning-series)
1341       ;; Log the file name.  Record position of that text.       ;; Log the file name.  Record position of that text.

Legend:
Removed from v.2.109  
changed lines
  Added in v.2.110

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26