From 0bc0adf1b5c93795ca814f3f123405d2782088f8 Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Sun, 28 Jan 2018 19:05:36 -0600 Subject: Update copyrights --- sx-button.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'sx-button.el') 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 @@ -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.") -- cgit v1.2.3