Function: query-replace-descr

query-replace-descr is a byte-compiled function defined in replace.el.gz.

Signature

(query-replace-descr STRING)

Source Code

;; Defined in /usr/src/emacs/lisp/replace.el.gz
(defun query-replace-descr (string)
  (setq string (copy-sequence string))
  (dotimes (i (length string))
    (let ((c (aref string i)))
      (cond
       ((< c ?\s) (add-text-properties
                   i (1+ i)
                   `(display ,(propertize (format "^%c" (+ c 64)) 'face 'escape-glyph))
                   string))
       ((= c ?\^?) (add-text-properties
                    i (1+ i)
                    `(display ,(propertize "^?" 'face 'escape-glyph))
                    string)))))
  string)