[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev ccc1cf4090: Now `M-e' uses `ee-goto-eol'.
From: |
ELPA Syncer |
Subject: |
[elpa] externals/eev ccc1cf4090: Now `M-e' uses `ee-goto-eol'. |
Date: |
Sun, 20 Mar 2022 02:57:27 -0400 (EDT) |
branch: externals/eev
commit ccc1cf40907dfc608c86d42b3d1449d6c933ad65
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>
Now `M-e' uses `ee-goto-eol'.
---
ChangeLog | 7 +++++++
VERSION | 4 ++--
eev-code.el | 4 ++--
eev-eval.el | 15 ++++++++++++---
eev-tlinks.el | 2 +-
5 files changed, 24 insertions(+), 8 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 13c0518e27..5db41f924f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
+2022-03-20 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-eval.el (ee-goto-eol): new function.
+ (ee-eval-sexp-eol): use `ee-goto-eol'.
+
2022-03-18 Eduardo Ochs <eduardoochs@gmail.com>
+ * eev-code.el (ee-find-grep): use `find-dbsw-call'.
+
* eev-helpful.el: new file.
* eev-elinks.el (find-evariable-links): added a link to helpful.
diff --git a/VERSION b/VERSION
index a0bac3155d..ceb71189ec 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Mar 18 20:41:41 GMT 2022
-Fri Mar 18 17:41:41 -03 2022
+Sun Mar 20 06:19:58 GMT 2022
+Sun Mar 20 03:19:58 -03 2022
diff --git a/eev-code.el b/eev-code.el
index f034c5758b..db85b1ee83 100644
--- a/eev-code.el
+++ b/eev-code.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 20220309
+;; Version: 20220318
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-code.el>
@@ -294,7 +294,7 @@ Try this: (find-code-c-d \"CODE\" \"/DIR/\" :info \"INFO\")"
"Example: (ee-find-grep ee-eetcdir \"grep -niH -e tetris *\")
Note: the POS-SPEC-LIST arguments are currently not used."
(let ((default-directory (ee-expand (or dir default-directory))))
- (grep grep-command-args)))
+ (find-dbsw-call `(grep ,grep-command-args))))
(defun ee-find-xxxsh (dir command &rest pos-spec-list)
"Run COMMAND at DIR and display the result. See `code-c-d'."
diff --git a/eev-eval.el b/eev-eval.el
index 61810fa6ad..3fb5aa54c7 100644
--- a/eev-eval.el
+++ b/eev-eval.el
@@ -1,6 +1,6 @@
;;; eev-eval.el -- variants of eval-last-sexp. -*- lexical-binding: nil; -*-
-;; Copyright (C) 2012-2019 Free Software Foundation, Inc.
+;; Copyright (C) 2012-2022 Free Software Foundation, Inc.
;;
;; This file is part of GNU eev.
;;
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 20210813
+;; Version: 20220320
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-eval.el>
@@ -226,10 +226,19 @@ The listing above shows the default behaviors. To add a
special
behavior for, say, ARG=42, define a function
`ee-eval-last-sexp-42'."
(interactive "P")
- (end-of-line)
+ (ee-goto-eol)
(ee-eval-last-sexp arg))
+(defun ee-goto-eol ()
+ "Go to the end of the line.
+Replace this function by something more complex if you use modes
+that put timestamps at the end of the line and you want to make
+`M-e' ignore these timestamps."
+ (interactive)
+ (end-of-line))
+
+
;; See: (find-eval-intro "`M-E' (meta-shift-e)")
;;
(defun ee-eval-last-sexp (&optional arg)
diff --git a/eev-tlinks.el b/eev-tlinks.el
index f3cf5bc86f..49093ab72a 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -2749,7 +2749,7 @@ This function is used by `ee-0x0-upload-region'."
;; (find-estring (ee-find-1stclassvideo-links "foo"))
;;
(defun find-1stclassvideo-links (&optional c &rest pos-spec-list)
-"Visit a temporary buffer containing stuff for a first-class video."
+"Visit a temporary buffer containing links about a first-class video."
(interactive (list (ee-1stclassvideo-around-point-ask)))
(setq c (or c "{c}"))
(let* ((ee-buffer-name (or ee-buffer-name "*find-1stclassvideo-links*"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/eev ccc1cf4090: Now `M-e' uses `ee-goto-eol'.,
ELPA Syncer <=