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 ((res (downcase str))
	      (no (match-beginning 1)))
	  (aset res no (upcase (aref str no)))
	  res)
      str)))