branch: externals/eev
commit c17103af666187ce3ff5292dd34be73b38c116f3
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
New file: eev-aliases.el.
---
VERSION | 4 ++--
eev-aliases.el | 59 ++++++++++++++++++++++++++++++++++++++++++++++++
eev-kl-here.el | 15 ++++++++----
eev-load.el | 6 +++--
eev-strange-functions.el | 10 ++++----
5 files changed, 80 insertions(+), 14 deletions(-)
diff --git a/VERSION b/VERSION
index c369b5ef64..f67671e0be 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon Feb 19 00:58:46 GMT 2024
-Sun Feb 18 21:58:46 -03 2024
+Mon Feb 19 13:27:58 GMT 2024
+Mon Feb 19 10:27:58 -03 2024
diff --git a/eev-aliases.el b/eev-aliases.el
new file mode 100644
index 0000000000..9d1d4c9f88
--- /dev/null
+++ b/eev-aliases.el
@@ -0,0 +1,59 @@
+;;; eev-aliases.el -- aliases that don't start with the standard prefixes. -*-
lexical-binding: nil; -*-
+
+;; Copyright (C) 2024 Free Software Foundation, Inc.
+;;
+;; This file is part of GNU eev.
+;;
+;; GNU eev is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; GNU eev is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;;
+;; Author: Eduardo Ochs <eduardoo...@gmail.com>
+;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
+;; Version: 20240219
+;; Keywords: e-scripts
+;;
+;; Latest version: <http://anggtwu.net/eev-current/eev-aliases.el>
+;; htmlized: <http://anggtwu.net/eev-current/eev-aliases.el.html>
+;; See also: <http://anggtwu.net/eev-current/eev-beginner.el.html>
+;; <http://anggtwu.net/eev-intros/find-kla-intro.html>
+;; (find-kla-intro)
+
+;;; Comment:
+
+;;
+
+;; «.1stclassvideos» (to "1stclassvideos")
+
+
+
+;; «1stclassvideos» (to ".1stclassvideos")
+;; From: (find-eev "eev-tlinks.el" "1c")
+(defalias '1c 'find-1stclassvideos)
+(defalias '1cl 'find-1stclassvideo-links)
+
+;; From: (find-eev "eev-kl-here.el" "aliases")
+
+;; From: (find-eev "eev-kla.el" "aliases")
+
+;; From: (find-templates-intro "4. Adding meat")
+
+
+
+
+
+(provide 'eev-aliases)
+
+;; Local Variables:
+;; coding: utf-8-unix
+;; no-byte-compile: t
+;; End:
diff --git a/eev-kl-here.el b/eev-kl-here.el
index 2fc2e8b09d..91908f43f2 100644
--- a/eev-kl-here.el
+++ b/eev-kl-here.el
@@ -1,6 +1,6 @@
;;; eev-kl-here.el -- Kill link to here. -*- lexical-binding: nil; -*-
-;; Copyright (C) 2023 Free Software Foundation, Inc.
+;; Copyright (C) 2023-2024 Free Software Foundation, Inc.
;;
;; This file is part of GNU eev.
;;
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20231229
+;; Version: 20240219
;; Keywords: e-scripts
;;
;; Latest version: <http://anggtwu.net/eev-current/eev-kl-here.el>
@@ -245,7 +245,7 @@
;; (find-eev "eev-kla.el" "kill-sexps")
;; (find-eev "eev-kla.el" "aliases")
-(defun kl (&optional arg)
+(defun eekl (&optional arg)
"<K>ill <L>ink to here. Tries to be smart."
(interactive "P")
(ee-detect-linki)
@@ -253,7 +253,7 @@
(find-kl-debug-links 'kl)
(ee-kl-kill (ee-get-linki))))
-(defun kll (&optional arg)
+(defun eekll (&optional arg)
"<K>ill <L>ink to here; add a <L>ine. Tries to be smart."
(interactive "P")
(ee-detect-linki)
@@ -261,7 +261,7 @@
(find-kl-debug-links 'kl)
(ee-kl-kill (append (ee-get-linki) (list (ee-kl-line))))))
-(defun kls (&optional arg)
+(defun eekls (&optional arg)
"<K>ill <L>ink to here; add a <S>tring. Tries to be smart."
(interactive "P")
(ee-detect-linki)
@@ -324,6 +324,11 @@
;; «aliases» (to ".aliases")
;; See: (find-kla-intro "4. Aliases")
;; This is temporary!
+
+(defalias 'kl 'eekl
+(defalias 'kll 'eekll
+(defalias 'kls 'eekls
+
(defalias 'kla 'eekla)
(defalias 'kla0 'eekla0)
(defalias 'klas 'eeklas)
diff --git a/eev-load.el b/eev-load.el
index fe5dc2b67c..af9ef211fe 100644
--- a/eev-load.el
+++ b/eev-load.el
@@ -1,7 +1,7 @@
;;; eev-load.el -- load all the main modules of eev. -*- lexical-binding:
nil; -*-
;;; This can also be used as an index to the main source files.
-;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
+;; Copyright (C) 2019-2024 Free Software Foundation, Inc.
;;
;; This file is part of GNU eev.
;;
@@ -20,7 +20,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20240218
+;; Version: 20240219
;; Keywords: e-scripts
;;
;; Supersedes: (find-eev "eev-all.el")
@@ -178,6 +178,8 @@
;; IMPORTANT: Since 2019mar05 these files are no longer loaded by
;; default! Note the "'" at the beginning of each line!
+' (require 'eev-aliases) ; (find-eev "eev-aliases.el")
+
;; Make `M-x eev-beginner' work in the "expert setups" too.
;; See: (find-efunctiondescr 'autoload "If FUNCTION is already defined")
diff --git a/eev-strange-functions.el b/eev-strange-functions.el
index fa93dcc068..48e5af3757 100644
--- a/eev-strange-functions.el
+++ b/eev-strange-functions.el
@@ -1,6 +1,6 @@
;;; eev-strange-functions.el -- Support for functions defined in strange ways.
-*- lexical-binding: nil; -*-
-;; Copyright (C) 2022-2024 Free Software Foundation, Inc.
+;; Copyright (C) 2024 Free Software Foundation, Inc.
;;
;; This file is part of GNU eev.
;;
@@ -45,12 +45,12 @@
;; (ee-Qrest '(:ka (2 3)))
;; See: (find-efunction 'ee-S)
-(defun ee-Qp (obj)
- "Return t is OBJ is constant, i.e., if it doesn't need a \"'\"."
- (or (numberp obj) (stringp obj) (eq obj nil) (eq obj t) (keywordp obj)))
+(defun ee-needs-quote (obj)
+ "Return t when OBJ needs a \"'\"."
+ (not (or (numberp obj) (stringp obj) (eq obj nil) (eq obj t) (keywordp
obj))))
(defun ee-Q (obj)
- (if (ee-Qp obj) (ee-S obj) (format "'%s" (ee-S obj))))
+ (if (ee-needs-quote obj) (format "'%s" (ee-S obj)) (ee-S obj)))
(defun ee-Qrest (rest)
(mapconcat (lambda (obj) (format " %s" (ee-Q obj))) rest ""))
