diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-09 02:38:49 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-09 02:38:49 +0100 |
| commit | 512fa06fec02b7dc8ce11684313f7a0ab56bef6b (patch) | |
| tree | 61a4d0506e7e99f39d4b2e77d6b99321b7b8840e /elisp/geiser-mode.el | |
| parent | 32cf1a718868d83b58b426ba7e1eeb32ea9f80b5 (diff) | |
| download | geiser-guile-512fa06fec02b7dc8ce11684313f7a0ab56bef6b.tar.gz geiser-guile-512fa06fec02b7dc8ce11684313f7a0ab56bef6b.tar.bz2 | |
Elisp buggettes and warnings
Diffstat (limited to 'elisp/geiser-mode.el')
| -rw-r--r-- | elisp/geiser-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el index 1645ba2..719176d 100644 --- a/elisp/geiser-mode.el +++ b/elisp/geiser-mode.el @@ -184,7 +184,7 @@ positive values and backward for negative." (let ((pared (and (boundp 'paredit-mode) paredit-mode)) (fwd (> n 0)) (steps (abs n))) - (when pared (paredit-mode -1)) + (when (and pared (fboundp 'paredit-mode)) (paredit-mode -1)) (unwind-protect (save-excursion (unless (looking-at-p "\\s(") (backward-up-list)) @@ -203,7 +203,7 @@ positive values and backward for negative." (progn (when fwd (forward-sexp 2)) (backward-sexp)) (error (setq steps 0)))))) - (when pared (paredit-mode 1))))) + (when (and pared (fboundp 'paredit-mode)) (paredit-mode 1))))) ;;; Geiser mode: |