[elpa] externals/eev 4b2e5aa 18/64: Added eev-codings.el, started to convert files to UTF-8

[Stefan Monnier]

branch: externals/eev
commit 4b2e5aa5b9f0e5344c0aafd3ba2963f762377565
Author: Eduardo Ochs <address@hidden>
Commit: Eduardo Ochs <address@hidden>

    Added eev-codings.el, started to convert files to UTF-8
---
 ChangeLog      | 10 ++++++++
 VERSION        |  4 ++--
 eev-anchors.el | 36 +++++++---------------------
 eev-codings.el | 76 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 eev2-all.el    |  1 +
 5 files changed, 97 insertions(+), 30 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 4d15863..7db4315 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2018-05-16  Eduardo Ochs  <address@hidden>
+
+       * eev-codings.el (ee-to-coding,ee-tolatin1): new file, with these
+       two functions plus comments.
+
+       * eev-anchors.el (ee-to-coding,ee-tolatin1): moved to
+       eev-codings.el.
+
+       * eev2-all.el: load eev-codings.el.
+
 2018-01-05  Eduardo Ochs  <address@hidden>
 
        * eev-blinks.el (ee-eejump-symbols): add a test for `fboundp'.
diff --git a/VERSION b/VERSION
index 429c51d..bee9842 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Qua Mai 16 03:31:56 GMT 2018
-Qua Mai 16 00:31:56 -03 2018
+Qua Mai 16 04:40:40 GMT 2018
+Qua Mai 16 01:40:40 -03 2018
diff --git a/eev-anchors.el b/eev-anchors.el
index ab963b1..26f9b3c 100644
--- a/eev-anchors.el
+++ b/eev-anchors.el
@@ -1,6 +1,6 @@
 ;;; eev-anchors.el -- hyperlinks to anchors.
 
-;; Copyright (C) 2012 Free Software Foundation, Inc.
+;; Copyright (C) 2012,2018 Free Software Foundation, Inc.
 ;;
 ;; This file is (not yet?) part of GNU eev.
 ;;
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2012nov02
+;; Version:    2018mai16
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-anchors.el>
@@ -32,10 +32,14 @@
 
 ;;; Commentary:
 
+;; See the tutorial on anchors here:
+;;   (find-eev-quick-intro "8. Anchors")
+
 
 
 
 (require 'eepitch)             ; (find-eev "eepitch.el")
+(require 'eev-codings)         ; (find-eev "eev-codings.el")
 
                 
 
@@ -64,31 +68,6 @@
 
 
 
-;;;                  _        _       _   _       _ 
-;;;   ___  ___      | |_ ___ | | __ _| |_(_)_ __ / |
-;;;  / _ \/ _ \_____| __/ _ \| |/ _` | __| | '_ \| |
-;;; |  __/  __/_____| || (_) | | (_| | |_| | | | | |
-;;;  \___|\___|      \__\___/|_|\__,_|\__|_|_| |_|_|
-;;;                                                 
-;; 2017jul29: this is a low-level hack to allow anchors like "�tag�"
-;; to work on both unibyte and multibyte buffers and files without
-;; requiring the user to set the variable `ee-anchor-format' in the
-;; local variables section.
-
-(defun ee-to-coding (coding str)
-  (ee-no-properties (decode-coding-string str coding)))
-
-(defun ee-tolatin1 (str)
-  "Make STR compatible with both unibyte and multibyte buffers.
-Convert STR to a multibyte format that works in both
-unibyte (raw-text) and multibyte (e.g., utf-8) buffers. This may
-fail if STR contains chars that are not in the latin-1 range.
-This function is used by `ee-format-as-anchor'."
-  (ee-to-coding 'latin-1 str))
-
-
-
-
 ;;;                   _                      __                            _   
 ;;;   __ _ _ __   ___| |__   ___  _ __      / _| ___  _ __ _ __ ___   __ _| |_ 
 ;;;  / _` | '_ \ / __| '_ \ / _ \| '__|____| |_ / _ \| '__| '_ ` _ \ / _` | __|
@@ -117,7 +96,8 @@ This function is used by `ee-format-as-anchor'."
 ;;; |  _| | | | | (_| |_____| (_| | | | | (__| | | | (_) | |   
 ;;; |_| |_|_| |_|\__,_|      \__,_|_| |_|\___|_| |_|\___/|_|   
 ;;;                                                            
-;; See: (find-eval-intro "Anchors and pages")
+;; See: (find-eev-quick-intro "8. Anchors")
+;;      (find-eval-intro "Anchors and pages")
 
 (defun ee-goto-anchor (&optional tag &rest rest)
   "Like `ee-goto-position', but TAG is converted to an anchor.
diff --git a/eev-codings.el b/eev-codings.el
new file mode 100644
index 0000000..ee13a5c
--- /dev/null
+++ b/eev-codings.el
@@ -0,0 +1,76 @@
+;;; eev-codings.el -- tricks to support both the UTF8 coding system and unibyte
+
+;; Copyright (C) 2018 Free Software Foundation, Inc.
+;;
+;; This file is (not yet?) 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 <address@hidden>
+;; Maintainer: Eduardo Ochs <address@hidden>
+;; Version:    2018mai16
+;; Keywords:   e-scripts
+;;
+;; Latest version: <http://angg.twu.net/eev-current/eev-coding.el>
+;;       htmlized: <http://angg.twu.net/eev-current/eev-coding.el.html>
+;;       See also: <http://angg.twu.net/eev-intros/find-eev-intro.html>
+
+;;; Commentary:
+
+;; Until mid-2017 a user who wanted to use anchors (like "«tag»") in
+;; both unibyte and multibyte buffers had to put something like this
+;;
+;;   ee-anchor-format:  "«%s»"
+;;
+;; in the local variables section at the end of (at least some) of his
+;; files; the functions defined here make the local variables section
+;; trick unneccessary - `ee-format-as-anchor' now uses `ee-tolatin1'
+;; to produce a search string that works both unibyte, on UTF-8, on
+;; latin-1 files and some (most?) other encodings.
+
+
+
+;;;                  _        _       _   _       _ 
+;;;   ___  ___      | |_ ___ | | __ _| |_(_)_ __ / |
+;;;  / _ \/ _ \_____| __/ _ \| |/ _` | __| | '_ \| |
+;;; |  __/  __/_____| || (_) | | (_| | |_| | | | | |
+;;;  \___|\___|      \__\___/|_|\__,_|\__|_|_| |_|_|
+;;;                                                 
+;; Original comment:
+;;
+;; 2017jul29: this is a low-level hack to allow anchors like "«tag»"
+;; to work on both unibyte and multibyte buffers and files without
+;; requiring the user to set the variable `ee-anchor-format' in the
+;; local variables section.
+
+(defun ee-to-coding (coding str)
+  (ee-no-properties (decode-coding-string str coding)))
+
+(defun ee-tolatin1 (str)
+  "Make STR compatible with both unibyte and multibyte buffers.
+Convert STR to a multibyte format that works in both
+unibyte (raw-text) and multibyte (e.g., utf-8) buffers. This may
+fail if STR contains chars that are not in the latin-1 range.
+This function is used by `ee-format-as-anchor'."
+  (ee-to-coding 'latin-1 str))
+
+
+
+(provide 'eev-codings)
+
+
+
+;; Local Variables:
+;; coding: utf-8-unix
+;; End:
diff --git a/eev2-all.el b/eev2-all.el
index f4624cd..1935b2d 100644
--- a/eev2-all.el
+++ b/eev2-all.el
@@ -70,6 +70,7 @@
 (require 'eev-brxxx)          ; (find-eev "eev-brxxx.el")
 (require 'eev-pdflike)        ; (find-eev "eev-pdflike.el")
 (require 'eev-audiovideo)      ; (find-eev "eev-audiovideo.el")
+(require 'eev-codings)        ; (find-eev "eev-codings.el")
 (require 'eev-anchors)        ; (find-eev "eev-anchors.el")
 
 ;; User stuff.