Oops! fix for lojban-lookup

[bob@GNU.AI.MIT.EDU]

Ha! found the first bug just after irretrievably mailing off the first
version. :-(

Use this for `lojban-reformat-lookup-buffer'.

(defun lojban-reformat-lookup-buffer ()
  "Reformat the lookup buffer.  You may have to modify this."
          (while (not (eobp))
            (let ((here (point)))
              (delete-region (+ 30 here)  (+ 61 here)))
            ;; Fold long line
            (end-of-line)
            (while (> (current-column) 78)
              (move-to-column 72)
              (forward-word -1)
              (if (looking-at-backward "\(") (forward-char -1))
              (insert "\n                                    "))
            (forward-line 1)))