[elpa] externals/objed 1c04620 49/59: Skip docstring for inner elisp defun object

[Clemens Radermacher]

branch: externals/objed
commit 1c0462089faa851672a29cbdec83a615cdbf8cc3
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Skip docstring for inner elisp defun object
---
 objed-objects.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/objed-objects.el b/objed-objects.el
index 8bfabca..37299f2 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -2170,6 +2170,11 @@ non-nil the indentation block can contain empty lines."
            (cond ((looking-at "(defun")
                   (down-list 2)
                   (up-list 1)
+                  (objed--skip-ws)
+                  (when (objed--at-string-p)
+                    (forward-sexp 1)
+                    (objed--skip-ws))
+
                   (cons (point)
                         (progn (goto-char (point-max))
                                (down-list -1)