           (kill-line)
           (delete-blank-lines)
           (goto-char (point-min))
-          (when 
+          (when
               (re-search-forward "\\\\includegraphics\\[[^]]*\\]{\\([^}]*\\)}" nil t)
             (setq file (match-string 1))
             (goto-char (point-min))

      t)))

(defun p2l--convert-command0 (latex pillar &optional newline)
  (p2l--setup-buffer)
  (while (p2l--convert-command0-once latex pillar newline)))

(defun p2l--convert-command1-once (latex pillar-begin &optional pillar-end newline)
  (when (p2l--convert-command0-once latex pillar-begin newline)
    (let ((start (point))
          end)
      (forward-sexp)
      (delete-backward-char 1)
      (insert pillar-end)
      (setq end (point))
      (goto-char start)

;;; latex2pillar.el --- Help converting LaTeX files to Pillar

;;; Commentary:
;; 

;;; Code:

(defconst p2l-editor-macros
  '("apl" "ab" "sd" "dc" "md" "on" "damien" "lr" "orla" "alex" "alx" "dr" "ja" "jr" "jb" "fp" "michael" "ew" "mb" "hw" "ben" "hjo" "ml"))

