From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Davin Pearson Newsgroups: gmane.emacs.help Subject: Re: Adding hypertlink buttons Date: Sat, 3 Nov 2018 02:34:23 +1300 Message-ID: References: <9da059a8-fc31-4fc2-bd3d-ebe727526dbe@googlegroups.com> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="UTF-8" X-Trace: blaine.gmane.org 1541174324 25980 195.159.176.226 (2 Nov 2018 15:58:44 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Fri, 2 Nov 2018 15:58:44 +0000 (UTC) Cc: help-gnu-emacs@gnu.org To: gnu.emacs.help@googlegroups.com Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Nov 02 16:58:40 2018 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gIbqK-0006fS-6g for geh-help-gnu-emacs@m.gmane.org; Fri, 02 Nov 2018 16:58:40 +0100 Original-Received: from localhost ([::1]:52290 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gIbsQ-0007OV-Jn for geh-help-gnu-emacs@m.gmane.org; Fri, 02 Nov 2018 12:00:50 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:34688) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gIPS4-0007Ul-HW for help-gnu-emacs@gnu.org; Thu, 01 Nov 2018 22:44:49 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gIPIE-0006tU-Cr for help-gnu-emacs@gnu.org; Thu, 01 Nov 2018 22:34:44 -0400 Original-Received: from mail-wr1-x434.google.com ([2a00:1450:4864:20::434]:43855) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gIPIE-0006t8-4y for help-gnu-emacs@gnu.org; Thu, 01 Nov 2018 22:34:38 -0400 Original-Received: by mail-wr1-x434.google.com with SMTP id y3-v6so140825wrh.10 for ; Thu, 01 Nov 2018 19:34:37 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:references:in-reply-to:from:date:message-id:subject:to :cc; bh=NBUxj2Pd1ezpnlxHrCEte/CMKc5K5n+xHqi2q0HGVzE=; b=MNY9/GcaMvGzKFu3DkT9tEBaIMqGoc2Ze0dcgYNODsfaDD0aefW/PX632sIGWZkRCz fKXXSxeV/BdGFomOoyEam1fVbnQhyE5FTdbJUfCiuHN+7HEA+d6kiks3dGw+qHz3h0+Y 1MVrZCtY1Ts4kkHYFsOt9Zgs+hkgYloBRiLV2fRgcprb14MKSmWGANF9oF8ACWrd2/q6 jl54++QfoktsKegi9i1/ZJb8TciZI05ErNr5ATAqfa/gPbGv48SS/Rv5923r85LXn5HP YW06F73DiClug9MRd8I9MtBKG9W1ZP38Q4/NoKuJnE/Ems4vskm7tXuPPJGp9EaBQhK6 lZXg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:references:in-reply-to:from:date :message-id:subject:to:cc; bh=NBUxj2Pd1ezpnlxHrCEte/CMKc5K5n+xHqi2q0HGVzE=; b=Ace5ttgJUqqy2aQNRIzfg3000ybhbuFO+TKxcne/z7mst/eAG5ENmkoncr+lYyeAoB aZt1CG1JVCZNCNlXfx9frDyQSRukZVnsXy0coGzIhLFGMOMjYFBf1BqzULN97mYqv0oM 05ZqgwjDB4+fdQ3YKd0KoADPY2CkZepY3cN2b7Ir6DE3nFQefW5f5v2tAgSXSlzlUaUZ y1bsZObIOkQZ3rc/mxrbcLDDi+fZx8p6/867WbIxxaB+i0aCUa/sB/Fy+sXwujs0P60M Z1dmE+wyiqZwcsFP7eiD2yWBttU8duhzpElc4Vne+ahunXyAmHYCisnzCXD3tUvC4OQz 5yvA== X-Gm-Message-State: AGRZ1gLJlxwFu+Xpq8enJQp0TObAQedNTxBY+T6V6h2l0TzSnowDmwib Pwx9P0pMBcb5qNmE38CFQe/61cOrNlf0HrVPDE8= X-Google-Smtp-Source: AJdET5fxgtjfL6DcqIf3Sdj/pms+JldHF7PfgAyQoRJnAXhRWjAneW33IlDuf1qEJnRimQYa2VTM6inwdb2n7FacmFc= X-Received: by 2002:a5d:68cc:: with SMTP id p12-v6mr9300764wrw.34.1541126077033; Thu, 01 Nov 2018 19:34:37 -0700 (PDT) In-Reply-To: X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 2a00:1450:4864:20::434 X-Mailman-Approved-At: Fri, 02 Nov 2018 11:59:36 -0400 X-Content-Filtered-By: Mailman/MimeDel 2.1.21 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.org gmane.emacs.help:118555 Archived-At: The code you sent me works just fine. Thanking you for your time and energy involved in constructing a reply to my original email message. On Thu, 1 Nov 2018 at 03:36, wrote: > A > > A > > 26.10.2018, 08:21, "Davin Pearson" : > > > I have written a drop in replacement for speedbar,el called > d-speedbar.el > > > and I want to get left mouse button hyperlinks online instead of > pressing ENTER on the function browser window to take you to the > corresponding line for that function in the code browser window. > > A > > After consultingA (info "(elisp) Clickable Text") yesterday, IA wrote > the following to insert a link to the init file, I can click or press > RET onA the link to open the file. > > A > > (insert > A (propertize user-init-file > A A A A A A A 'mouse-face 'highlight > A A A A A A A 'help-echo "mouse-2: visit this file" > A A A A A A A 'follow-link t > A A A A A A A 'keymap > A A A A A A A (let ((map (make-sparse-keymap)) > A A A A A A A A A A (cmd (lambda () > A A A A A A A A A A A A A (interactive) > A A A A A A A A A A A A A (find-file user-init-file)))) > A A A A A A A A (define-key map [mouse-2] cmd) > A A A A A A A A (define-key map [?\C-m] cmd) > A A A A A A A A map)) > A ?\n) > A > I am not sure if `:follow-link t` is correct, but it seems it is > required because I remember click won't work without it. > -- Sincerely and kindest regards, Davin. Davin Pearson http://davin.50webs.com