222 |
(if (> (point) (marker-position marker-end)) |
(if (> (point) (marker-position marker-end)) |
223 |
(setq finish t)) |
(setq finish t)) |
224 |
(message |
(message |
225 |
(format "End of environment not found: %s" end-env)) |
"End of environment not found: %s" end-env) |
226 |
(setq finish t)))))) |
(setq finish t)))))) |
227 |
;; No ignored environments, tildify directly |
;; No ignored environments, tildify directly |
228 |
(tildify-tildify beg end ask))) |
(tildify-tildify beg end ask))) |
229 |
(message (format "%d spaces replaced." tildify-count))) |
(message "%d spaces replaced." tildify-count)) |
230 |
|
|
231 |
;;;###autoload |
;;;###autoload |
232 |
(defun tildify-buffer () |
(defun tildify-buffer () |