Lines Matching refs:interactive
52 (defun disassemble (object &optional buffer indent interactive-p)
58 (interactive (list (intern (completing-read "Disassemble function: "
65 (if (or interactive-p (null buffer))
68 (disassemble-internal object indent (not interactive-p)))
74 (defun disassemble-internal (obj indent interactive-p)
98 (if interactive-p (message (if name
103 (if interactive-p (message "Done compiling. Disassembling..."))))
134 (let ((interactive (cond ((consp obj)
135 (assq 'interactive obj))
137 (list 'interactive (aref obj 5))))))
138 (if interactive
140 (setq interactive (nth 1 interactive))
141 (if (eq (car-safe (car-safe obj)) 'interactive)
144 (insert " interactive: ")
145 (if (eq (car-safe interactive) 'byte-code)
148 (disassemble-1 interactive
151 (prin1 interactive (current-buffer))))
162 (if interactive-p