diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/evil-commentary-20170413.1451/evil-commentary-integration.el')
-rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/evil-commentary-20170413.1451/evil-commentary-integration.el | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/evil-commentary-20170413.1451/evil-commentary-integration.el b/configs/shared/emacs/.emacs.d/elpa/evil-commentary-20170413.1451/evil-commentary-integration.el deleted file mode 100644 index 0d2760e73077..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/evil-commentary-20170413.1451/evil-commentary-integration.el +++ /dev/null @@ -1,37 +0,0 @@ -(declare-function org-in-src-block-p "org") - -(defmacro evil-commentary/org-babel-do-in-edit-buffer (beg end &rest body) - "Do `org-babel-do-in-edit-buffer' and restore view. - -Return the same value as `org-babel-do-in-edit-buffer'. Save top -line of current window and restore it if sucess." - (declare (indent defun)) - `(when (and (fboundp 'org-babel-do-in-edit-buffer) - (org-in-src-block-p t)) - (let ((top-line (line-number-at-pos (window-start))) - (current-point (point)) - found) - (push-mark ,beg) - (goto-char ,end) - (setq mark-active t) - (setq found (eval '(org-babel-do-in-edit-buffer - ,@body))) - (pop-mark) - (if (not found) - (goto-char current-point) - (save-excursion - (scroll-up 1) ; stupid fix - (goto-char (point-min)) - (forward-line (1- top-line)) - (recenter 0))) - found))) - -;;;###autoload -(defun evil-commentary/org-comment-or-uncomment-region (beg end) - "Comment function for `org-mode'." - (interactive "r") - (unless (evil-commentary/org-babel-do-in-edit-buffer beg end - (call-interactively 'evil-commentary)) - (comment-or-uncomment-region beg end))) - -(provide 'evil-commentary-integration) |