diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-03-06 15:33:33 -0300 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-03-06 15:33:33 -0300 |
| commit | 4d9c6b1d182255aacf6a9ce9f4152b598be8b486 (patch) | |
| tree | e584819a223b79084865df5a336bb6b78b1d1a35 /cider-overlays.el | |
| parent | 92cb518c9dc12837b705d111278a28bdc5c2f22a (diff) | |
Rename an argument from X to OV
Diffstat (limited to 'cider-overlays.el')
| -rw-r--r-- | cider-overlays.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/cider-overlays.el b/cider-overlays.el index 06370840..1aba85d4 100644 --- a/cider-overlays.el +++ b/cider-overlays.el @@ -245,15 +245,15 @@ focused." 'modification-hooks '(cider--overlay-destroy) 'help-echo "RET: delete this.") -(defun cider--overlay-destroy (x &rest r) - "Delete overlay X and its underlying text. +(defun cider--overlay-destroy (ov &rest r) + "Delete overlay OV and its underlying text. If any other arguments are given, only actually do anything if the first one is non-nil. This is so it works in `modification-hooks'." (unless (and r (not (car r))) (let ((inhibit-modification-hooks t) - (beg (copy-marker (overlay-start x))) - (end (copy-marker (overlay-end x)))) - (delete-overlay x) + (beg (copy-marker (overlay-start ov))) + (end (copy-marker (overlay-end ov)))) + (delete-overlay ov) (delete-region beg end) (goto-char beg) (when (= (char-after) (char-before) ?\n) |