Function: Man-translate-cleanup

Man-translate-cleanup is a byte-compiled function defined in man.el.gz.

Signature

(Man-translate-cleanup STRING)

Documentation

Strip leading, trailing and middle spaces.

Source Code

;; Defined in /usr/src/emacs/lisp/man.el.gz
(defun Man-translate-cleanup (string)
  "Strip leading, trailing and middle spaces."
  (when (stringp string)
    ;;  Strip leading and trailing
    (if (string-match "^[ \t\f\r\n]*\\(.+[^ \t\f\r\n]\\)" string)
        (setq string (match-string 1 string)))
    ;; middle spaces
    (setq string (replace-regexp-in-string "[\t\r\n]" " " string))
    (setq string (replace-regexp-in-string "  +" " " string))
    string))