Function: doctor-type-symbol

doctor-type-symbol is a byte-compiled function defined in doctor.el.gz.

Signature

(doctor-type-symbol WORD)

Documentation

Output a symbol to the buffer with some fancy case and spacing hacks.

Source Code

;; Defined in /usr/src/emacs/lisp/play/doctor.el.gz
(defun doctor-type-symbol (word)
  "Output a symbol to the buffer with some fancy case and spacing hacks."
  (setq word (doctor-make-string word))
  (if (string-equal word "i") (setq word "I"))
  (when doctor--*print-upcase*
    (setq word (capitalize word))
    (if doctor--*print-space* (insert " ")))
  (cond ((or (string-match "^[.,;:?! ]" word)
	     (not doctor--*print-space*))
	 (insert word))
	(t (insert ?\s word)))
  (and auto-fill-function
       (> (current-column) fill-column)
       (apply auto-fill-function nil))
  (setq doctor--*print-upcase* (string-match "[.?!]$" word)
	doctor--*print-space* t))