diff options
| author | Sean Allred <code@seanallred.com> | 2018-01-28 19:05:36 -0600 |
|---|---|---|
| committer | Sean Allred <code@seanallred.com> | 2018-01-28 19:05:36 -0600 |
| commit | 0bc0adf1b5c93795ca814f3f123405d2782088f8 (patch) | |
| tree | bd5f60e0c89afe202058fa698181a5c11af04c9f /sx-button.el | |
| parent | 07868a94759183341dad28cc13c9c3aa5c4832cb (diff) | |
Update copyrights
Diffstat (limited to 'sx-button.el')
| -rw-r--r-- | sx-button.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/sx-button.el b/sx-button.el index a4fcb76..a208633 100644 --- a/sx-button.el +++ b/sx-button.el @@ -1,6 +1,6 @@ ;;; sx-button.el --- defining buttons -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Artur Malabarba +;; Copyright (C) 2014-2018 Artur Malabarba ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> @@ -93,7 +93,7 @@ usually part of a code-block." ;; Buttons receive markers. (when (markerp text-or-marker) (setq majormode (get-text-property text-or-marker 'sx-mode)) - (unless (setq text-or-marker + (unless (setq text-or-marker (get-text-property text-or-marker 'sx-button-copy)) (sx-message "Nothing of interest here."))) (with-current-buffer (pop-to-buffer (generate-new-buffer @@ -117,9 +117,9 @@ usually part of a code-block." ;;; Help-echo definitions (defconst sx-button--help-echo - (concat "mouse-1, RET" + (concat "mouse-1, RET" (propertize ": %s -- " 'face 'minibuffer-prompt) - "w" + "w" (propertize ": copy %s" 'face 'minibuffer-prompt)) "Base help-echo on which others can be written.") |