Function: tpu-check-search-case

tpu-check-search-case is a byte-compiled function defined in tpu-edt.el.gz.

Signature

(tpu-check-search-case STRING)

Documentation

Return t if string contains upper case.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-edt.el.gz
(defun tpu-check-search-case (string)
  "Return t if string contains upper case."
  ;; if using regexp, eliminate upper case forms (\B \W \S.)
  (if tpu-regexp-p
      (let ((pat (copy-sequence string)) (case-fold-search nil) (pos 0))
	(while (setq pos (string-search "\\\\" pat)) (aset pat (+ 1 pos) ?.))
	(while (setq pos (string-search "\\B" pat)) (aset pat (+ 1 pos) ?.))
	(while (setq pos (string-search "\\W" pat)) (aset pat (+ 1 pos) ?.))
	(while (setq pos (string-match "\\\\S." pat))
	  (aset pat (+ 1 pos) ?.) (aset pat (+ 2 pos) ?.))
	(string-equal pat (downcase pat)))
    (string-equal string (downcase string))))