branch: externals/do-at-point
commit b79ba137f8d3bba0bcfe537b4eaa5ea9275045f9
Author: Philip Kaludercic <[email protected]>
Commit: Philip Kaludercic <[email protected]>
Add support for Iedit package if installed
---
do-at-point.el | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/do-at-point.el b/do-at-point.el
index e6663e894a..a98d7963d0 100644
--- a/do-at-point.el
+++ b/do-at-point.el
@@ -1,6 +1,6 @@
;;; do-at-point.el --- Generic context-sensitive action dispatcher. -*-
lexical-binding: t; -*-
-;; Copyright (C) 2023, 2024, 2025 Free Software Foundation, Inc.
+;; Copyright (C) 2023, 2024, 2025, 2026 Free Software Foundation, Inc.
;; Author: Philip Kaludercic <[email protected]>
;; Maintainer: Philip Kaludercic <[email protected]>
@@ -134,7 +134,12 @@ of this variable.")
(let ((str (delete-and-extract-region start end)))
(insert-for-yank (current-kill 0))
(kill-new str t))))
- (?\C-? "Delete" ,#'delete-region))
+ (?\C-? "Delete" ,#'delete-region)
+ ,@(and (fboundp 'iedit-mode)
+ `((?i "Iedit" ,(lambda (start end)
+ (set-mark start)
+ (goto-char end)
+ (funcall-interactively 'iedit-mode))))))
(email
(?m "Compose message" ,(lambda (to) (compose-mail to))))
(existing-filename
