Function: he-capitalize-first

he-capitalize-first is a byte-compiled function defined in hippie-exp.el.gz.

Signature

(he-capitalize-first STR)

Source Code

;; Defined in /usr/src/emacs/lisp/hippie-exp.el.gz
(defun he-capitalize-first (str)
  (save-match-data
    (if (string-match "\\Sw*\\(\\sw\\)" str)
	(let ((b (match-beginning 1))
              (e (match-end 1)))
          (concat (substring str 0 b)
                  (upcase (substring str b e))
                  (downcase (substring str e))))
      str)))