diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-08-25 07:12:07 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-08-25 07:12:07 +0200 |
| commit | 3a1dbf4e37f44e853cb649805a1f8777d0ba7501 (patch) | |
| tree | 9bc66cfe6a9efd1040fa3793a004d7fc610d81fe /elisp/geiser-edit.el | |
| parent | 79d3a9a2f332f71711734ee5dd1b7fb2c45ca797 (diff) | |
| download | geiser-guile-3a1dbf4e37f44e853cb649805a1f8777d0ba7501.tar.gz geiser-guile-3a1dbf4e37f44e853cb649805a1f8777d0ba7501.tar.bz2 | |
Let's make it *any* submodule
So the new functions are named geiser-racket-*-submodules, and by
default all submodule forms are hidden.
Now that we have the helpers in geiser-edit, we could have a generic
command in geiser-mode to change the visibility of form at point.
Diffstat (limited to 'elisp/geiser-edit.el')
| -rw-r--r-- | elisp/geiser-edit.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el index f75e303..d43cf9b 100644 --- a/elisp/geiser-edit.el +++ b/elisp/geiser-edit.el @@ -191,7 +191,7 @@ or following links in error buffers.") (let ((cloak (geiser-edit--cloak form))) (save-excursion (goto-char (point-min)) - (while (re-search-forward (format "(%s\\b" (regexp-quote form)) nil t) + (while (re-search-forward (format "(%s\\b" form) nil t) (let* ((beg (match-beginning 0)) (end (progn (ignore-errors (goto-char beg) (forward-sexp)) (point)))) @@ -204,6 +204,10 @@ or following links in error buffers.") (remove-overlays nil nil 'invisible cloak) (remove-from-invisibility-spec (cons cloak t)))) +(defun geiser-edit--show-all () + (remove-overlays) + (setq buffer-invisibility-spec '(t))) + (defun geiser-edit--toggle-visibility (form) (if (and (listp buffer-invisibility-spec) (assoc (geiser-edit--cloak form) buffer-invisibility-spec)) |