Function: cmpl-merge-string-cases

cmpl-merge-string-cases is a byte-compiled function defined in completion.el.gz.

Signature

(cmpl-merge-string-cases STRING-TO-COERCE GIVEN-STRING)

Source Code

;; Defined in /usr/src/emacs/lisp/completion.el.gz
(defun cmpl-merge-string-cases (string-to-coerce given-string)
  (let ((string-case-type (cmpl-string-case-type string-to-coerce)))
    (cond ((memq string-case-type '(:down :up :capitalized))
	   ;; Found string is in a standard case.  Coerce to a type based on
	   ;; the given string
	   (cmpl-coerce-string-case string-to-coerce
			       (cmpl-string-case-type given-string)))
	  (t
	   ;; If the found string is in some unusual case, just insert it
	   ;; as is
	   string-to-coerce))))