[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Font stripper

Here is a GNU EMACS command that will strip Symbolics font information
from a buffer.

(defun strip-fonts (arg)
  ;; Strip symbolics fonts out of a file.
  (interactive "p")
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward "" nil t)
      (backward-delete-char 1)
      (let ((start (point)))
	(if (looking-at "D,#TD1Ps....Begin using 006 escapes")
	    (progn (re-search-forward "")
		   (backward-char)
		   (kill-region start (point)))
	    (if (looking-at "(")
		(progn (forward-sexp)
		       (kill-region start (point)))
		(delete-char 1)))))))