Lines Matching +defs:read +defs:only
99 ;; `noruntime' (calls to functions only defined
102 ;; `interactive-only' (calls to commands that are
220 ;; so only define it if it is undefined.
256 This only means that it can run in principle, if it doesn't require
265 ;; makes use of byte-ops which are present only in Emacs 19. Code generated
273 `source' - source-level optimizations only
274 `byte' - code-level optimizations only"
308 inside comments in the file, and bring them into core only when they
326 If this is 'source, then only source-level optimizations will be logged.
327 If it is 'byte, then only byte-level optimizations will be logged."
341 obsolete noruntime cl-functions interactive-only)
355 defined only under `eval-when-compile').
358 interactive-only
366 (const cl-functions) (const interactive-only))))
377 cl-functions interactive-only))
382 (defvar byte-compile-interactive-only-functions
397 The call tree only lists functions called, not macros used. Those functions
586 (byte-defop 95 -1 byte-mult) ; v19 only
904 (let ((inhibit-read-only t))
912 (defvar byte-compile-read-position nil
913 "Character position we began the last `read' from.")
930 ;; `read-symbol-positions-list'. Each time we process, say, a
932 ;; `read-symbol-positions-list', and set `byte-compile-last-position'
948 (when byte-compile-read-position
952 entry (assq sym read-symbol-positions-list))
955 (+ byte-compile-read-position (cdr entry))
956 read-symbol-positions-list
958 entry read-symbol-positions-list)))
968 (let* ((inhibit-read-only t)
977 (integerp byte-compile-read-position))
1017 (let* ((inhibit-read-only t)
1053 (inhibit-read-only t))
1134 ;; ((error "`%s' only accepts %s" key choices)))
1240 "accepts only")
1448 If ANY-VALUE is nil, only return non-nil if the value of the symbol is the
1644 (list (read-file-name (if current-prefix-arg
1689 ;; We only care about a few of them for our purposes.
1793 (byte-compile-read-position (point))
1794 (byte-compile-last-position byte-compile-read-position)
1797 (let ((read-with-symbol-positions (current-buffer))
1798 (read-symbol-positions-list nil))
1800 (byte-compile-sexp (read (current-buffer))))))))
1812 (byte-compile-read-position nil)
1814 ;; Prevent truncation of flonums and lists as we read and print them
1830 ;; This allows us to get the positions of symbols read; it's
1832 (read-with-symbol-positions inbuffer)
1833 (read-symbol-positions-list nil)
1866 (setq byte-compile-read-position (point)
1867 byte-compile-last-position byte-compile-read-position)
1868 (let ((form (read inbuffer)))
1951 ((eq byte-optimize 'source) "with source-level optimization only")
1952 ((eq byte-optimize 'byte) "with byte-level optimization only")
2190 (null form)) ;Constants only
2709 ;; only constants and variables, or a single funcall except in lambdas.
2808 (and (memq 'interactive-only byte-compile-warnings)
2809 (memq fn byte-compile-interactive-only-functions)
2811 That command is designed for interactive use only" fn))
2958 ;; Just like byte-defop-compiler, but defines an opcode that will only
3004 ;;(byte-defop-compiler read-char 0) ;; obsolete
3816 (if (< ncall 2) "requires" "accepts only")
3825 ;; just as a real defvar would, but only in top-level forms.
3840 ;; `defvar' sets `var' only when unbound.
4144 (error "`batch-byte-compile' is to be used only with -batch"))
4200 Must be used only with `-batch', and kills Emacs on completion.
4209 (error "batch-byte-recompile-directory is to be used only with -batch"))