Function: ietf-drums-remove-whitespace

ietf-drums-remove-whitespace is a byte-compiled function defined in ietf-drums.el.gz.

Signature

(ietf-drums-remove-whitespace STRING)

Documentation

Remove whitespace from STRING.

Aliases

mail-header-remove-whitespace

Source Code

;; Defined in /usr/src/emacs/lisp/mail/ietf-drums.el.gz
(defun ietf-drums-remove-whitespace (string)
  "Remove whitespace from STRING."
  (with-temp-buffer
    (ietf-drums-init string)
    (let (c)
      (while (not (eobp))
	(setq c (char-after))
	(cond
	 ((eq c ?\")
	  (condition-case ()
	      (forward-sexp 1)
	    (scan-error (goto-char (point-max)))))
	 ((eq c ?\()
          (ietf-drums--skip-comment))
	 ((memq c '(?\  ?\t ?\n ?\r))
	  (delete-char 1))
	 (t
	  (forward-char 1))))
      (buffer-string))))