Lines Matching defs:original
190 PRINTER should print to `standard-output' using cust-print-original-princ
196 ;; Should cust-print-original-princ and cust-print-prin be exported symbols?
247 (defun cust-print-original-princ (object &optional stream)) ; dummy def
250 (if (not (fboundp 'cust-print-original-prin1))
252 '((cust-print-original-prin1 prin1)
253 (cust-print-original-princ princ)
254 (cust-print-original-print print)
255 (cust-print-original-prin1-to-string prin1-to-string)
256 (cust-print-original-format format)
257 (cust-print-original-message message)
258 (cust-print-original-error error))))
281 '((prin1 cust-print-original-prin1)
282 (princ cust-print-original-princ)
283 (print cust-print-original-print)
284 (prin1-to-string cust-print-original-prin1-to-string)
285 (format cust-print-original-format)
286 (message cust-print-original-message)
287 (error cust-print-original-error)
323 (cust-print-top-level object stream 'cust-print-original-prin1))
333 (cust-print-top-level object stream 'cust-print-original-princ))
367 (cust-print-original-princ "\n" stream)
369 (cust-print-original-princ "\n" stream))
388 (apply 'cust-print-original-format fmt
408 ;; (cust-print-original-princ (apply 'custom-format fmt args))
411 ;; cust-print-original-message does it right.
412 (apply 'cust-print-original-message fmt
437 (defun cust-print-original-printer (object)) ; One of the standard printers.
449 (defalias 'cust-print-original-printer emacs-printer)
460 (t 'cust-print-original-printer)))
472 ((null object) (cust-print-original-printer object))
477 (t (cust-print-original-printer object))))
491 (cust-print-original-princ "#")
492 (cust-print-original-princ id)
493 (cust-print-original-princ "#"))
496 (cust-print-original-princ "#")
497 (cust-print-original-princ (- id))
498 (cust-print-original-princ "=")
511 (cust-print-original-princ "#")
513 (cust-print-original-princ "(")
519 (if list (cust-print-original-princ " "))
531 (cust-print-original-princ ". ")
536 (if list (cust-print-original-princ " ")))
538 (if (and list (= length 0)) (cust-print-original-princ "..."))
539 (cust-print-original-princ ")"))))
546 (cust-print-original-princ "#")
550 (cust-print-original-princ "[")
558 (if (< i (length vector)) (cust-print-original-princ " ")))
560 (if (< i (length vector)) (cust-print-original-princ "..."))
561 (cust-print-original-princ "]")