From patchwork Thu Mar 28 04:32:41 2019 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Brian Leung X-Patchwork-Id: 1582 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id 8B55416D9F; Thu, 28 Mar 2019 04:43:46 +0000 (GMT) X-Spam-Checker-Version: SpamAssassin 3.4.0 (2014-02-07) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM, HTML_MESSAGE,T_DKIM_INVALID,URIBL_BLOCKED autolearn=ham autolearn_force=no version=3.4.0 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTP id E062C16D95 for ; Thu, 28 Mar 2019 04:43:43 +0000 (GMT) Received: from localhost ([127.0.0.1]:57983 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1h9MtD-0007fp-Ca for patchwork@mira.cbaines.net; Thu, 28 Mar 2019 00:43:43 -0400 Received: from eggs.gnu.org ([209.51.188.92]:44036) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1h9Mse-0007MN-7R for guix-patches@gnu.org; Thu, 28 Mar 2019 00:43:09 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1h9Msa-0007l7-9U for guix-patches@gnu.org; Thu, 28 Mar 2019 00:43:06 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:48426) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1h9MsY-0007kp-5Q for guix-patches@gnu.org; Thu, 28 Mar 2019 00:43:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1h9MsX-0002C0-RP for guix-patches@gnu.org; Thu, 28 Mar 2019 00:43:01 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#35029] [PATCH] Add emacs-undohist-el Resent-From: Brian Leung Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Thu, 28 Mar 2019 04:43:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 35029 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 35029@debbugs.gnu.org X-Debbugs-Original-To: guix-patches@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.15537481258351 (code B ref -1); Thu, 28 Mar 2019 04:43:01 +0000 Received: (at submit) by debbugs.gnu.org; 28 Mar 2019 04:42:05 +0000 Received: from localhost ([127.0.0.1]:33737 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1h9Mrd-0002Ac-A2 for submit@debbugs.gnu.org; Thu, 28 Mar 2019 00:42:05 -0400 Received: from eggs.gnu.org ([209.51.188.92]:57532) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1h9Mrb-0002A9-W8 for submit@debbugs.gnu.org; Thu, 28 Mar 2019 00:42:04 -0400 Received: from lists.gnu.org ([209.51.188.17]:51245) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1h9MrW-0007Ki-PK for submit@debbugs.gnu.org; Thu, 28 Mar 2019 00:41:58 -0400 Received: from eggs.gnu.org ([209.51.188.92]:43597) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1h9MrV-0006Fq-Cz for guix-patches@gnu.org; Thu, 28 Mar 2019 00:41:58 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1h9Mj9-0004mk-QC for guix-patches@gnu.org; Thu, 28 Mar 2019 00:33:20 -0400 Received: from mail-qt1-x82d.google.com ([2607:f8b0:4864:20::82d]:45766) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1h9Mj9-0004md-EG for guix-patches@gnu.org; Thu, 28 Mar 2019 00:33:19 -0400 Received: by mail-qt1-x82d.google.com with SMTP id v20so21574309qtv.12 for ; Wed, 27 Mar 2019 21:33:19 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:from:date:message-id:subject:to; bh=axXYgRSQzPYoM9ZKjmzb0UEHq8W81aLYATowgrCIhmQ=; b=A+29/TIKjF4w7JouyrNu8exMOTWgaScQgPVWyDiJ3+rG13E9TTqzM58LppTICEq9oY M916U6E/WKpJe/Q1TP7V+96c+Xf3mKcMF+PmkQiNb8aJW/K7bvEzhTiwlJQdJp5h7nUY MRxZbbS8chLQqbCtYr7scE0mWwsZF2mZ4Xt/pfOC7yzhlh2tRCXuLBu6NjDqS7mPTGbg 0rNxUpFCw/m29bbTNwfsM8fQtfRbef9mOTJaPcILnjpJhWgOGq6gY+cBYURce5p4mGCQ XrhDf/NOlLBcvjOyXp5O3Gb0Kh/jQxMDA3/zTu0Sr2T00CbW434sd0HeOPBuhCNBMm2a c4ZQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:from:date:message-id:subject:to; bh=axXYgRSQzPYoM9ZKjmzb0UEHq8W81aLYATowgrCIhmQ=; b=HgOZ+zYfbOl5tMWGajoFf3LaR951V4NvPOTjVs+jpm5pdZCvt4v5/S1FHRfiJp/1bU HGhdlsWYdmcMwkrbcsXlzSIvBy4S58BkDDEwMhrjTdfhehLJnot9O6WPE+O7AhBIHgme 0nK/9eujvQE5joV2Tw76lUuv6PwRttq7LE4Lo1IqV8DRKK6b7MgwiLEojgOjgtd9fKD4 xTanfGav6qvU9i+L++fdiRYSAlgqpLQLj5GHyvCRyETnZRQYLDjoTWWerNjs0zC8+gJX sdebsg/XSW+jplMJQEiQXvxGt9HuMomYYbprZ3jei5FpD88bfbbIniKTjXd5387N5epQ FzmQ== X-Gm-Message-State: APjAAAUFnS4ulbk5kQSX+Vz8Vr2PtbW5N7M038WLu00qc9ZK9lmzsjGf j6YorA9MNC77hVQwQGl+Y0vRfvfVtPIOR4OBdkOoMQ== X-Google-Smtp-Source: APXvYqzxICttoNwq42Cl4Dr6ASYNk9OndoIXEBDpFBbTIUsF85zAtfAp/RX8byjzxMirm/IAWvKmnRGMPC9Icu0hf2A= X-Received: by 2002:a0c:8aad:: with SMTP id 42mr34406681qvv.247.1553747598544; Wed, 27 Mar 2019 21:33:18 -0700 (PDT) MIME-Version: 1.0 From: Brian Leung Date: Thu, 28 Mar 2019 05:32:41 +0100 Message-ID: X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 209.51.188.43 X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" X-getmail-retrieved-from-mailbox: Patches See attached. From 0c1c572ccb4e41d164cd68754767cf8fe4994a86 Mon Sep 17 00:00:00 2001 From: Brian Leung Date: Thu, 28 Mar 2019 05:30:06 +0100 Subject: [PATCH] gnu: Add emacs-undohist-el. * gnu/packages/emacs-xyz.scm (emacs-undohist-el): New variable. * gnu/packages/patches/emacs-undohist-ignored.patch: New file. --- gnu/packages/emacs-xyz.scm | 23 ++++++++++++++++ .../patches/emacs-undohist-ignored.patch | 27 +++++++++++++++++++ 2 files changed, 50 insertions(+) create mode 100644 gnu/packages/patches/emacs-undohist-ignored.patch diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index 7554b02599..8601525a28 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -4485,6 +4485,29 @@ Emacs default configuration in uncontroversial ways that nearly everyone can agree upon.") (license license:gpl3+))) +(define-public emacs-undohist-el + (let ((commit "d2239a5f736724ceb9e3b6bcaa86f4064805cda0") + (revision "1")) + (package + (name "emacs-undohist-el") + (version (git-version "0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/m2ym/undohist-el") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1c0daw246ky7b1x5b8h55x79pl1pjqk1k348l487bdd8zdj4w9wx")))) + (build-system emacs-build-system) + (home-page "https://github.com/m2ym/undohist-el") + (synopsis "Save undo history between sessions") + (description "This package allows persistent use of undo history for +individual file buffers.") + (license license:gpl3+)))) + (define-public emacs-eprime (let ((commit "17a481af26496be91c07139a9bfc05cfe722506f")) (package diff --git a/gnu/packages/patches/emacs-undohist-ignored.patch b/gnu/packages/patches/emacs-undohist-ignored.patch new file mode 100644 index 0000000000..c1ad827a26 --- /dev/null +++ b/gnu/packages/patches/emacs-undohist-ignored.patch @@ -0,0 +1,27 @@ +From 52bfd419bf9022726048f818d955b8ea10a16d5c Mon Sep 17 00:00:00 2001 +From: Patrick Mosby +Date: Mon, 7 Sep 2015 09:05:56 +0200 +Subject: [PATCH] Don't save undo file for ignored files. + +This fixes #4. +--- + undohist.el | 3 ++- + 1 file changed, 2 insertions(+), 1 deletion(-) + +diff --git a/undohist.el b/undohist.el +index b184a26..de60356 100644 +--- a/undohist.el ++++ b/undohist.el +@@ -164,7 +164,8 @@ To use undohist, you just call this function." + undohist-ignored-files))) + + (defun undohist-save-1 () +- (when (consp buffer-undo-list) ++ (when (and (consp buffer-undo-list) ++ (undohist-recover-file-p (buffer-file-name (current-buffer)))) + (let ((file (make-undohist-file-name (buffer-file-name))) + (contents `((digest . ,(md5 (current-buffer))) + (undo-list . ,(undohist-encode buffer-undo-list))))) +-- +2.21.0 + -- 2.21.0