[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 6685081 01/16: Don't throw an error with elisp de
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/objed 6685081 01/16: Don't throw an error with elisp defun object if not inside a defun |
Date: |
Mon, 4 Feb 2019 07:46:25 -0500 (EST) |
branch: externals/objed
commit 6685081f86a6feb911269f789a44b521610a722e
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Don't throw an error with elisp defun object if not inside a defun
---
objed-objects.el | 27 ++++++++++++++-------------
1 file changed, 14 insertions(+), 13 deletions(-)
diff --git a/objed-objects.el b/objed-objects.el
index 9d00ebb..08f595d 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -2080,19 +2080,20 @@ non-nil the indentation block can contain empty lines."
(narrow-to-region (car bounds) (cdr bounds))
(goto-char (car bounds))
(objed--skip-ws)
- (cond ((looking-at "(defun")
- (down-list 2)
- (up-list 1)
- (cons (point)
- (progn (goto-char (point-max))
- (down-list -1)
- (point))))
- (t
- (cons (progn (down-list 1)
- (point))
- (progn (goto-char (point-max))
- (down-list -1)
- (point))))))))))
+ (ignore-errors
+ (cond ((looking-at "(defun")
+ (down-list 2)
+ (up-list 1)
+ (cons (point)
+ (progn (goto-char (point-max))
+ (down-list -1)
+ (point))))
+ (t
+ (cons (progn (down-list 1)
+ (point))
+ (progn (goto-char (point-max))
+ (down-list -1)
+ (point)))))))))))
(objed-define-object nil tag
:atp
- [elpa] externals/objed updated (799a00e -> c54c8b3), Clemens Radermacher, 2019/02/04
- [elpa] externals/objed 6685081 01/16: Don't throw an error with elisp defun object if not inside a defun,
Clemens Radermacher <=
- [elpa] externals/objed b98e4be 02/16: Add melpa stable badge, Clemens Radermacher, 2019/02/04
- [elpa] externals/objed e809d3f 03/16: Add Elpa badge, Clemens Radermacher, 2019/02/04
- [elpa] externals/objed 3a26da6 04/16: Change elpa badge, Clemens Radermacher, 2019/02/04
- [elpa] externals/objed 4c4ab09 06/16: Add objed-activate example, Clemens Radermacher, 2019/02/04
- [elpa] externals/objed d2fdbe0 05/16: Switch badge order to elpa, melpa stable, melpa, Clemens Radermacher, 2019/02/04
- [elpa] externals/objed a6cebcc 07/16: Mention actual command names to move to prev/next identifier, Clemens Radermacher, 2019/02/04
- [elpa] externals/objed c54c8b3 16/16: Version bump, Clemens Radermacher, 2019/02/04
- [elpa] externals/objed e427899 12/16: Get context object when acting on sexp object (toggle state etc.), Clemens Radermacher, 2019/02/04
- [elpa] externals/objed f28ee01 11/16: Improve sexp object/movement again, Clemens Radermacher, 2019/02/04
- [elpa] externals/objed 1652f3b 10/16: Add two new entry commands (for object-at-point), Clemens Radermacher, 2019/02/04