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 | 6cf1ce0e924fc231b1f51a3ce4eb23e35e9eaf25 (patch) | |
| tree | 0ab151cd7b086084f3e51952be9daac29c59f4e2 /elisp/geiser-mode.el | |
| parent | 9b9419690de2edb3f259d5f456d1a4bc03752762 (diff) | |
| download | geiser-6cf1ce0e924fc231b1f51a3ce4eb23e35e9eaf25.tar.gz geiser-6cf1ce0e924fc231b1f51a3ce4eb23e35e9eaf25.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: |