From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms11 with LMTPS id eBPwC3wKOF8wRgAA0tVLHw (envelope-from ) for ; Sat, 15 Aug 2020 16:17:00 +0000 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1 with LMTPS id 4OixB3wKOF/OOgAAbx9fmQ (envelope-from ) for ; Sat, 15 Aug 2020 16:17:00 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 9B948940142 for ; Sat, 15 Aug 2020 16:16:59 +0000 (UTC) Received: from localhost ([::1]:44162 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1k6yra-0001YO-5Q for larch@yhetil.org; Sat, 15 Aug 2020 12:16:58 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:58620) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1k6yqh-0001Dr-3G for emacs-orgmode@gnu.org; Sat, 15 Aug 2020 12:16:03 -0400 Received: from mail-oi1-x242.google.com ([2607:f8b0:4864:20::242]:46546) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1k6yqf-0003Rs-Dl for emacs-orgmode@gnu.org; Sat, 15 Aug 2020 12:16:02 -0400 Received: by mail-oi1-x242.google.com with SMTP id v13so10930975oiv.13 for ; Sat, 15 Aug 2020 09:16:00 -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=oP7NnEX4NylwsHqW2n6jG9RZmdqzWK4arhkIzTTMwNU=; b=SRPH1/rdB4NTrRkd9QhzKuRqWWd6dyElnQX5QNSB6EBDO2TmT0o1v1mfRWjIORfAp8 WV+x5fOCVjAeQRbccX60nlArcMwRuPZ6WGw7QDwBB5ON526sGWic1HirXCUcucAdesLe 9pkK6N3bcltCR5pHLMdHTQ4g/FGJOj9PsEW2E5wbPZkDxqtwIC4cCq3RAp0yYsIuKoMA FKnuE70UBnIJzEsdN83yqi0u+X7VpAvyRPa8UIt9pRO9LQGH7rVyOSWilo6NcQz98RDq AIapZKlY560nWH3tFlw1ZMcFHX/kLTN46YCskbXkPBZGrY2UkcJdQTTz8pUl5bxPmosO j0OA== 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=oP7NnEX4NylwsHqW2n6jG9RZmdqzWK4arhkIzTTMwNU=; b=QCjMU6vxqdU1ch8aiSvzBmaiJsaj3GQOxU01I42OaY1GvqYecii3E+bA3cIm2al6Xn FrT9A0NnAKMtyMDVD2ue31vfamzevGlq0bjm7b8gHYGk9myjiFI2diSv0u1uVNfnww22 E4VCHcUGEVWkgWT9EGyZ37TqXN8Fesj9Hw5X9eVbzRf/2Mfktbd6ZYfqc5hnmXLhVur5 J6t9Lc/icipvTMHDY07pcQv3bk3CBxNZ06ZoHJV5nqkghsuyqEu+Jh5dKKVbljpcRO9K 6a16BeiV7wZkeo6VYpqpDK+Jj1I3w6Sq+b1Yx1hPJTFiXP7ZO2ZZT+qlMPzPftIxnRtV 35xA== X-Gm-Message-State: AOAM530RIH2sK7lyaXkiuE5ThyLrrrvZIDAa5Mf89mS70M0xNokRCr6G d3j5tTyi6Q8bqftm61EjHXapCQCoX8u3na9UoMuHwJDTCJs= X-Google-Smtp-Source: ABdhPJzmz4GBeF/tfZ/DLc19iqvEk5mbDbWpkiCHTBz1uaOu3K4vbRt/jMpvNa8OYkqwiq/mVTOB8lplFh8KZJSn5M4= X-Received: by 2002:a17:90a:326b:: with SMTP id k98mr4131489pjb.72.1597447108192; Fri, 14 Aug 2020 16:18:28 -0700 (PDT) MIME-Version: 1.0 Received: by 2002:a05:6a10:d104:0:0:0:0 with HTTP; Fri, 14 Aug 2020 16:18:27 -0700 (PDT) From: Samuel Wales Date: Fri, 14 Aug 2020 16:18:27 -0700 Message-ID: Subject: [bug] deleting backward char does not do undo-boundary To: emacs-orgmode@gnu.org Content-Type: text/plain; charset="UTF-8" Received-SPF: pass client-ip=2607:f8b0:4864:20::242; envelope-from=samologist@gmail.com; helo=mail-oi1-x242.google.com X-detected-operating-system: by eggs.gnu.org: No matching host in p0f cache. That's all we know. X-Spam_score_int: -9 X-Spam_score: -1.0 X-Spam_bar: - X-Spam_report: (-1.0 / 5.0 requ) BAYES_00=-1.9, DATE_IN_PAST_12_24=1.049, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, URIBL_BLOCKED=0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Scanner: scn0 Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20161025 header.b=SRPH1/rd; dmarc=pass (policy=none) header.from=gmail.com; spf=pass (aspmx1.migadu.com: domain of emacs-orgmode-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=emacs-orgmode-bounces@gnu.org X-Spam-Score: -1.71 X-TUID: k4spl7F4Mjwf you know that thing in emacs where up to 20 self-insert-command invocations are undone all at once? i dislike it and have fixed it for everything except one command in org. in org, backspace [org delete backward char] clusters for undo ["amalgamates" in emacs lingo] even when org-self-insert-cluster-for-undo is nil. this is not true of delete, which works ok. here is my code to try to fix it [note that i fix teh rest of emacs 25 also]. but that one command does not accept the undo-boundary that i call. i do not udnerstand why this is the case. (defun alpha-wrap-with-undo-boundary (old) (interactive) ;; (defun (make-symbol (concat "alpha-") old) () ;; (interactive) (call-interactively old) (undo-boundary)) (define-key global-map [remap delete-char] #'alpha-delete-char) (define-key global-map [remap delete-forward-char] #'alpha-delete-forward-char) (define-key global-map [remap delete-backward-char] #'alpha-delete-backward-char) (define-key global-map [remap backward-delete-char-untabify] #'alpha-backward-delete-char-untabify) (defun alpha-delete-char () (interactive) (alpha-wrap-with-undo-boundary 'delete-char)) (defun alpha-backward-delete-char-untabify () (interactive) (alpha-wrap-with-undo-boundary 'backward-delete-char-untabify)) (defun alpha-delete-forward-char () (interactive) (alpha-wrap-with-undo-boundary 'delete-forward-char)) (defun alpha-delete-backward-char () (interactive) (alpha-wrap-with-undo-boundary 'delete-backward-char)) ;; ;; not work. it is an alias. trying org versions. ;; (define-key global-map [remap backward-delete-char] #'alpha-backward-delete-char) ;; (defun alpha-backward-delete-char () ;; (interactive) ;; (alpha-wrap-with-undo-boundary 'backward-delete-char)) (define-key org-mode-map [remap org-delete-backward-char] #'alpha-org-delete-backward-char) (define-key org-mode-map [remap org-delete-char] #'alpha-org-delete-char) (defun alpha-org-delete-char () (interactive) (alpha-wrap-with-undo-boundary 'org-delete-char)) (defun alpha-org-delete-backward-char () (interactive) (alpha-wrap-with-undo-boundary 'org-delete-backward-char)) -- The Kafka Pandemic Please learn what misopathy is. https://thekafkapandemic.blogspot.com/2013/10/why-some-diseases-are-wronged.html