[elpa] externals/code-cells adda62ec82 16/36: Address some packaging issues

[ELPA Syncer]

branch: externals/code-cells
commit adda62ec820655d447d50f3ac0e75bd32adac7f0
Author: Augusto Stoffel <astoff@users.noreply.github.com>
Commit: Augusto Stoffel <astoff@users.noreply.github.com>

    Address some packaging issues
---
 code-cells.el | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/code-cells.el b/code-cells.el
index 9ce6df2d2c..1a852d03b4 100644
--- a/code-cells.el
+++ b/code-cells.el
@@ -6,6 +6,7 @@
 ;; Keywords: convenience, outlines
 ;; URL: https://github.com/astoff/code-cells.el
 ;; Package-Requires: ((emacs "27.1"))
+;; Version: 0.1
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -113,7 +114,7 @@ region is active, use its bounds instead.  In this case,
    (push-mark end nil t)))
 
 ;;;###autoload
-(defun code-cells-command (fun &optional docstring &rest options)
+(defun code-cells-command (fun &rest options)
   "Return an anonymous command that calls FUN on the current cell.
 
 FUN is a function that takes two character positions as argument.
@@ -126,19 +127,16 @@ on the region instead of the current cell when 
appropriate.
 If OPTIONS contains the keyword :pulse, provide visual feedback
 via `pulse-momentary-highlight-region'."
   (declare (doc-string 2))
-  (unless (stringp docstring)
-    (setq options (cons docstring options))
-    (setq docstring (concat
-                     "Call `" (symbol-name fun) "' on the current code cell."
-                     (when (member :use-region options)
-                       "\nIf region is active, use it instead."))))
   (eval `(lambda ()
-          ,docstring
-          (interactive)
-          (code-cells-do ,(car (member :use-region options))
-                         ,(when (member :pulse options)
-                            '(pulse-momentary-highlight-region start end))
-                         (funcall ',fun start end)))))
+           ,(concat
+             "Call `" (symbol-name fun) "' on the current code cell."
+             (when (member :use-region options)
+               "\nIf region is active, use it instead."))
+           (interactive)
+           (code-cells-do ,(car (member :use-region options))
+                          ,(when (member :pulse options)
+                             '(pulse-momentary-highlight-region start end))
+                          (funcall ',fun start end)))))
 
 (defun code-cells-speed-key (command)
   "Return a speed key definition, suitable for passing to `define-key'.
@@ -184,6 +182,8 @@ cell level."
   `((,(rx (regexp (code-cells-boundary-regexp)) (* any) "\n")
      0 'code-cells-header-line append)))
 
+(defvar outline-heading-end-regexp)
+
 ;;;###autoload
 (define-minor-mode code-cells-mode
   "Minor mode for cell-oriented code."