branch: master
commit 7b033024f14e658260f8057a24ed333ad6d26792
Author: Artur Malabarba <bruce.connor...@gmail.com>
Commit: Artur Malabarba <bruce.connor...@gmail.com>
packages/names.el: Define names--top-of-namespace.
---
names-dev.el | 15 +++++++++------
1 files changed, 9 insertions(+), 6 deletions(-)
diff --git a/names-dev.el b/names-dev.el
index 5457f72..cdaa681 100644
--- a/names-dev.el
+++ b/names-dev.el
@@ -118,12 +118,7 @@ If KILL is non-nil, kill the temp buffer afterwards."
command))
(entire-namespace
(save-excursion
- (when (progn
- (end-of-defun)
- (beginning-of-defun)
- (ignore-errors
- (backward-up-list)
- (names--looking-at-namespace)))
+ (when (names--top-of-namespace)
(cdr (read (current-buffer))))))
b keylist spec name expanded-form)
@@ -156,6 +151,14 @@ If KILL is non-nil, kill the temp buffer afterwards."
(when (and ,kill (buffer-live-p b))
(kill-buffer b))))))
+(defun names--top-of-namespace ()
+ ""
+ (progn
+ (beginning-of-defun)
+ (ignore-errors
+ (backward-up-list)
+ (names--looking-at-namespace))))
+
(defun names-eval-defun (edebug-it)
"Identical to `eval-defun', except it works for forms inside namespaces.
Argument EDEBUG-IT is the same as `eval-defun', causes the form
