[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev 14d1125 46/64: Converted several elisp files to utf
From: |
Stefan Monnier |
Subject: |
[elpa] externals/eev 14d1125 46/64: Converted several elisp files to utf-8. |
Date: |
Sun, 7 Apr 2019 16:59:11 -0400 (EDT) |
branch: externals/eev
commit 14d11250013b9953f1383f6ca89c2eb77ef5f99e
Author: Eduardo Ochs <address@hidden>
Commit: Eduardo Ochs <address@hidden>
Converted several elisp files to utf-8.
---
ChangeLog | 32 ++++++++
VERSION | 4 +-
eev-anchors.el | 13 ++--
eev-audiovideo.el | 5 +-
eev-blinks.el | 84 +++++++++++----------
eev-brxxx.el | 24 +++---
eev-code.el | 23 +++---
eev-edit.el | 24 +++---
eev-elinks.el | 82 ++++++++++-----------
eev-env.el | 7 +-
eev-eval.el | 7 +-
eev-intro.el | 214 +++++++++++++++++++++++++++---------------------------
eev-mode.el | 16 ++--
eev-pdflike.el | 64 ++++++++--------
eev-plinks.el | 29 ++++----
eev-prepared.el | 7 +-
eev-tlinks.el | 86 +++++++++++-----------
eev-wrap.el | 24 +++---
18 files changed, 383 insertions(+), 362 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 7679660..ce4c797 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,37 @@
2019-03-02 Eduardo Ochs <address@hidden>
+ * eev-anchors.el: converted to utf-8.
+
+ * eev-audiovideo.el: converted to utf-8.
+
+ * eev-blinks.el: converted to utf-8.
+
+ * eev-brxxx.el: converted to utf-8.
+
+ * eev-code.el: converted to utf-8.
+
+ * eev-edit.el: converted to utf-8.
+
+ * eev-elinks.el: converted to utf-8.
+
+ * eev-env.el: converted to utf-8.
+
+ * eev-eval.el: converted to utf-8.
+
+ * eev-intro.el: converted to utf-8.
+
+ * eev-mode.el: converted to utf-8.
+
+ * eev-pdflike.el: converted to utf-8.
+
+ * eev-plinks.el: converted to utf-8.
+
+ * eev-prepared.el: converted to utf-8.
+
+ * eev-tlinks.el: converted to utf-8.
+
+ * eev-wrap.el: converted to utf-8.
+
* eev-edit.el: moved all keybindings to eev-mode.el.
* eev-tlinks.el (find-eev-update-links): marked as obsolete.
diff --git a/VERSION b/VERSION
index 32cf28d..6c0c1d2 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sat Mar 2 08:17:00 GMT 2019
-Sat Mar 2 05:17:00 -03 2019
+Sat Mar 2 16:16:53 GMT 2019
+Sat Mar 2 13:16:53 -03 2019
diff --git a/eev-anchors.el b/eev-anchors.el
index 26f9b3c..cd5d1ae 100644
--- a/eev-anchors.el
+++ b/eev-anchors.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <address@hidden>
;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version: 2018mai16
+;; Version: 2019mar02
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-anchors.el>
@@ -59,8 +59,8 @@
(t (:bold t)))
"Face used for the green glyphs (`<<' and `>>', chars 171 and 187).")
-;; (eepitch-set-glyph ?� ?� 'eev-glyph-face-green)
-;; (eepitch-set-glyph ?� ?� 'eev-glyph-face-green)
+;; (eepitch-set-glyph ?« ?« 'eev-glyph-face-green)
+;; (eepitch-set-glyph ?» ?» 'eev-glyph-face-green)
(eepitch-set-glyph 171 171 'eev-glyph-face-green)
(eepitch-set-glyph 187 187 'eev-glyph-face-green)
@@ -75,7 +75,7 @@
;;; \__,_|_| |_|\___|_| |_|\___/|_| |_| \___/|_| |_| |_| |_|\__,_|\__|
;;;
-(defvar ee-anchor-format "�%s�" "See `ee-goto-anchor'.")
+(defvar ee-anchor-format "«%s»" "See `ee-goto-anchor'.")
(put 'ee-anchor-format 'safe-local-variable 'stringp)
;; A paranoid setting would be:
@@ -164,8 +164,7 @@ See `ee-goto-anchor'."
;; Local Variables:
-;; coding: raw-text-unix
-;; ee-anchor-format: "�%s�"
-;; ee-anchor-format: "defun %s "
+;; coding: utf-8-unix
+;; ee-anchor-format: "«%s»"
;; no-byte-compile: t
;; End:
diff --git a/eev-audiovideo.el b/eev-audiovideo.el
index b4932a2..b861540 100644
--- a/eev-audiovideo.el
+++ b/eev-audiovideo.el
@@ -340,8 +340,7 @@ See: (find-audiovideo-intro \"`eev-avadj-mode'\")"
;; Local Variables:
-;; coding: raw-text-unix
-;; ee-anchor-format: "�%s�"
-;; ee-anchor-format: "defun %s "
+;; coding: utf-8-unix
+;; ee-anchor-format: "«%s»"
;; no-byte-compile: t
;; End:
diff --git a/eev-blinks.el b/eev-blinks.el
index d62a5df..d0b3226 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -23,7 +23,7 @@
;;
;; Author: Eduardo Ochs <address@hidden>
;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version: 2019feb27
+;; Version: 2019mar02
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -40,25 +40,25 @@
-;; �.eek� (to "eek")
-;; �.ee-goto-position� (to "ee-goto-position")
-;; �.ee-goto-rest� (to "ee-goto-rest")
-;; �.find-fline� (to "find-fline")
-;; �.find-wottb� (to "find-wottb")
-;; �.find-efaces� (to "find-efaces")
-;; �.find-ebufferandpos� (to "find-ebufferandpos")
-;; �.find-ebuffer� (to "find-ebuffer")
-;; �.find-eoutput� (to "find-eoutput")
-;; �.find-estring� (to "find-estring")
-;; �.find-sh� (to "find-sh")
-;; �.find-man� (to "find-man")
-;; �.find-w3m� (to "find-w3m")
-;; �.find-Package� (to "find-Package")
-;; �.find-epp� (to "find-epp")
-;; �.find-einternals� (to "find-einternals")
-;; �.find-einsert� (to "find-einsert")
-;; �.find-eunicode� (to "find-eunicode")
-;; �.find-eejumps� (to "find-eejumps")
+;; «.eek» (to "eek")
+;; «.ee-goto-position» (to "ee-goto-position")
+;; «.ee-goto-rest» (to "ee-goto-rest")
+;; «.find-fline» (to "find-fline")
+;; «.find-wottb» (to "find-wottb")
+;; «.find-efaces» (to "find-efaces")
+;; «.find-ebufferandpos» (to "find-ebufferandpos")
+;; «.find-ebuffer» (to "find-ebuffer")
+;; «.find-eoutput» (to "find-eoutput")
+;; «.find-estring» (to "find-estring")
+;; «.find-sh» (to "find-sh")
+;; «.find-man» (to "find-man")
+;; «.find-w3m» (to "find-w3m")
+;; «.find-Package» (to "find-Package")
+;; «.find-epp» (to "find-epp")
+;; «.find-einternals» (to "find-einternals")
+;; «.find-einsert» (to "find-einsert")
+;; «.find-eunicode» (to "find-eunicode")
+;; «.find-eejumps» (to "find-eejumps")
@@ -94,7 +94,7 @@
;;; | __/ __/ <
;;; \___|\___|_|\_\
;;;
-;; �eek� (to ".eek")
+;; «eek» (to ".eek")
;; See: (find-eev-quick-intro "3. Elisp hyperlinks" "eek")
(defun eek (str) (interactive "sKeys: ")
@@ -112,7 +112,7 @@ An example: (eek \"C-x 4 C-h\")"
;;; | .__/ \___/|___/ |___/ .__/ \___|\___| |_|_|___/\__|___/
;;; |_| |_|
;;;
-;; �ee-goto-position� (to ".ee-goto-position")
+;; «ee-goto-position» (to ".ee-goto-position")
;; Support for pos-spec-lists in hyperlinks.
;; See: (find-eval-intro "6. Refining hyperlinks")
@@ -146,7 +146,7 @@ they skip the first \"absolute\" pos-spec."
(t (error "This is not a valid pos-spec: %S" pos-spec)))
(if rest (ee-goto-rest rest))))
-;; �ee-goto-rest� (to ".ee-goto-rest")
+;; «ee-goto-rest» (to ".ee-goto-rest")
;; See: (find-eval-intro "7. Pos-spec-lists")
;;
(defun ee-goto-rest (list)
@@ -187,7 +187,7 @@ the standard definition."
;;; | _| | | | | (_| |_____| | | | (_) | (_| | __/
;;; |_| |_|_| |_|\__,_| |_| |_|\___/ \__,_|\___|
;;;
-;; �find-fline� (to ".find-fline")
+;; «find-fline» (to ".find-fline")
;; Basic links: `find-fline' and `find-node'.
;; See: (find-eev-quick-intro "3. Elisp hyperlinks")
;; (find-eev-quick-intro "9.2. Extra arguments to `code-c-d'" ":gz")
@@ -232,7 +232,7 @@ Examples:\n
;;; | _| | | | | (_| |_____\ V V / (_) | |_| |_| |_) |
;;; |_| |_|_| |_|\__,_| \_/\_/ \___/ \__|\__|_.__/
;;;
-;; �find-wottb� (to ".find-wottb")
+;; «find-wottb» (to ".find-wottb")
;; Hyperlinks to the output of Emacs's help-like functions.
(defun find-wottb-call (sexp bufname &rest pos-spec-list)
@@ -333,7 +333,7 @@ then go to the position specified by POS-SPEC-LIST.\n
;;; | _| (_| | (_| __/\__ \
;;; |_| \__,_|\___\___||___/
;;;
-;; �find-efaces� (to ".find-efaces")
+;; «find-efaces» (to ".find-efaces")
;; Inspect faces, colors and characters.
;; Most of these use `find-wottb-call'.
;; Tests:
@@ -396,7 +396,7 @@ inspecting text proprties."
;;; | _| | | | | (_| |____| __/ _| |_| | | | | (__| |_| | (_) | | | |
;;; |_| |_|_| |_|\__,_| \___|_| \__,_|_| |_|\___|\__|_|\___/|_| |_|
;;;
-;; �find-ebufferandpos� (to ".find-ebufferandpos")
+;; «find-ebufferandpos» (to ".find-ebufferandpos")
;; Hyperlinks to the source code of Emacs functions and variables.
;; Tests:
;; (find-efunction 'next-line)
@@ -455,7 +455,7 @@ support a POS-SPEC-LIST like this function does."
;;; | _| | | | | (_| |_____| __/ |_) | |_| | _| _| __/ |
;;; |_| |_|_| |_|\__,_| \___|_.__/ \__,_|_| |_| \___|_|
;;;
-;; �find-ebuffer� (to ".find-ebuffer")
+;; «find-ebuffer» (to ".find-ebuffer")
;; Hyperlinks to buffers
;; Tests:
;; (find-ebuffer "*Messages*")
@@ -474,7 +474,7 @@ support a POS-SPEC-LIST like this function does."
;;; | _| | | | | (_| |_____| __/ (_) | |_| | |_| |_) | |_| | |_
;;; |_| |_|_| |_|\__,_| \___|\___/ \__,_|\__| .__/ \__,_|\__|
;;; |_|
-;; �find-eoutput� (to ".find-eoutput")
+;; «find-eoutput» (to ".find-eoutput")
;; Tests:
;; (find-estring "a\nb\nc\n")
;; (find-estring-elisp "(dotimes (i 10) (insert \"\\na\"))")
@@ -509,7 +509,7 @@ CODE argument, and process the POS-SPEC-LIST."
(goto-char (point-min)))
(apply 'ee-goto-position pos-spec-list))
-;; �find-estring� (to ".find-estring")
+;; «find-estring» (to ".find-estring")
;;
(defun find-estring (string &rest pos-spec-list)
"Visit a temporary buffer whose contents are given by STR.
@@ -565,7 +565,7 @@ The \"Local variables:\" section in the buffer is
processed."
;;; | _| | | | | (_| |_____\__ \ | | |
;;; |_| |_|_| |_|\__,_| |___/_| |_|
;;;
-;; �find-sh� (to ".find-sh")
+;; «find-sh» (to ".find-sh")
;; Hyperlinks to the output of shell commands.
;; See: (find-eev-quick-intro "3. Elisp hyperlinks" "find-sh0")
;; Tests:
@@ -614,7 +614,7 @@ This is like `find-sh' but sets the buffer's
default-directory to DIR."
;;; | _| | | | | (_| |_____| | | | | | (_| | | | |
;;; |_| |_|_| |_|\__,_| |_| |_| |_|\__,_|_| |_|
;;;
-;; �find-man� (to ".find-man")
+;; «find-man» (to ".find-man")
;; Hyperlinks to manpages.
;; Tests:
;; (find-man "1 cat")
@@ -650,7 +650,7 @@ This is like `find-sh' but sets the buffer's
default-directory to DIR."
;;; | _| | | | | (_| |_____\ V V / ___) | | | | | |
;;; |_| |_|_| |_|\__,_| \_/\_/ |____/|_| |_| |_|
;;;
-;; �find-w3m� (to ".find-w3m")
+;; «find-w3m» (to ".find-w3m")
;; Hyperlinks to webpages and files in HTML.
;; Needs this: (find-epackage 'w3m)
;; Tests: (find-w3m "http://www.emacswiki.org/")
@@ -688,7 +688,7 @@ it doesn't convert relative filenames into urls. See
;;; | (_| | __/ |_) | | (_| | | | |
;;; \__,_|\___|_.__/|_|\__,_|_| |_|
;;;
-;; �find-Package� (to ".find-Package")
+;; «find-Package» (to ".find-Package")
;; Hyperlinks to information about Debian packages.
;; Tests:
;; (find-status "bash")
@@ -738,7 +738,7 @@ This is Debian-specific. See `find-Package'."
;;; | _| | | | | (_| |____| __/ |_) | |_) |
;;; |_| |_|_| |_|\__,_| \___| .__/| .__/
;;; |_| |_|
-;; �find-epp� (to ".find-epp")
+;; «find-epp» (to ".find-epp")
;; Pretty-priting sexps.
;; "pp0" -> "pretty-print a Lisp object in a very compact way".
;; Tests:
@@ -779,7 +779,7 @@ explicitly. Try this: (progn (message \"foo\") \"bar\")"
;;; | __/ | | | | | (_| | (__\__ \ | | | | | || __/ | | | | | (_| | \__ \
;;; \___|_| |_| |_|\__,_|\___|___/ |_|_| |_|\__\___|_| |_| |_|\__,_|_|___/
;;;
-;; �find-einternals� (to ".find-einternals")
+;; «find-einternals» (to ".find-einternals")
;; Hyperlinks to other things internal to Emacs
;; Tests:
;; (find-etpat)
@@ -838,7 +838,7 @@ Examples: (find-echarsetchars 'mule-unicode-0100-24ff
\"733x\")
;;; | _| | | | | (_| |_____| __/ | | | \__ \ __/ | | |_
;;; |_| |_|_| |_|\__,_| \___|_|_| |_|___/\___|_| \__|
;;;
-;; �find-einsert� (to ".find-einsert")
+;; «find-einsert» (to ".find-einsert")
;; Test: (ee-insert "\n;; " '(?a ?z) 32 "Foo")
(defun ee-insert (&rest rest)
@@ -868,7 +868,7 @@ Example of use: (find-einsert '((32 1000) 10 (8000 12000)))"
;;; | _| | | | | (_| |_____| __/ |_| | | | | | (_| (_) | (_| | __/
;;; |_| |_|_| |_|\__,_| \___|\__,_|_| |_|_|\___\___/ \__,_|\___|
;;;
-;; �find-eunicode� (to ".find-eunicode")
+;; «find-eunicode» (to ".find-eunicode")
(defvar ee-unicode-data-file
"/usr/share/unicode/UnicodeData.txt"
@@ -899,7 +899,7 @@ Hint: install the Debian package \"unicode-data\".")
;;; |_| |_|_| |_|\__,_| \___|\___|/ |\__,_|_| |_| |_| .__/|___/
;;; |__/ |_|
;;
-;; �find-eejumps� (to ".find-eejumps")
+;; «find-eejumps» (to ".find-eejumps")
;; Display all the current eejump targets.
;; See: (find-eev-quick-intro "7.2. The list of eejump targets")
;; Try: (find-eejumps)
@@ -941,11 +941,9 @@ Hint: install the Debian package \"unicode-data\".")
-;; was: ee-anchor-format: "defun %s "
-
;; Local Variables:
-;; coding: raw-text-unix
-;; ee-anchor-format: "�%s�"
+;; coding: utf-8-unix
+;; ee-anchor-format: "«%s»"
;; no-byte-compile: t
;; End:
diff --git a/eev-brxxx.el b/eev-brxxx.el
index 8f9f55e..bf62417 100644
--- a/eev-brxxx.el
+++ b/eev-brxxx.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <address@hidden>
;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version: 2019jan29
+;; Version: 2019mar02
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-brxxx.el>
@@ -81,11 +81,11 @@
;; like to bring here.
-;; �.code-brurl� (to "code-brurl")
-;; �.ee-code-brurl-rest� (to "ee-code-brurl-rest")
-;; �.code-brfile� (to "code-brfile")
-;; �.ee-code-brfile-rest� (to "ee-code-brfile-rest")
-;; �.code-brxxxs� (to "code-brxxxs")
+;; «.code-brurl» (to "code-brurl")
+;; «.ee-code-brurl-rest» (to "ee-code-brurl-rest")
+;; «.code-brfile» (to "code-brfile")
+;; «.ee-code-brfile-rest» (to "ee-code-brfile-rest")
+;; «.code-brxxxs» (to "code-brxxxs")
@@ -168,7 +168,7 @@ This should be made smarter - file:// urls should be
returned unchanged."
;;;
;; (find-tail-call-links "brurl" "f")
-;; �code-brurl� (to ".code-brurl")
+;; «code-brurl» (to ".code-brurl")
;;
(defun code-brurl (f &rest rest)
"Define a family of brxxx functions from a function that operates on URLs"
@@ -181,7 +181,7 @@ This should be made smarter - file:// urls should be
returned unchanged."
;; {(ee-S `(find-code-brurl ',f ,@(mapcar 'ee-add-quote rest)))}
") (ee-code-brurl-rest rest)))
-;; �ee-code-brurl-rest� (to ".ee-code-brurl-rest")
+;; «ee-code-brurl-rest» (to ".ee-code-brurl-rest")
;; Support for extra arguments
;;
(defun ee-code-brurl-rest (rest)
@@ -237,7 +237,7 @@ This should be made smarter - file:// urls should be
returned unchanged."
;;;
;; (find-tail-call-links "brfile" "f")
-;; �code-brfile� (to ".code-brfile")
+;; «code-brfile» (to ".code-brfile")
;; code-brfile: top-level functions
;;
(defun code-brfile (f &rest rest)
@@ -251,7 +251,7 @@ This should be made smarter - file:// urls should be
returned unchanged."
;; {(ee-S `(find-code-brfile ',f ,@(mapcar 'ee-add-quote rest)))}
") (ee-code-brfile-rest rest)))
-;; �ee-code-brfile-rest� (to ".ee-code-brfile-rest")
+;; «ee-code-brfile-rest» (to ".ee-code-brfile-rest")
;; Support for extra arguments
;;
(defun ee-code-brfile-rest (rest)
@@ -287,7 +287,7 @@ This should be made smarter - file:// urls should be
returned unchanged."
;;; | (_| (_) | (_| | __/_____| |_) | | > < > < > <\__ \
;;; \___\___/ \__,_|\___| |_.__/|_| /_/\_\/_/\_\/_/\_\___/
;;;
-;; �code-brxxxs� (to ".code-brxxxs")
+;; «code-brxxxs» (to ".code-brxxxs")
;; See: (find-eev "eev-pdflike.el" "code-brxxxs")
;; (find-eev "eev-blinks.el" "find-w3m")
;; (find-efile "net/browse-url.el")
@@ -338,6 +338,6 @@ This should be made smarter - file:// urls should be
returned unchanged."
;; Local Variables:
-;; coding: raw-text-unix
+;; coding: utf-8-unix
;; no-byte-compile: t
;; End:
diff --git a/eev-code.el b/eev-code.el
index 0fdf2a7..8b79f3f 100644
--- a/eev-code.el
+++ b/eev-code.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <address@hidden>
;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version: 2019feb27
+;; Version: 2019mar02
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-code.el>
@@ -45,10 +45,10 @@
-;; �.alists� (to "alists")
-;; �.code-c-d-pairs� (to "code-c-d-pairs")
-;; �.code-c-d� (to "code-c-d")
-;; �.code-c-d-s� (to "code-c-d-s")
+;; «.alists» (to "alists")
+;; «.code-c-d-pairs» (to "code-c-d-pairs")
+;; «.code-c-d» (to "code-c-d")
+;; «.code-c-d-s» (to "code-c-d-s")
@@ -73,7 +73,7 @@
;;; | (_| | | \__ \ |_\__ \
;;; \__,_|_|_|___/\__|___/
;;;
-;; �alists� (to ".alists")
+;; «alists» (to ".alists")
;; A simple and flexible implementation of argument lists.
;; Inspired by: (find-node "(cl)Argument Lists")
;; (find-node "(cl)Argument Lists" "&body")
@@ -131,7 +131,7 @@ Examples: (ee-areplace '((1 . one) (2 . two) (3 . three)) 2
'foo)
;;; \___\___/ \__,_|\___| \___| \__,_| | .__/ \__,_|_|_| |___/
;;; |_|
;;
-;; �code-c-d-pairs� (to ".code-c-d-pairs")
+;; «code-c-d-pairs» (to ".code-c-d-pairs")
;; Used by: (find-eev "eev-elinks.el" "ee-code-c-d-filter")
(defvar ee-code-c-d-pairs nil
@@ -153,7 +153,7 @@ is used by some functions in \"eev-insert.el\".")
;;; | (_| (_) | (_| | __/_____| (_|_____| (_| |
;;; \___\___/ \__,_|\___| \___| \__,_|
;;;
-;; �code-c-d� (to ".code-c-d")
+;; «code-c-d» (to ".code-c-d")
;; See: (find-eev-quick-intro "9.1. `code-c-d'")
;; Try: (find-code-c-d "lua51" "~/usrc/lua-5.1.4/")
;; (find-code-c-d "lua51" "~/usrc/lua-5.1.4/" :anchor)
@@ -298,7 +298,7 @@ Note: the POS-SPEC-LIST arguments are currently not used."
;;; | (_| (_) | (_| | __/_____| (_|_____| (_| \__ \
;;; \___\___/ \__,_|\___| \___| \__,_|___/
;;;
-;; �code-c-d-s� (to ".code-c-d-s")
+;; «code-c-d-s» (to ".code-c-d-s")
;; Some default `code-c-d's (debian-centric).
(defun ee-locate-library (fname)
@@ -339,8 +339,7 @@ Note: the POS-SPEC-LIST arguments are currently not used."
;; Local Variables:
-;; coding: raw-text-unix
-;; ee-anchor-format: "defun %s "
-;; ee-anchor-format: "�%s�"
+;; coding: utf-8-unix
+;; ee-anchor-format: "«%s»"
;; no-byte-compile: t
;; End:
diff --git a/eev-edit.el b/eev-edit.el
index 3f3ba07..4f0dc62 100644
--- a/eev-edit.el
+++ b/eev-edit.el
@@ -40,11 +40,11 @@
-;; �.ee-duplicate-this-line� (to "ee-duplicate-this-line")
-;; �.ee-yank-pos-spec� (to "ee-yank-pos-spec")
-;; �.ee-shrink-hyperlink-at-eol� (to "ee-shrink-hyperlink-at-eol")
-;; �.ee-flip-psne-ness� (to "ee-flip-psne-ness")
-;; �.eewrap-vldi-list-line� (to "eewrap-vldi-list-line")
+;; «.ee-duplicate-this-line» (to "ee-duplicate-this-line")
+;; «.ee-yank-pos-spec» (to "ee-yank-pos-spec")
+;; «.ee-shrink-hyperlink-at-eol» (to "ee-shrink-hyperlink-at-eol")
+;; «.ee-flip-psne-ness» (to "ee-flip-psne-ness")
+;; «.eewrap-vldi-list-line» (to "eewrap-vldi-list-line")
@@ -56,7 +56,7 @@
;;; \__,_|\__,_| .__/|_|_|\___\__,_|\__\___|
;;; |_|
;;
-;; �ee-duplicate-this-line� (to ".ee-duplicate-this-line")
+;; «ee-duplicate-this-line» (to ".ee-duplicate-this-line")
;; (define-key eev-mode-map "\M-h\M-2" 'ee-duplicate-this-line)
(defun ee-duplicate-this-line ()
@@ -73,7 +73,7 @@
;;; \__, |\__,_|_| |_|_|\_\
;;; |___/
;;
-;; �ee-yank-pos-spec� (to ".ee-yank-pos-spec")
+;; «ee-yank-pos-spec» (to ".ee-yank-pos-spec")
;; (define-key eev-mode-map "\M-h\M-y" 'ee-yank-pos-spec)
(defun ee-yank-pos-spec ()
@@ -116,7 +116,7 @@ and you copy that hyperlink to a more permanent place."
;;; \__ \ | | | | | | | | | <
;;; |___/_| |_|_| |_|_| |_|_|\_\
;;;
-;; �ee-shrink-hyperlink-at-eol� (to ".ee-shrink-hyperlink-at-eol")
+;; «ee-shrink-hyperlink-at-eol» (to ".ee-shrink-hyperlink-at-eol")
;; (define-key eev-mode-map "\M-h\M--" 'ee-shrink-hyperlink-at-eol)
(defun ee-shrink-sexp (sexp)
@@ -148,7 +148,7 @@ and you copy that hyperlink to a more permanent place."
;;; |_| |_|_| .__/ | .__/|___/_| |_|\___|
;;; |_| |_|
;;
-;; �ee-flip-psne-ness� (to ".ee-flip-psne-ness")
+;; «ee-flip-psne-ness» (to ".ee-flip-psne-ness")
;; (define-key eev-mode-map "\M-s" 'ee-flip-psne-ness)
;; (find-eevfile "eev-insert.el" "defun ee-ill")
@@ -170,7 +170,7 @@ and you copy that hyperlink to a more permanent place."
;;; \ V /| | (_| | |_____| | \__ \ ||_____| | | | | | __/
;;; \_/ |_|\__,_|_| |_|_|___/\__| |_|_|_| |_|\___|
;;;
-;; �eewrap-vldi-list-line� (to ".eewrap-vldi-list-line")
+;; «eewrap-vldi-list-line» (to ".eewrap-vldi-list-line")
;; (define-key eev-mode-map "\M-I" 'eewrap-vldi-list-line)
;;
;; In a Debian system, for each installed package named xxxx there is
@@ -225,7 +225,7 @@ then just delete the current line."
;; Local Variables:
-;; coding: raw-text-unix
-;; ee-anchor-format: "�%s�"
+;; coding: utf-8-unix
+;; ee-anchor-format: "«%s»"
;; no-byte-compile: t
;; End:
diff --git a/eev-elinks.el b/eev-elinks.el
index ba83314..b56e1d5 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <address@hidden>
;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version: 2019feb27
+;; Version: 2019mar02
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-elinks.el>
@@ -55,27 +55,27 @@
-;; �.around-point� (to "around-point")
-;; �.find-elinks� (to "find-elinks")
-;; �.find-efunction-links� (to "find-efunction-links")
-;; �.find-evariable-links� (to "find-evariable-links")
-;; �.find-ekey-links� (to "find-ekey-links")
-;; �.find-elongkey-links� (to "find-elongkey-links")
-;; �.find-einfo-links� (to "find-einfo-links")
-;; �.find-eintro� (to "find-eintro")
+;; «.around-point» (to "around-point")
+;; «.find-elinks» (to "find-elinks")
+;; «.find-efunction-links» (to "find-efunction-links")
+;; «.find-evariable-links» (to "find-evariable-links")
+;; «.find-ekey-links» (to "find-ekey-links")
+;; «.find-elongkey-links» (to "find-elongkey-links")
+;; «.find-einfo-links» (to "find-einfo-links")
+;; «.find-eintro» (to "find-eintro")
-;; �.ee-code-c-d-pairs-eval� (to "ee-code-c-d-pairs-eval")
-;; �.ee-code-c-d-filter� (to "ee-code-c-d-filter")
-;; �.ee-find-xxxfile-sexps� (to "ee-find-xxxfile-sexps")
-;; �.find-file-links� (to "find-file-links")
-;; �.find-grep-links� (to "find-grep-links")
-;; �.find-ekbmacro-links� (to "find-ekbmacro-links")
-;; �.find-pdflike-page-links� (to "find-pdflike-page-links")
-;; �.ee-hyperlink-prefix� (to "ee-hyperlink-prefix")
-;; �.find-eface-links� (to "find-eface-links")
-;; �.find-color-links� (to "find-color-links")
+;; «.ee-code-c-d-pairs-eval» (to "ee-code-c-d-pairs-eval")
+;; «.ee-code-c-d-filter» (to "ee-code-c-d-filter")
+;; «.ee-find-xxxfile-sexps» (to "ee-find-xxxfile-sexps")
+;; «.find-file-links» (to "find-file-links")
+;; «.find-grep-links» (to "find-grep-links")
+;; «.find-ekbmacro-links» (to "find-ekbmacro-links")
+;; «.find-pdflike-page-links» (to "find-pdflike-page-links")
+;; «.ee-hyperlink-prefix» (to "ee-hyperlink-prefix")
+;; «.find-eface-links» (to "find-eface-links")
+;; «.find-color-links» (to "find-color-links")
-;; �.find-here-links� (to "find-here-links")
+;; «.find-here-links» (to "find-here-links")
@@ -90,7 +90,7 @@
;;; \__,_|_| \___/ \__,_|_| |_|\__,_| | .__/ \___/|_|_| |_|\__|
;;; |_|
;;
-;; �around-point� (to ".around-point")
+;; «around-point» (to ".around-point")
;; (find-eapropos "around-point")
;; (find-elnode "Index" "* thing-at-point:")
@@ -139,7 +139,7 @@ This function is not very smart - it doesn't understand
section names."
;;; | _| | | | | (_| |_____| __/ | | | | | <\__ \
;;; |_| |_|_| |_|\__,_| \___|_|_|_| |_|_|\_\___/
;;;
-;; �find-elinks� (to ".find-elinks")
+;; «find-elinks» (to ".find-elinks")
;; `find-elinks' is an internal function used by all functions that
;; generate buffers with hyperlinks, like `find-efunction-links', and
;; by most functions that generate buffers with hyperlinks followed by
@@ -211,7 +211,7 @@ The buffer is put in Emacs Lisp mode."
;;; | _| | | | | (_| |_____| __/ _| |_| | | | | (__| |_| | (_) | | | |
;;; |_| |_|_| |_|\__,_| \___|_| \__,_|_| |_|\___|\__|_|\___/|_| |_|
;;;
-;; �find-efunction-links� (to ".find-efunction-links")
+;; «find-efunction-links» (to ".find-efunction-links")
;; `find-efunction-links' is one of the simplest functions that
;; generate buffers with hyperlinks. It is mentioned in
;; `find-eev-quick-intro':
@@ -265,7 +265,7 @@ This is an internal function used by `find-efunction-links'
and
;;; | _| | | | | (_| |_____| __/\ V / (_| | | | | (_| | |_) | | __/
;;; |_| |_|_| |_|\__,_| \___| \_/ \__,_|_| |_|\__,_|_.__/|_|\___|
;;;
-;; �find-evariable-links� (to ".find-evariable-links")
+;; «find-evariable-links» (to ".find-evariable-links")
;; (find-find-links-links "\\M-v" "evariable" "var")
;; A test: (find-evariable-links 'line-move-visual)
;; (eek "M-h M-v line-move-visual")
@@ -299,7 +299,7 @@ This is an internal function used by `find-efunction-links'
and
;;; |_| |_|_| |_|\__,_| \___|_|\_\___|\__, |
;;; |___/
;;
-;; �find-ekey-links� (to ".find-ekey-links")
+;; «find-ekey-links» (to ".find-ekey-links")
;; (find-find-links-links "\\M-k" "ekey" "key")
;;
;; The functions in this section generate buffers with hyperlinks
@@ -385,7 +385,7 @@ See: (find-eev \"eev-elinks.el\" \"find-ekey-links\")"
)
pos-spec-list)))
-;; �find-elongkey-links� (to ".find-elongkey-links")
+;; «find-elongkey-links» (to ".find-elongkey-links")
;; Test: (find-elongkey-links "C-x 4 0")
(defun find-elongkey-links (longkey &rest pos-spec-list)
"Like `find-ekey-links', but LONGKEY is a key sequence \"spelled out\".
@@ -444,7 +444,7 @@ This is an internal function used by `find-ekey-links' and
;;; | _| | | | | (_| |_____| __/ | | | | _| (_) |
;;; |_| |_|_| |_|\__,_| \___|_|_| |_|_| \___/
;;;
-;; �find-einfo-links� (to ".find-einfo-links")
+;; «find-einfo-links» (to ".find-einfo-links")
;; Tests: (progn (find-enode "Lisp Eval") (find-einfo-links))
;; (progn (find-enode "Lisp Eval") (eek "M-h M-i"))
@@ -539,7 +539,7 @@ value of (ee-info-book-). This only works reliably for info
;;; | _| | | | | (_| |_____| __/ | | | | |_| | | (_) |
;;; |_| |_|_| |_|\__,_| \___|_|_| |_|\__|_| \___/
;;;
-;; �find-eintro� (to ".find-eintro")
+;; «find-eintro» (to ".find-eintro")
;; Test: (ee-intro-stem "*(find-eev-quick-intro)*")
(defun ee-intro-stem (&optional bufname)
@@ -598,8 +598,8 @@ a hack to let use use `M-h M-i' for both \"intro\" and
\"info\"."
;;; \___\___/ \__,_|\___| \___| \__,_| | .__/ \__,_|_|_| |___/
;;; |_|
;;
-;; �ee-code-c-d-pairs-eval� (to ".ee-code-c-d-pairs-eval")
-;; �ee-code-c-d-filter� (to ".ee-code-c-d-filter")
+;; «ee-code-c-d-pairs-eval» (to ".ee-code-c-d-pairs-eval")
+;; «ee-code-c-d-filter» (to ".ee-code-c-d-filter")
;; Each call to `(code-c-d C D)' generates an entry `(C D)' in the
;; alist `ee-code-c-d-pairs', and this is used to make
;; `(find-file-links FNAME)' list short hyperlinks to FNAME. Let's
@@ -705,7 +705,7 @@ Only eval CODE when (ee-expand D) is a prefix of (ee-expand
FNAME)."
;; (eval code)))))
;; ee-code-c-d-pairs)))
-;; �ee-find-xxxfile-sexps� (to ".ee-find-xxxfile-sexps")
+;; «ee-find-xxxfile-sexps» (to ".ee-find-xxxfile-sexps")
(defun ee-find-xxxfile-sexps (fname)
"For each (C D) in ee-code-c-d-pairs test if D is a prefix of FNAME;
when this is true remove the prefix D from FNAME, and put the sexp
@@ -731,7 +731,7 @@ when this is true remove the prefix D from FNAME, and put
the sexp
;;; | _| | | | | (_| |_____| _| | | __/_____| | | | | | <\__ \
;;; |_| |_|_| |_|\__,_| |_| |_|_|\___| |_|_|_| |_|_|\_\___/
;;;
-;; �find-file-links� (to ".find-file-links")
+;; «find-file-links» (to ".find-file-links")
;; (find-find-links-links "f" "file" "fname")
;; A test: (find-file-links "~/tmp/foo")
@@ -779,7 +779,7 @@ when this is true remove the prefix D from FNAME, and put
the sexp
;;; |_| |_|_| |_|\__,_| \__, |_| \___| .__/ |_|_|_| |_|_|\_\___/
;;; |___/ |_|
;;
-;; �find-grep-links� (to ".find-grep-links")
+;; «find-grep-links» (to ".find-grep-links")
;; (find-find-links-links "\\M-g" "grep" "")
;; Tests:
;; (ee-find-grep-commands)
@@ -839,7 +839,7 @@ when this is true remove the prefix D from FNAME, and put
the sexp
;;; | _| | | | | (_| |_____| | | | | | (_| | (__| | | (_) |
;;; |_| |_|_| |_|\__,_| |_| |_| |_|\__,_|\___|_| \___/
;;;
-;; �find-ekbmacro-links� (to ".find-ekbmacro-links")
+;; «find-ekbmacro-links» (to ".find-ekbmacro-links")
;; (find-find-links-links "M" "macro" "")
;; (find-efunction 'find-ekbmacro-links)
@@ -870,7 +870,7 @@ when this is true remove the prefix D from FNAME, and put
the sexp
;;; | .__/ \__,_|_| |_|_|_|\_\___| | .__/ \__,_|\__, |\___|
;;; |_| |_| |___/
-;; �find-pdflike-page-links� (to ".find-pdflike-page-links")
+;; «find-pdflike-page-links» (to ".find-pdflike-page-links")
;; (find-efunction 'count-lines)
;;
(defun ee-count-formfeeds (start end)
@@ -993,7 +993,7 @@ See: (find-pdf-like-intro)
;;; |_| |_|\__, | .__/ \___|_| |_|_|_| |_|_|\_\ | .__/|_| \___|_| |_/_/\_\
;;; |___/|_| |_|
;;
-;; �ee-hyperlink-prefix� (to ".ee-hyperlink-prefix")
+;; «ee-hyperlink-prefix» (to ".ee-hyperlink-prefix")
(defun ee-hyperlink-prefix ()
"A lispish interface for customizing the variable `ee-hyperlink-prefix'.
@@ -1023,7 +1023,7 @@ See the comments in the source code."
;; See: (find-links-intro)
;; (find-templates-intro)
-;; �find-eface-links� (to ".find-eface-links")
+;; «find-eface-links» (to ".find-eface-links")
;; (find-find-links-links "\\M-s" "eface" "face-symbol")
;; A test: (find-eface-links 'bold)
@@ -1066,7 +1066,7 @@ See the comments in the source code."
;;; | _| | | | | (_| |____| __/ (_| (_) | | (_) | | |____| | | | | | <\__ \
;;; |_| |_|_| |_|\__,_| \___|\___\___/|_|\___/|_| |_|_|_| |_|_|\_\___/
;;;
-;; �find-color-links� (to ".find-color-links")
+;; «find-color-links» (to ".find-color-links")
;; (find-find-links-links "c" "color" "initialcolor")
;; Tests:
;; (find-ecolor-links)
@@ -1116,7 +1116,7 @@ This needs a temporary directory; see:
(find-prepared-intro)"
;;; | _| | | | | (_| |_____| | | | __/ | | __/_____| | | | | | <\__ \
;;; |_| |_|_| |_|\__,_| |_| |_|\___|_| \___| |_|_|_| |_|_|\_\___/
;;;
-;; �find-here-links� (to ".find-here-links")
+;; «find-here-links» (to ".find-here-links")
;; See: (find-eev-quick-intro "`M-h M-h'")
;; (find-efunction 'find-grep-links)
@@ -1440,7 +1440,7 @@ Use this when point is over a manpage name and you want
links to that page."
;; Local Variables:
-;; coding: raw-text-unix
-;; ee-anchor-format: "�%s�"
+;; coding: utf-8-unix
+;; ee-anchor-format: "«%s»"
;; no-byte-compile: t
;; End:
diff --git a/eev-env.el b/eev-env.el
index c520408..7da01ff 100644
--- a/eev-env.el
+++ b/eev-env.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <address@hidden>
;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version: 2016sep18
+;; Version: 2019mar02
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-env.el>
@@ -138,8 +138,7 @@ See the source for details, examples, and tests."
;; Local Variables:
-;; coding: raw-text-unix
-;; ee-anchor-format: "�%s�"
-;; ee-anchor-format: "defun %s "
+;; coding: utf-8-unix
+;; ee-anchor-format: "«%s»"
;; no-byte-compile: t
;; End:
diff --git a/eev-eval.el b/eev-eval.el
index 7eb7743..80d0ab2 100644
--- a/eev-eval.el
+++ b/eev-eval.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <address@hidden>
;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version: 2019jan23
+;; Version: 2019mar02
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-eval.el>
@@ -216,8 +216,7 @@ See: (find-eval-intro)"
;; Local Variables:
-;; coding: raw-text-unix
-;; ee-anchor-format: "�%s�"
-;; ee-anchor-format: "defun %s "
+;; coding: utf-8-unix
+;; ee-anchor-format: "«%s»"
;; no-byte-compile: t
;; End:
diff --git a/eev-intro.el b/eev-intro.el
index f609137..ffe009e 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -56,39 +56,39 @@
;; Quick index:
-;; �.find-intro-dual� (to "find-intro-dual")
-;; �.find-eintro� (to "find-eintro")
+;; «.find-intro-dual» (to "find-intro-dual")
+;; «.find-eintro» (to "find-eintro")
;;
-;; �.find-eev-quick-intro� (to "find-eev-quick-intro")
-;; �.find-emacs-keys-intro� (to "find-emacs-keys-intro")
-;; �.find-eev-install-intro� (to "find-eev-install-intro")
-;; �.find-eev-intro� (to "find-eev-intro")
+;; «.find-eev-quick-intro» (to "find-eev-quick-intro")
+;; «.find-emacs-keys-intro» (to "find-emacs-keys-intro")
+;; «.find-eev-install-intro» (to "find-eev-install-intro")
+;; «.find-eev-intro» (to "find-eev-intro")
;;
-;; �.find-eval-intro� (to "find-eval-intro")
-;; �.find-links-conv-intro� (to "find-links-conv-intro")
-;; �.find-links-intro� (to "find-links-intro")
-;; �.find-eepitch-intro� (to "find-eepitch-intro")
-;; �.find-wrap-intro� (to "find-wrap-intro")
-;; �.find-eejump-intro� (to "find-eejump-intro")
-;; �.find-anchors-intro� (to "find-anchors-intro")
-;; �.find-code-c-d-intro� (to "find-code-c-d-intro")
-;; �.find-pdf-like-intro� (to "find-pdf-like-intro")
-;; �.find-brxxx-intro� (to "find-brxxx-intro")
-;; �.find-psne-intro� (to "find-psne-intro")
+;; «.find-eval-intro» (to "find-eval-intro")
+;; «.find-links-conv-intro» (to "find-links-conv-intro")
+;; «.find-links-intro» (to "find-links-intro")
+;; «.find-eepitch-intro» (to "find-eepitch-intro")
+;; «.find-wrap-intro» (to "find-wrap-intro")
+;; «.find-eejump-intro» (to "find-eejump-intro")
+;; «.find-anchors-intro» (to "find-anchors-intro")
+;; «.find-code-c-d-intro» (to "find-code-c-d-intro")
+;; «.find-pdf-like-intro» (to "find-pdf-like-intro")
+;; «.find-brxxx-intro» (to "find-brxxx-intro")
+;; «.find-psne-intro» (to "find-psne-intro")
;;
-;; �.find-audiovideo-intro� (to "find-audiovideo-intro")
-;; �.find-multiwindow-intro� (to "find-multiwindow-intro")
-;; �.find-rcirc-intro� (to "find-rcirc-intro")
-;; �.find-templates-intro� (to "find-templates-intro")
-;; �.find-prepared-intro� (to "find-prepared-intro")
-;; �.find-bounded-intro� (to "find-bounded-intro")
-;; �.find-channels-intro� (to "find-channels-intro")
-;; �.find-videos-intro� (to "find-videos-intro")
-
-;; �.find-defun-intro� (to "find-defun-intro")
-;; �.find-emacs-intro� (to "find-emacs-intro")
-;; �.find-org-intro� (to "find-org-intro")
-;; �.find-escripts-intro� (to "find-escripts-intro")
+;; «.find-audiovideo-intro» (to "find-audiovideo-intro")
+;; «.find-multiwindow-intro» (to "find-multiwindow-intro")
+;; «.find-rcirc-intro» (to "find-rcirc-intro")
+;; «.find-templates-intro» (to "find-templates-intro")
+;; «.find-prepared-intro» (to "find-prepared-intro")
+;; «.find-bounded-intro» (to "find-bounded-intro")
+;; «.find-channels-intro» (to "find-channels-intro")
+;; «.find-videos-intro» (to "find-videos-intro")
+
+;; «.find-defun-intro» (to "find-defun-intro")
+;; «.find-emacs-intro» (to "find-emacs-intro")
+;; «.find-org-intro» (to "find-org-intro")
+;; «.find-escripts-intro» (to "find-escripts-intro")
;; See: (find-anchors-intro)
@@ -98,7 +98,7 @@
-;; �find-intro-dual� (to ".find-intro-dual")
+;; «find-intro-dual» (to ".find-intro-dual")
;; Below is a hack that I (edrx) use to edit these intros.
;; Note that it is sort of commented out.
;;
@@ -185,7 +185,7 @@ Actually go to: (find-eev \"eev-intro.el\"
\"find-foo-intro\" (ee-last-kill))."
;;; |_| \___/|_| |_|\__|_|_| \__, |
;;; |___/
;;
-;; �find-eintro� (to ".find-eintro")
+;; «find-eintro» (to ".find-eintro")
;; 2019feb03: experimental. This is like `find-estring' but it runs
;; `ee-intro-fontify-maybe' to optionally fontify the titles;
;; `ee-intro-fontify-maybe' is similar to `Info-fontify-node'.
@@ -252,7 +252,7 @@ Actually go to: (find-eev \"eev-intro.el\"
\"find-foo-intro\" (ee-last-kill))."
;;; \___|\___| \_/ \__, |\__,_|_|\___|_|\_\ |_|_| |_|\__|_| \___/
;;; |_|
;;
-;; �find-eev-quick-intro� (to ".find-eev-quick-intro")
+;; «find-eev-quick-intro» (to ".find-eev-quick-intro")
;; (find-intro-links "eev-quick")
(defun find-eev-quick-intro (&rest pos-spec-list) (interactive)
@@ -1007,24 +1007,24 @@ A hyperlink like
(to \"foo\")
-jumps to the first occurrence of the string \"�foo�\" in the
-current buffer. The function that wraps a string in `��'s is
+jumps to the first occurrence of the string \"«foo»\" in the
+current buffer. The function that wraps a string in `«»'s is
called `ee-format-as-anchor', and the sexp `(to \"foo\")'
is equivalent the second sexp below:
(ee-format-as-anchor \"foo\")
(ee-goto-position (ee-format-as-anchor \"foo\"))
-We will call strings in `��'s _anchors_, and we will say
+We will call strings in `«»'s _anchors_, and we will say
that `(to \"foo\")' jumps \"to the anchor `foo'\". The string
-inside a `��'s is called a _tag_.
+inside a `«»'s is called a _tag_.
In a situation like this,
- �one� (to \"two\")
- �two� (to \"three\")
- �three� (to \"four\")
- �four� (to \"one\")
+ «one» (to \"two\")
+ «two» (to \"three\")
+ «three» (to \"four\")
+ «four» (to \"one\")
we have four anchors, and typing `M-e' at the line with the
anchor \"one\" takes us to the line with the anchor \"two\",
@@ -1037,8 +1037,8 @@ this we say that the anchors \"one\", \"two\", \"three\",
and
In a case like this,
- �.five� (to \"five\")
- �five� (to \".five\")
+ «.five» (to \"five\")
+ «five» (to \".five\")
where the names of two anchors pointing to one another differ by
an initial dot, we will say that the anchor \".five\" is the
@@ -1052,7 +1052,7 @@ all the index anchors together. For an example, see:
8.2. Creating anchors by hand
-----------------------------
-One way to type the chars `�' and `�' is with `C-x 8 <' and
+One way to type the chars `«' and `»' is with `C-x 8 <' and
`C-x 8 >'. Try:
(eek \"RET C-x 8 < t a g C-x 8 >\")
@@ -1107,10 +1107,10 @@ one. For example, `M-A' in the line below
yields this:
- # �.first-test� (to \"first-test\")
- # �first-test� (to \".first-test\")
+ # «.first-test» (to \"first-test\")
+ # «first-test» (to \".first-test\")
-The line with the anchor \"�.first-test�\" is intended to be
+The line with the anchor \"«.first-test»\" is intended to be
moved - by hand, with cut and paste - to the index section at the
beginning of the file, as explained here:
@@ -1136,10 +1136,10 @@ it becomes this - the header of an \"e-script block\":
#
#####
-# �.second-test� (to \"second-test\")
-# �second-test� (to \".second-test\")
+# «.second-test» (to \"second-test\")
+# «second-test» (to \".second-test\")
-where again the line with the anchor \"�.second-test�\" is
+where again the line with the anchor \"«.second-test»\" is
intended to be moved to the index section at the beginning of the
file. The use of these \"e-script blocks\" is explained bere:
@@ -1156,7 +1156,7 @@ hyperlinks are all equivalent:
(find-anchor \"~/eev2/eev-blinks.el\" \"find-wottb\")
(find-anchor \"~/eev2/eev-blinks.el\" (ee-format-as-anchor \"find-wottb\"))
- (find-fline \"~/eev2/eev-blinks.el\" \"�find-wottb�\")
+ (find-fline \"~/eev2/eev-blinks.el\" \"«find-wottb»\")
You can use this - or the shorter hyperlinks to anchors in
section 9.3 - to point to anchors or to e-script blocks in your
@@ -1177,7 +1177,7 @@ Sexps like
(find-eevfile \"\")
(find-eevfile \"eev-blinks.el\")
- (find-eevfile \"eev-blinks.el\" \"�find-sh�\")
+ (find-eevfile \"eev-blinks.el\" \"«find-sh»\")
(find-udfile \"\")
(find-udfile \"lua5.1-doc/\")
(find-udfile \"lua5.1-doc/test/\")
@@ -1188,7 +1188,7 @@ work as abbreviations for
(find-fline \"~/eev2/\")
(find-fline \"~/eev2/eev-blinks.el\")
- (find-fline \"~/eev2/eev-blinks.el\" \"�find-sh�\")
+ (find-fline \"~/eev2/eev-blinks.el\" \"«find-sh»\")
(find-fline \"/usr/share/doc/\")
(find-fline \"/usr/share/doc/lua5.1-doc/\")
(find-fline \"/usr/share/doc/lua5.1-doc/test/\")
@@ -1269,7 +1269,7 @@ and that code
if the file \"files.el\" is not found,
3) makes (find-eev \"eev-blinks.el\" \"find-wottb\")
- run: (find-eevfile \"eev-blinks.el\" \"�find-wottb�\")
+ run: (find-eevfile \"eev-blinks.el\" \"«find-wottb»\")
or actually: (find-anchor (ee-eevfile \"eev-blinks.el\") \"find-wottb\")
Calls to `find-eev' are \"short hyperlinks to anchors\":
@@ -1462,7 +1462,7 @@ that will run something similar to:
;;; \___|_| |_| |_|\__,_|\___|___/ |_|\_\___|\__, |___/
;;; |___/
;;
-;; �find-emacs-keys-intro� (to ".find-emacs-keys-intro")
+;; «find-emacs-keys-intro» (to ".find-emacs-keys-intro")
;; (find-intro-links "emacs-keys")
(defun find-emacs-keys-intro (&rest pos-spec-list) (interactive)
@@ -1633,7 +1633,7 @@ M-B -- eewrap-escript-block
(find-eev-quick-intro \"`M-B'\")
;;; |_|_| |_|___/\__\__,_|_|_|
;;;
-;; �find-eev-install-intro� (to ".find-eev-install-intro")
+;; «find-eev-install-intro» (to ".find-eev-install-intro")
;; (find-intro-links "eev-install")
(defun find-eev-install-intro (&rest pos-spec-list) (interactive)
@@ -1790,7 +1790,7 @@ If you want to change these statistics, send me a \"hi\"!
;;;
;; This works as an index.
;; (find-intro-links "eev")
-;; �find-eev-intro� (to ".find-eev-intro")
+;; «find-eev-intro» (to ".find-eev-intro")
(defun find-eev-intro (&rest rest) (interactive)
(let ((ee-buffer-name "*(find-eev-intro)*"))
@@ -1905,7 +1905,7 @@ For the full lists of keybindings, see:
;;; | __/\ V / (_| | |
;;; \___| \_/ \__,_|_|
;;;
-;; �find-eval-intro� (to ".find-eval-intro")
+;; «find-eval-intro» (to ".find-eval-intro")
;; (find-intro-links "eval")
;; (find-TH "eev-article" "hyperlinks")
;; http://angg.twu.net/eev-article.html#hyperlinks
@@ -2295,7 +2295,7 @@ hyperlinks in scripts]
;;; | | | | | | <\__ \_____| (_| (_) | | | \ V / __/ | | | |_| | (_) | | |
\__ \
;;; |_|_|_| |_|_|\_\___/ \___\___/|_| |_|\_/ \___|_| |_|\__|_|\___/|_|
|_|___/
;;;
-;; �find-links-conv-intro� (to ".find-links-conv-intro")
+;; «find-links-conv-intro» (to ".find-links-conv-intro")
;; (find-intro-links "links-conv")
(defun find-links-conv-intro (&rest pos-spec-list) (interactive)
@@ -2751,7 +2751,7 @@ be expanded later:
;;; |_|_|_| |_|_|\_\___/
;;;
;; (find-intro-links "links")
-;; �find-links-intro� (to ".find-links-intro")
+;; «find-links-intro» (to ".find-links-intro")
(defun find-links-intro (&rest rest) (interactive)
(let ((ee-buffer-name "*(find-links-intro)*"))
@@ -3110,7 +3110,7 @@ scripts etc\]
;;; \___|\___| .__/|_|\__\___|_| |_|
;;; |_|
;;
-;; �find-eepitch-intro� (to ".find-eepitch-intro")
+;; «find-eepitch-intro» (to ".find-eepitch-intro")
;; (find-intro-links "eepitch")
;; (find-eev "eepitch.readme")
@@ -3348,7 +3348,7 @@ What functions can generate target buffers:
;;; |_|
;;
;; (find-intro-links "wrap")
-;; �find-wrap-intro� (to ".find-wrap-intro")
+;; «find-wrap-intro» (to ".find-wrap-intro")
(defun find-wrap-intro (&rest rest) (interactive)
(let ((ee-buffer-name "*(find-wrap-intro)*"))
@@ -3581,7 +3581,7 @@ kinds of scripts.
;; (find-TH "emacs" "eejump")
;; http://angg.twu.net/emacs.html#eejump
;; file:///home/edrx/TH/L/emacs.html#eejump
-;; �find-eejump-intro� (to ".find-eejump-intro")
+;; «find-eejump-intro» (to ".find-eejump-intro")
(defun find-eejump-intro (&rest rest) (interactive)
(let ((ee-buffer-name "*(find-eejump-intro)*"))
@@ -3870,7 +3870,7 @@ then you'll be attributing just a \"temporary\" meaning to
;;; | (_| | | | | (__| | | | (_) | | \__ \
;;; \__,_|_| |_|\___|_| |_|\___/|_| |___/
;;;
-;; �find-anchors-intro� (to ".find-anchors-intro")
+;; «find-anchors-intro» (to ".find-anchors-intro")
;; (find-intro-links "anchors")
(defun find-anchors-intro (&rest rest) (interactive)
@@ -3898,8 +3898,8 @@ A hyperlink like
(to \"foo\")
-jumps to the first occurrence of the string \"�foo�\" in the
-current buffer. The way to convert from \"foo\" to \"�foo�\" is
+jumps to the first occurrence of the string \"«foo»\" in the
+current buffer. The way to convert from \"foo\" to \"«foo»\" is
controlled by the variable `ee-anchor-format', and the sexp
`(to \"foo\")' is roughly equivalent the third sexp below:
@@ -3907,7 +3907,7 @@ controlled by the variable `ee-anchor-format', and the
sexp
(format ee-anchor-format \"foo\")
(ee-goto-position (format ee-anchor-format \"foo\"))
-We will call strings in `��'s _anchors_, and we will say
+We will call strings in `«»'s _anchors_, and we will say
that `(to \"foo\")' jumps \"to the anchor `foo'\".
Anchors can be used to create sections and indexes, as we shall
@@ -3925,18 +3925,18 @@ eepitch, as described here:
(find-eepitch-intro \"\\nRed stars\\n\")
-For historical reasons, the glyphs for `�' and `�' defined in
+For historical reasons, the glyphs for `«' and `»' defined in
(find-eev \"eev-anchors.el\")
use the characters 171 and 187; as far as I know, these
characters are only \"safe\" - in the sense that Emacs will not
try to convert them to anything else - in unibyte buffers. The
-best way to make sure that anchors with `��'s will work in a
+best way to make sure that anchors with `«»'s will work in a
certain file is to put a \"Local variables:\" section at the end
of it, as has been done in this buffer - and use that to set both
the file coding to raw-text-unix and the value of
-`ee-anchor-format' to \"�%s�\".
+`ee-anchor-format' to \"«%s»\".
Note that if you change a \"Local variables:\" section by hand
you will probably have to either reload the file or run `M-x
@@ -3948,8 +3948,8 @@ Indexes
=======
In a situation like this,
- �one� (to \"two\")
- �two� (to \"one\")
+ «one» (to \"two\")
+ «two» (to \"one\")
we have two anchors, and typing `M-e' at the line with the anchor
\"one\" takes us to the line with the anchor \"two\", and typing
@@ -3959,8 +3959,8 @@ anchors \"one\" and \"two\" _point to one another_.
In a case like this,
- �.three� (to \"three\")
- �three� (to \".three\")
+ «.three» (to \"three\")
+ «three» (to \".three\")
where the names of two anchors pointing to one another differ by
an initial dot, we will say that the anchor \".three\" is the
@@ -3986,12 +3986,12 @@ It will convert a line with a syntax like
into:
- comment-prefix �.anchor-name� (to \"anchor-name\")
- comment-prefix �anchor-name� (to \".anchor-name\")
+ comment-prefix «.anchor-name» (to \"anchor-name\")
+ comment-prefix «anchor-name» (to \".anchor-name\")
where comment-prefix is any string and anchor-name is a string
without `<>'s. Note that the `<>'s, which are easy to type, are
-converted into `��'s, which are harder.
+converted into `«»'s, which are harder.
@@ -4017,7 +4017,7 @@ code-c-d and :anchor
;;; | (_| (_) | (_| | __/_____| (_|_____| (_| |
;;; \___\___/ \__,_|\___| \___| \__,_|
;;;
-;; �find-code-c-d-intro� (to ".find-code-c-d-intro")
+;; «find-code-c-d-intro» (to ".find-code-c-d-intro")
(defun find-code-c-d-intro (&rest rest) (interactive)
(let ((ee-buffer-name "*(find-code-c-d-intro)*"))
@@ -4188,7 +4188,7 @@ Try: (find-code-pdf \"CODE\" \"FILE.pdf\")
;;; | .__/ \__,_|_| |_|_|_|\_\___|
;;; |_|
;;
-;; �find-pdf-like-intro� (to ".find-pdf-like-intro")
+;; «find-pdf-like-intro» (to ".find-pdf-like-intro")
(defun find-pdf-like-intro (&rest rest) (interactive)
(let ((ee-buffer-name "*(find-pdf-like-intro)*"))
@@ -4542,7 +4542,7 @@ macros are VERY useful; if you don't use them yet, see:
;;; | |_) | | > < > < > <
;;; |_.__/|_| /_/\_\/_/\_\/_/\_\
;;;
-;; �find-brxxx-intro� (to ".find-brxxx-intro")
+;; «find-brxxx-intro» (to ".find-brxxx-intro")
(defun find-brxxx-intro (&rest rest) (interactive)
(let ((ee-buffer-name "*(find-brxxx-intro)*"))
@@ -4762,7 +4762,7 @@ In dired mode each line corresponds to a file
;;; | .__/|___/_| |_|\___|
;;; |_|
;;
-;; �find-psne-intro� (to ".find-psne-intro")
+;; «find-psne-intro» (to ".find-psne-intro")
;; (find-TH "eev-article" "local-copies")
;; (find-angg ".emacs" "brep")
;; (find-eev "eev-browse-url.el" "find-psne-links")
@@ -4960,7 +4960,7 @@ The details on how to create these \"brxxx functions\"
are here:
;;; | (_| | |_| | (_| | | (_) / / \ V /| | (_| | __/ (_) |
;;; \__,_|\__,_|\__,_|_|\___/_/ \_/ |_|\__,_|\___|\___/
;;;
-;; �find-audiovideo-intro� (to ".find-audiovideo-intro")
+;; «find-audiovideo-intro» (to ".find-audiovideo-intro")
;; (find-intro-links "audiovideo")
(defun find-audiovideo-intro (&rest pos-spec-list) (interactive)
@@ -5389,7 +5389,7 @@ Create short links
;;; | | | | | | |_| | | |_| |\ V V /| | | | | (_| | (_) \ V V /
;;; |_| |_| |_|\__,_|_|\__|_| \_/\_/ |_|_| |_|\__,_|\___/ \_/\_/
;;;
-;; �find-multiwindow-intro� (to ".find-multiwindow-intro")
+;; «find-multiwindow-intro» (to ".find-multiwindow-intro")
;; (find-intro-links "multiwindow")
(defun find-multiwindow-intro (&rest pos-spec-list) (interactive)
@@ -5823,7 +5823,7 @@ Here:
;;; | | | (__| | | | (__
;;; |_| \___|_|_| \___|
;;;
-;; �find-rcirc-intro� (to ".find-rcirc-intro")
+;; «find-rcirc-intro» (to ".find-rcirc-intro")
;; (find-intro-links "rcirc")
(defun find-rcirc-intro (&rest pos-spec-list) (interactive)
@@ -5972,7 +5972,7 @@ For more information see:
;;; \__\___|_| |_| |_| .__/|_|\__,_|\__\___||___/
;;; |_|
;;
-;; �find-templates-intro� (to ".find-templates-intro")
+;; «find-templates-intro» (to ".find-templates-intro")
;; (find-intro-links "templates")
(defun find-templates-intro (&rest rest) (interactive)
@@ -6102,7 +6102,7 @@ Experiments
;;; | .__/|_| \___| .__/ \__,_|_| \___|\__,_|
;;; |_| |_|
;;
-;; �find-prepared-intro� (to ".find-prepared-intro")
+;; «find-prepared-intro» (to ".find-prepared-intro")
;; (find-eev "eev-bounded.el")
(defun find-prepared-intro (&rest rest) (interactive)
@@ -6332,7 +6332,7 @@ But try these:
;;; | |_) | (_) | |_| | | | | (_| | __/ (_| |
;;; |_.__/ \___/ \__,_|_| |_|\__,_|\___|\__,_|
;;;
-;; �find-bounded-intro� (to ".find-bounded-intro")
+;; «find-bounded-intro» (to ".find-bounded-intro")
;; (find-intro-links "bounded")
(defun find-bounded-intro (&rest pos-spec-list) (interactive)
(let ((ee-buffer-name "*(find-bounded-intro)*"))
@@ -6425,7 +6425,7 @@ so you should do something like this, but for your
favourite key:
;;; | (__| | | | (_| | | | | | | | __/ \__ \
;;; \___|_| |_|\__,_|_| |_|_| |_|\___|_|___/
;;;
-;; �find-channels-intro� (to ".find-channels-intro")
+;; «find-channels-intro» (to ".find-channels-intro")
;; (find-intro-links "channels")
(defun find-channels-intro (&rest pos-spec-list) (interactive)
@@ -6823,7 +6823,7 @@ How to set it up
;;; \ V /| | (_| | __/ (_) \__ \
;;; \_/ |_|\__,_|\___|\___/|___/
;;;
-;; �find-videos-intro� (to ".find-videos-intro")
+;; «find-videos-intro» (to ".find-videos-intro")
;; (find-intro-links "videos")
(defun find-videos-intro (&rest pos-spec-list) (interactive)
@@ -7123,7 +7123,7 @@ use this sexp to help you:
;;; | (_| | __/ _| |_| | | | |
;;; \__,_|\___|_| \__,_|_| |_|
;;;
-;; �find-defun-intro� (to ".find-defun-intro")
+;; «find-defun-intro» (to ".find-defun-intro")
;; (find-intro-links "defun")
(defun find-defun-intro (&rest rest) (interactive)
@@ -7347,7 +7347,7 @@ returns nil. But just as
;;; | __/ | | | | | (_| | (__\__ \_____| | | | | |_| | | (_) |
;;; \___|_| |_| |_|\__,_|\___|___/ |_|_| |_|\__|_| \___/
;;;
-;; �find-emacs-intro� (to ".find-emacs-intro")
+;; «find-emacs-intro» (to ".find-emacs-intro")
;; (find-intro-links "emacs")
(defun find-emacs-intro (&rest rest) (interactive)
@@ -7541,7 +7541,7 @@ C-x e -- call-last-kbd-macro (find-enode
\"Keyboard Macros\")
-;; �find-org-intro� (to ".find-org-intro")
+;; «find-org-intro» (to ".find-org-intro")
;; (find-intro-links "org")
(defun find-org-intro (&rest pos-spec-list) (interactive)
@@ -7614,7 +7614,7 @@ http://www.youtube.com/watch?v=oJTwQvgfgMM Emacs Org-mode
- a system for note-ta
;;; \___| |___/\___|_| |_| .__/ \__|___/
;;; |_|
-;; �find-escripts-intro� (to ".find-escripts-intro")
+;; «find-escripts-intro» (to ".find-escripts-intro")
;; (find-intro-links "escripts")
(defun find-escripts-intro (&rest pos-spec-list) (interactive)
@@ -7830,8 +7830,8 @@ reviewed in the subsections below.
--snip, snip--
# Index:
- # �.lua5.1-debian� (to \"lua5.1-debian\")
- # �.lua-tutorial� (to \"lua-tutorial\")
+ # «.lua5.1-debian» (to \"lua5.1-debian\")
+ # «.lua-tutorial» (to \"lua-tutorial\")
@@ -7842,7 +7842,7 @@ reviewed in the subsections below.
#
#####
- # �lua5.1-debian� (to \".lua5.1-debian\")
+ # «lua5.1-debian» (to \".lua5.1-debian\")
# (find-status \"lua5.1\")
# (find-vldifile \"lua5.1.list\")
# (find-udfile \"lua5.1/\")
@@ -7870,7 +7870,7 @@ reviewed in the subsections below.
#
#####
- # �lua-tutorial� (to \".lua-tutorial\")
+ # «lua-tutorial» (to \".lua-tutorial\")
# http://angg.twu.net/e/lua-intro.e.html
# http://angg.twu.net/e/lua-intro.e
@@ -7894,8 +7894,8 @@ reviewed in the subsections below.
---------------------
The two lines below
- # �.foo� (to \"foo\")
- # �foo� (to \".foo\")
+ # «.foo» (to \"foo\")
+ # «foo» (to \".foo\")
\"point to one another\". This is explained here:
@@ -7904,21 +7904,21 @@ The two lines below
We used this in Example 1 to create an index. Compare with:
# Index:
- # �.one� (to \"one\")
- # �.two� (to \"two\")
+ # «.one» (to \"one\")
+ # «.two» (to \"two\")
###
## Stuff in block \"one\"
###
- # �one� (to \".one\")
+ # «one» (to \".one\")
(...)
###
## Stuff in block \"two\"
###
- # �two� (to \".two\")
+ # «two» (to \".two\")
@@ -8077,8 +8077,8 @@ Typing `M-A' on this line:
yields this pair of anchor-to lines:
- # �.bletch� (to \"bletch\")
- # �bletch� (to \".bletch\")
+ # «.bletch» (to \"bletch\")
+ # «bletch» (to \".bletch\")
let's call the first one a \"to-forward\" and the second one a
\"to-back\". In my e-scripts files I follow the convention that
@@ -8240,7 +8240,7 @@ This can also be used to generate links to info nodes.
;; Local Variables:
-;; coding: raw-text-unix
-;; ee-anchor-format: "�%s�"
+;; coding: utf-8-unix
+;; ee-anchor-format: "«%s»"
;; no-byte-compile: t
;; End:
diff --git a/eev-mode.el b/eev-mode.el
index 79caa92..a3f7ad4 100644
--- a/eev-mode.el
+++ b/eev-mode.el
@@ -37,9 +37,9 @@
;; here:
;; (find-eev "eev-mode.el" "when-not-eev-mode-map")
-;; �.eev-mode-map-set� (to "eev-mode-map-set")
-;; �.when-not-eev-mode-map� (to "when-not-eev-mode-map")
-;; �.eev-mode� (to "eev-mode")
+;; «.eev-mode-map-set» (to "eev-mode-map-set")
+;; «.when-not-eev-mode-map» (to "when-not-eev-mode-map")
+;; «.eev-mode» (to "eev-mode")
@@ -63,7 +63,7 @@ and: (find-eval-intro \"`M-k'\")"
;;; |_|\_\___|\__, |_| |_| |_|\__,_| .__/
;;; |___/ |_|
;;;
-;; �eev-mode-map-set� (to ".eev-mode-map-set")
+;; «eev-mode-map-set» (to ".eev-mode-map-set")
(defvar eev-mode-map nil)
@@ -156,7 +156,7 @@ and: (find-eval-intro \"`M-k'\")"
)
-;; �when-not-eev-mode-map� (to ".when-not-eev-mode-map")
+;; «when-not-eev-mode-map» (to ".when-not-eev-mode-map")
;; Now we run the function `eev-mode-map-set' above, but we only do
;; that if the variable `eev-mode-map' holds nil:
;;
@@ -190,7 +190,7 @@ and: (find-eval-intro \"`M-k'\")"
;;; | __/ __/\ V /_____| | | | | | (_) | (_| | __/
;;; \___|\___| \_/ |_| |_| |_|\___/ \__,_|\___|
;;;
-;; �eev-mode� (to ".eev-mode")
+;; «eev-mode» (to ".eev-mode")
;; This defines `eev-mode'. Turning on eev-mode simply activates the
;; eev-mode-map keymap, and adds an "eev" to the mode line to remind
;; you this.
@@ -314,7 +314,7 @@ Other commands:
;; Local Variables:
-;; coding: raw-text-unix
-;; ee-anchor-format: "�%s�"
+;; coding: utf-8-unix
+;; ee-anchor-format: "«%s»"
;; no-byte-compile: t
;; End:
diff --git a/eev-pdflike.el b/eev-pdflike.el
index 516aeb3..8e193c4 100644
--- a/eev-pdflike.el
+++ b/eev-pdflike.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <address@hidden>
;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version: 2019jan29
+;; Version: 2019mar02
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-pdflike.el>
@@ -112,24 +112,24 @@
-;; �.ee-goto-position-page� (to "ee-goto-position-page")
-;; �.find-sh-page� (to "find-sh-page")
-;; �.code-xxxpdf-family� (to "code-xxxpdf-family")
-;; �.code-xxxpdftext-family� (to "code-xxxpdftext-family")
-;; �.code-xxxpdf-alias� (to "code-xxxpdf-alias")
+;; «.ee-goto-position-page» (to "ee-goto-position-page")
+;; «.find-sh-page» (to "find-sh-page")
+;; «.code-xxxpdf-family» (to "code-xxxpdf-family")
+;; «.code-xxxpdftext-family» (to "code-xxxpdftext-family")
+;; «.code-xxxpdf-alias» (to "code-xxxpdf-alias")
;;
-;; �.find-xpdf-page� (to "find-xpdf-page")
-;; �.find-pdf-page� (to "find-pdf-page")
-;; �.find-pdf-text� (to "find-pdf-text")
+;; «.find-xpdf-page» (to "find-xpdf-page")
+;; «.find-pdf-page» (to "find-pdf-page")
+;; «.find-pdf-text» (to "find-pdf-text")
;;
-;; �.find-xdvi-page� (to "find-xdvi-page")
-;; �.find-djview-page� (to "find-djview-page")
-;; �.find-evince-page� (to "find-evince-page")
-;; �.find-gv-page� (to "find-gv-page")
-;; �.find-djvutxt-text� (to "find-djvutxt-text")
+;; «.find-xdvi-page» (to "find-xdvi-page")
+;; «.find-djview-page» (to "find-djview-page")
+;; «.find-evince-page» (to "find-evince-page")
+;; «.find-gv-page» (to "find-gv-page")
+;; «.find-djvutxt-text» (to "find-djvutxt-text")
;;
-;; �.aliases� (to "aliases")
-;; �.code-brxxxs� (to "code-brxxxs")
+;; «.aliases» (to "aliases")
+;; «.code-brxxxs» (to "code-brxxxs")
(require 'eev-brxxx) ; (find-eev "eev-brxxx.el")
@@ -157,7 +157,7 @@
;;; |_| |_|_| |_|\__,_| |___/_| |_| | .__/ \__,_|\__, |\___|
;;; |_| |___/
;;
-;; �ee-goto-position-page� (to ".ee-goto-position-page")
+;; «ee-goto-position-page» (to ".ee-goto-position-page")
(defun ee-goto-position-page (&optional pos-spec &rest rest)
"Like `ee-goto-position', but interpreting a number as a page number.
\(Note that POS-SPEC is only interpreted as a page if it is a number.)"
@@ -173,7 +173,7 @@
(t (error "This is not a valid pos-spec: %S" pos-spec)))
(if rest (ee-goto-rest rest))))
-;; �find-sh-page� (to ".find-sh-page")
+;; «find-sh-page» (to ".find-sh-page")
(defun find-sh-page (command &rest pos-spec-list)
"Like `find-sh', but interpreting the car of POS-SPEC-LIST as a page."
(interactive "sShell command: ")
@@ -191,7 +191,7 @@
;;; | | | | | | __/ || (_| |_____| || (_) | (_) | \__ \
;;; |_| |_| |_|\___|\__\__,_| \__\___/ \___/|_|___/
;;;
-;; �code-xxxpdf-family� (to ".code-xxxpdf-family")
+;; «code-xxxpdf-family» (to ".code-xxxpdf-family")
;; Test: (find-code-xxxpdf-family "XPDFPAGE")
;;
(defun code-xxxpdf-family (xxxpdf)
@@ -220,7 +220,7 @@
\"))
"))
-;; �code-xxxpdftext-family� (to ".code-xxxpdftext-family")
+;; «code-xxxpdftext-family» (to ".code-xxxpdftext-family")
;; Tests: (find-code-xxxpdftext-family "XPDFTEXT")
;;
(defun code-xxxpdftext-family (xxxpdf)
@@ -255,7 +255,7 @@
\"))
"))
-;; �code-xxxpdf-alias� (to ".code-xxxpdf-alias")
+;; «code-xxxpdf-alias» (to ".code-xxxpdf-alias")
;; Test: (find-code-xxxpdf-alias "pdfpage" "xpdf-page")
;;
(defun code-xxxpdf-alias (xxxpdfnew xxxpdfold)
@@ -285,7 +285,7 @@
;;; |_| |_|_| |_|\__,_| /_/\_\ .__/ \__,_|_| | .__/ \__,_|\__, |\___|
;;; |_| |_| |___/
;;
-;; �find-xpdf-page� (to ".find-xpdf-page")
+;; «find-xpdf-page» (to ".find-xpdf-page")
;; (find-pdflikedef-links "xpdf" "c fname")
;; (find-code-xxxpdf-family "xpdf-page")
(code-xxxpdf-family "xpdf-page")
@@ -307,7 +307,7 @@
;;; |_| |_|_| |_|\__,_| | .__/ \__,_|_| | .__/ \__,_|\__, |\___|
;;; |_| |_| |___/
;;
-;; �find-pdf-page� (to ".find-pdf-page")
+;; «find-pdf-page» (to ".find-pdf-page")
;; (find-code-xxxpdf-alias "pdf-page" "xpdf-page")
(code-xxxpdf-alias "pdf-page" "xpdf-page")
@@ -319,7 +319,7 @@
;;; |_| |_|_| |_|\__,_| | .__/ \__,_|_| \__\___/_/\_\\__|
;;; |_|
;;
-;; �find-pdf-text� (to ".find-pdf-text")
+;; «find-pdf-text» (to ".find-pdf-text")
;; (find-code-xxxpdftext-family "pdf-text")
(code-xxxpdftext-family "pdf-text")
@@ -343,7 +343,7 @@
;;; \___/ \__|_| |_|\___|_| | .__/|_| \___/ \__, |___/
;;; |_| |___/
;;
-;; �find-xdvi-page� (to ".find-xdvi-page")
+;; «find-xdvi-page» (to ".find-xdvi-page")
;; (find-code-xxxpdf-family "xdvi-page")
(code-xxxpdf-family "xdvi-page")
@@ -355,7 +355,7 @@
,fname))
-;; �find-djview-page� (to ".find-djview-page")
+;; «find-djview-page» (to ".find-djview-page")
;; (find-code-xxxpdf-family "djview-page")
(code-xxxpdf-family "djview-page")
@@ -381,7 +381,7 @@ file it will go to the page 234 OVERRIDING THE ARGUMENT
may want to put here code that cleans up that page information.")
-;; �find-evince-page� (to ".find-evince-page")
+;; «find-evince-page» (to ".find-evince-page")
;; (find-code-xxxpdf-family "evince-page")
(code-xxxpdf-family "evince-page")
@@ -396,7 +396,7 @@ may want to put here code that cleans up that page
information.")
,fname))
-;; �find-gv-page� (to ".find-gv-page")
+;; «find-gv-page» (to ".find-gv-page")
;; (find-code-xxxpdf-family "gv-page")
(code-xxxpdf-family "gv-page")
@@ -408,7 +408,7 @@ may want to put here code that cleans up that page
information.")
,fname))
-;; �find-djvutxt-text� (to ".find-djvutxt-text")
+;; «find-djvutxt-text» (to ".find-djvutxt-text")
;; (find-code-xxxpdftext-family "djvutxt-text")
(code-xxxpdftext-family "djvutxt-text")
@@ -423,7 +423,7 @@ may want to put here code that cleans up that page
information.")
;;; / ___ \| | | (_| \__ \ __/\__ \
;;; /_/ \_\_|_|\__,_|___/\___||___/
;;;
-;; �aliases� (to ".aliases")
+;; «aliases» (to ".aliases")
;; For compatibility the with previous versions - that were a mess.
;; At some point these aliases will all be commented out, and if you
;; depend on them what you I suggest you to do is:
@@ -461,7 +461,7 @@ may want to put here code that cleans up that page
information.")
;; (find-code-xxxpdf-alias "evince" "evince-page")
-;; �code-brxxxs� (to ".code-brxxxs")
+;; «code-brxxxs» (to ".code-brxxxs")
(code-brfile 'find-pdf-text :local 'brpdftextl :dired 'brpdftextd)
(code-brfile 'find-djvu-text :local 'brdjvutextl :dired 'brdjvutextd)
@@ -479,6 +479,6 @@ may want to put here code that cleans up that page
information.")
;; Local Variables:
-;; coding: raw-text-unix
+;; coding: utf-8-unix
;; no-byte-compile: t
;; End:
diff --git a/eev-plinks.el b/eev-plinks.el
index a81ec41..6222b3e 100644
--- a/eev-plinks.el
+++ b/eev-plinks.el
@@ -93,10 +93,10 @@
;; `find-sh' shows it in a temporary buffer instead of in the acho
;; area.
-;; �.find-bgprocess� (to "find-bgprocess")
-;; �.find-callprocess� (to "find-callprocess")
-;; �.find-callprocessregion� (to "find-callprocessregion")
-;; �.find-comintprocess� (to "find-comintprocess")
+;; «.find-bgprocess» (to "find-bgprocess")
+;; «.find-callprocess» (to "find-callprocess")
+;; «.find-callprocessregion» (to "find-callprocessregion")
+;; «.find-comintprocess» (to "find-comintprocess")
@@ -111,8 +111,8 @@
;; (find-eev "eev-brxxx.el")
-;; �.find-wget� (to "find-wget")
-;; �.find-gitk� (to "find-gitk")
+;; «.find-wget» (to "find-wget")
+;; «.find-gitk» (to "find-gitk")
@@ -153,7 +153,7 @@
;;; |_.__/ \__, | .__/|_| \___/ \___\___||___/___/
;;; |___/|_|
;;
-;; �find-bgprocess� (to ".find-bgprocess")
+;; «find-bgprocess» (to ".find-bgprocess")
;;
(defun find-bgprocess-ne (program-and-args)
(let ((argv (ee-split program-and-args)))
@@ -171,7 +171,7 @@
;;; \___\__,_|_|_| .__/|_| \___/ \___\___||___/___/
;;; |_|
;;
-;; �find-callprocess� (to ".find-callprocess")
+;; «find-callprocess» (to ".find-callprocess")
;;
(defun find-callprocess00-ne (program-and-args)
(let ((argv (ee-split program-and-args)))
@@ -210,7 +210,7 @@
;;; | .__/|_| \___/ \___\___||___/___/_| \___|\__, |_|\___/|_| |_|
;;; |_| |___/
;;
-;; �find-callprocessregion� (to ".find-callprocessregion")
+;; «find-callprocessregion» (to ".find-callprocessregion")
;; Use this when program-and-args expects input from stdin.
;; Note: Code salvaged from a very old version of eev.
;; To do: write examples and test cases for this.
@@ -237,7 +237,7 @@
;;; | (_| (_) | | | | | | | | | | |_
;;; \___\___/|_| |_| |_|_|_| |_|\__|
;;;
-;; �find-comintprocess� (to ".find-comintprocess")
+;; «find-comintprocess» (to ".find-comintprocess")
;; `find-comintprocess-ne' and `find-comintprocess' are defined in
;; eepitch.el. See:
;; (find-eevfile "eepitch.el" "defun find-comintprocess-ne ")
@@ -246,7 +246,7 @@
-;; �find-wget� (to ".find-wget")
+;; «find-wget» (to ".find-wget")
;;
(defun find-wget00 (url)
(find-callprocess00 `("wget" "-q" "-O" "-" ,url)))
@@ -260,7 +260,7 @@
-;; �find-gitk� (to ".find-gitk")
+;; «find-gitk» (to ".find-gitk")
;; Example: (find-eev-install-intro "find-gitk")
;;
(defun find-gitk (dir)
@@ -277,8 +277,7 @@
;; Local Variables:
-;; coding: raw-text-unix
-;; ee-anchor-format: "defun %s "
-;; ee-anchor-format: "�%s�"
+;; coding: utf-8-unix
+;; ee-anchor-format: "«%s»"
;; no-byte-compile: t
;; End:
diff --git a/eev-prepared.el b/eev-prepared.el
index 4e3d145..bdf77f4 100644
--- a/eev-prepared.el
+++ b/eev-prepared.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <address@hidden>
;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version: 2012nov02
+;; Version: 2019mar02
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-prepared.el>
@@ -249,8 +249,7 @@ See `eev' for more about $EE and the temporary script file."
;; Local Variables:
-;; coding: raw-text-unix
-;; ee-anchor-format: "�%s�"
-;; ee-anchor-format: "defun %s "
+;; coding: utf-8-unix
+;; ee-anchor-format: "«%s»"
;; no-byte-compile: t
;; End:
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 295d82f..bda5d74 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -20,7 +20,7 @@
;;
;; Author: Eduardo Ochs <address@hidden>
;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version: 2019feb22
+;; Version: 2019mar02
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -48,28 +48,28 @@
-;; �.ee-copy-rest� (to "ee-copy-rest")
+;; «.ee-copy-rest» (to "ee-copy-rest")
;;
-;; �.find-find-links-links� (to "find-find-links-links")
-;; �.find-intro-links� (to "find-intro-links")
-;; �.find-pdflikedef-links� (to "find-pdflikedef-links")
-;; �.find-eev-header-links� (to "find-eev-header-links")
+;; «.find-find-links-links» (to "find-find-links-links")
+;; «.find-intro-links» (to "find-intro-links")
+;; «.find-pdflikedef-links» (to "find-pdflikedef-links")
+;; «.find-eev-header-links» (to "find-eev-header-links")
;;
-;; �.find-debpkg-links� (to "find-debpkg-links")
-;; �.find-eev-install-links� (to "find-eev-install-links")
-;; �.find-eev-update-links� (to "find-eev-update-links")
-;; �.find-newhost-links� (to "find-newhost-links")
-;; �.find-dhmake-links� (to "find-dhmake-links")
-;; �.find-youtubedl-links� (to "find-youtubedl-links")
-;; �.find-upload-links� (to "find-upload-links")
-;; �.find-psne-links� (to "find-psne-links")
-;; �.find-git-links� (to "find-git-links")
-;; �.find-netcat-test-links� (to "find-netcat-test-links")
-;; �.find-eev-video-links� (to "find-eev-video-links")
+;; «.find-debpkg-links» (to "find-debpkg-links")
+;; «.find-eev-install-links» (to "find-eev-install-links")
+;; «.find-eev-update-links» (to "find-eev-update-links")
+;; «.find-newhost-links» (to "find-newhost-links")
+;; «.find-dhmake-links» (to "find-dhmake-links")
+;; «.find-youtubedl-links» (to "find-youtubedl-links")
+;; «.find-upload-links» (to "find-upload-links")
+;; «.find-psne-links» (to "find-psne-links")
+;; «.find-git-links» (to "find-git-links")
+;; «.find-netcat-test-links» (to "find-netcat-test-links")
+;; «.find-eev-video-links» (to "find-eev-video-links")
;;
-;; �.find-latex-links� (to "find-latex-links")
-;; �.find-lua-links� (to "find-lua-links")
-;; �.find-escreenshot-links� (to "find-escreenshot-links")
+;; «.find-latex-links» (to "find-latex-links")
+;; «.find-lua-links» (to "find-lua-links")
+;; «.find-escreenshot-links» (to "find-escreenshot-links")
@@ -84,7 +84,7 @@
;;; \___|\___| \___\___/| .__/ \__, | |_| \___||___/\__|
;;; |_| |___/
;;
-;; �ee-copy-rest� (to ".ee-copy-rest")
+;; «ee-copy-rest» (to ".ee-copy-rest")
;; Some hyperlinks buffers - for example those generated by:
;;
;; (find-latex-links)
@@ -201,7 +201,7 @@ See: (find-eev \"eev-tlinks.el\" \"ee-copy-rest\")"
;;; |_| |_|_| |_|\__,_| |_|_|_| |_|_|\_\___/ |_____|
;;;
;;
-;; �find-find-links-links� (to ".find-find-links-links")
+;; «find-find-links-links» (to ".find-find-links-links")
;; See:
;; (find-eev "eev-template.el" "find-find-links-links")
;; (find-find-links-links "u" "find-links" "k stem args")
@@ -268,7 +268,7 @@ This is an internal function used by `find-{stem}-links'.\"
;;; | | | | | |_| | | (_) |_____| | | | | | <\__ \
;;; |_|_| |_|\__|_| \___/ |_|_|_| |_|_|\_\___/
;;;
-;; �find-intro-links� (to ".find-intro-links")
+;; «find-intro-links» (to ".find-intro-links")
;; (find-find-links-links "i" "intro" "stem")
;; A test: (find-intro-links)
@@ -323,7 +323,7 @@ Hello
;;; | .__/ \__,_|_| |_|_|_|\_\___|\__,_|\___|_|
;;; |_|
;;
-;; �find-pdflikedef-links� (to ".find-pdflikedef-links")
+;; «find-pdflikedef-links» (to ".find-pdflikedef-links")
;; Obsolete! Was used in: (find-eev "eev-pdflike-old.el")
;; e.g. (find-eev "eev-pdflike-old.el" "defalias 'find-xdvipage")
;; (find-find-links-links "pdflikedef" "stem firstargs")
@@ -398,7 +398,7 @@ Hello
;;; | __/ __/\ V /_____| | | | __/ (_| | (_| | __/ |
;;; \___|\___| \_/ |_| |_|\___|\__,_|\__,_|\___|_|
;;;
-;; �find-eev-header-links� (to ".find-eev-header-links")
+;; «find-eev-header-links» (to ".find-eev-header-links")
;; (find-find-links-links "<none>" "eev-header" "stem-el date")
;; A test: (find-eev-header-links "eev-audiovideo.el")
@@ -448,7 +448,7 @@ Hello
;; Local Variables:
-;; coding: raw-text-unix
+;; coding: utf-8-unix
;; ee-anchor-format: \"defun %s \"
;; no-byte-compile: t
;; End:
@@ -464,7 +464,7 @@ Hello
;;; |_| |_|_| |_|\__,_| \__,_|\___|_.__/| .__/|_|\_\__, |
;;; |_| |___/
;;
-;; �find-debpkg-links� (to ".find-debpkg-links")
+;; «find-debpkg-links» (to ".find-debpkg-links")
(defun ee-links-for-debpkg (pkgname)
"Return the three main links for the debian package PKGNAME."
@@ -610,7 +610,7 @@ sudo dpkg -i *.deb
;;; \___|\___| \_/ |_|_| |_|___/\__\__,_|_|_|
;;;
-;; �find-eev-install-links� (to ".find-eev-install-links")
+;; «find-eev-install-links» (to ".find-eev-install-links")
;; (find-find-links-links "{k}" "eev-install" "dir script comment")
;; A test: (find-eev-install-links)
@@ -706,7 +706,7 @@ sudo dpkg -i *.deb
;;; \___|\___| \_/ \__,_| .__/ \__,_|\__,_|\__\___|
;;; |_|
;;
-;; �find-eev-update-links� (to ".find-eev-update-links")
+;; «find-eev-update-links» (to ".find-eev-update-links")
;; A test: (find-eev-update-links)
;; TODO: Check that this has been superseded by
;; (find-eev-install-links)
@@ -803,7 +803,7 @@ emacs -fg bisque -bg black eev-readme.el
;;; | | | | __/\ V V /| | | | (_) \__ \ |_
;;; |_| |_|\___| \_/\_/ |_| |_|\___/|___/\__|
;;;
-;; �find-newhost-links� (to ".find-newhost-links")
+;; «find-newhost-links» (to ".find-newhost-links")
;; Scripts to connect to a newly-installed Debian machine
;; (find-angg ".emacs.templates" "find-newhost-links")
;; (find-find-links-links "newhost" "thatmname thatip thismname thisip
thisiface")
@@ -966,7 +966,7 @@ DISPLAY={thismname}{thisdisplay} xterm -T \"address@hidden"
&
;;; | (_| | | | | | | | | | (_| | < __/
;;; \__,_|_| |_|_| |_| |_|\__,_|_|\_\___|
;;;
-;; �find-dhmake-links� (to ".find-dhmake-links")
+;; «find-dhmake-links» (to ".find-dhmake-links")
;;
;; Some templates for generating ".deb"s.
;; If you want to build a .deb for a package called, say, "foo-bar",
@@ -1166,7 +1166,7 @@ apt-ftparchive packages . \\
;;; \__, |\___/ \__,_|\__|\__,_|_.__/ \___| \__,_|_|
;;; |___/
;;
-;; �find-youtubedl-links� (to ".find-youtubedl-links")
+;; «find-youtubedl-links» (to ".find-youtubedl-links")
;; Code for splitting filenames of downloaded videos into components.
;;
@@ -1336,7 +1336,7 @@ cd {dir}
;;; | (_| | (_) \ V V /| | | | | (_) | (_| | (_| |
;;; \__,_|\___/ \_/\_/ |_| |_|_|\___/ \__,_|\__,_|
;;;
-;; �find-upload-links� (to ".find-upload-links")
+;; «find-upload-links» (to ".find-upload-links")
;; 2012jan26 - experimental hack.
;; Some of these functions use environment variables for readability
@@ -1449,7 +1449,7 @@ cp -v /tmp/{fname-} ~/{todir/}{fname}
;;; | .__/|___/_| |_|\___|
;;; |_|
;;
-;; �find-psne-links� (to ".find-psne-links")
+;; «find-psne-links» (to ".find-psne-links")
;; (find-find-links-links "<none>" "psne" "url wget-options")
;; A test: (find-psne-links "http://foo/bar")
@@ -1499,7 +1499,7 @@ echo '{url}' >> ~/.psne.log
;;; \__, |_|\__|
;;; |___/
-;; �find-git-links� (to ".find-git-links")
+;; «find-git-links» (to ".find-git-links")
;; (find-find-links-links "g" "git" "usrc/ git/ gitname")
;; (find-find-links-links "g" "git" "url c")
(define-key eev-mode-map "\M-hg" 'find-git-links-1)
@@ -1576,7 +1576,7 @@ git pull
;;; |_| |_|\___|\__\___\__,_|\__| \__\___||___/\__|
;;;
-;; �find-netcat-test-links� (to ".find-netcat-test-links")
+;; «find-netcat-test-links» (to ".find-netcat-test-links")
;; (find-find-links-links "{k}" "netcat-test" "eesrc eetgt tgtname tgtport")
;; A test: (find-netcat-test-links)
@@ -1626,7 +1626,7 @@ netcat -l -p {tgtport}
;;; | __/ __/\ V /_____\ V /| | (_| | __/ (_) |
;;; \___|\___| \_/ \_/ |_|\__,_|\___|\___/
;;;
-;; �find-eev-video-links� (to ".find-eev-video-links")
+;; «find-eev-video-links» (to ".find-eev-video-links")
;; (find-find-links-links "{k}" "eev-video" "c anggstem youtubehash")
@@ -1697,7 +1697,7 @@ echo 'http://angg.twu.net/eev-videos/{anggstem}.mp4'
>> ~/.psne.log
;;; | _| | | | | (_| |_____| | (_| | || __/> <_____| | | | | | <\__ \
;;; |_| |_|_| |_|\__,_| |_|\__,_|\__\___/_/\_\ |_|_|_| |_|_|\_\___/
;;;
-;; �find-latex-links� (to ".find-latex-links")
+;; «find-latex-links» (to ".find-latex-links")
;; See:
;; (find-eev-quick-intro "7.5. `find-latex-links'")
@@ -1741,7 +1741,7 @@ echo 'http://angg.twu.net/eev-videos/{anggstem}.mp4'
>> ~/.psne.log
;;; | _| | | | | (_| |_____| | |_| | (_| |_____| | | | | | <\__ \
;;; |_| |_|_| |_|\__,_| |_|\__,_|\__,_| |_|_|_| |_|_|\_\___/
;;;
-;; �find-lua-links� (to ".find-lua-links")
+;; «find-lua-links» (to ".find-lua-links")
;; (find-find-links-links "{k}" "lua" "fname")
;;
;; Test: (find-sh0 "rm -v /tmp/foo.lua")
@@ -1799,7 +1799,7 @@ dofile \"{fname0}\"
;;; | __/\__ \ (__| | | __/ __/ | | \__ \ | | | (_) | |_
;;; \___||___/\___|_| \___|\___|_| |_|___/_| |_|\___/ \__|
;;;
-;; �find-escreenshot-links� (to ".find-escreenshot-links")
+;; «find-escreenshot-links» (to ".find-escreenshot-links")
;; Produce an ascii screenshot of an emacs window.
;; To test this, copy a block of lines to the kill ring and do:
;;
@@ -1872,10 +1872,8 @@ dofile \"{fname0}\"
-;; was: ee-anchor-format: "defun %s "
-
;; Local Variables:
-;; coding: raw-text-unix
-;; ee-anchor-format: "�%s�"
+;; coding: utf-8-unix
+;; ee-anchor-format: "«%s»"
;; no-byte-compile: t
;; End:
diff --git a/eev-wrap.el b/eev-wrap.el
index 1e6b7c6..cea487a 100644
--- a/eev-wrap.el
+++ b/eev-wrap.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <address@hidden>
;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version: 2019feb24
+;; Version: 2019mar02
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-wrap.el>
@@ -37,9 +37,9 @@
;; (find-eevfile "eev-mode.el" "eewrap-anchor")
-;; �.ee-template0� (to "ee-template0")
-;; �.ee-S� (to "ee-S")
-;; �.ee-this-line-wrapn� (to "ee-this-line-wrapn")
+;; «.ee-template0» (to "ee-template0")
+;; «.ee-S» (to "ee-S")
+;; «.ee-this-line-wrapn» (to "ee-this-line-wrapn")
@@ -58,7 +58,7 @@ The best way to change this variable interactively is by
running
;;; | __/ __/_____|__) |
;;; \___|\___| |____/
;;;
-;;; �ee-S� (to ".ee-S")
+;;; «ee-S» (to ".ee-S")
;; ee-S and ee-HS, for pretty-printing of sexps (mainly for use in
;; ee-template0).
;; Tests:
@@ -99,7 +99,7 @@ The name of this function comes from the \"S\" in `(format
\"%S\" <obj>)'."
;;; \___|\___| \__\___|_| |_| |_| .__/|_|\__,_|\__\___|\___/
;;; |_|
;;
-;; �ee-template0� (to ".ee-template0")
+;; «ee-template0» (to ".ee-template0")
;; The functions `ee-template00' and `ee-template0' are used by
;; several functions of the `eewrap-*' family and also by functions
;; like `find-latex-links', that create a temporary buffer with elisp
@@ -159,7 +159,7 @@ Example: (ee-template0 \"{<} a{(+ 2 3)} {>}\")
;;; | |_| | | | \__ \_____| | | | | | __/
;;; \__|_| |_|_|___/ |_|_|_| |_|\___|
;;;
-;; �ee-this-line-wrapn� (to ".ee-this-line-wrapn")
+;; «ee-this-line-wrapn» (to ".ee-this-line-wrapn")
;; The main function in this block is `ee-this-line-wrapn' -
;; all the `eewrap-*' functions defined below call it.
@@ -221,8 +221,8 @@ have to run an \"undo\"."
(defun ee-wrap-anchor0 (prefix anchor)
"An internal function used by `ee-wrap-anchor'."
(ee-template0 (ee-tolatin1 "\
-{prefix}�.{anchor}�\t(to \"{anchor}\")
-{prefix}�{anchor}� (to \".{anchor}\")")))
+{prefix}«.{anchor}»\t(to \"{anchor}\")
+{prefix}«{anchor}» (to \".{anchor}\")")))
@@ -250,8 +250,8 @@ have to run an \"undo\"."
#
#####
-# �.{anchor}�\t(to \"{anchor}\")
-# �{anchor}� (to \".{anchor}\")")))
+# «.{anchor}»\t(to \"{anchor}\")
+# «{anchor}» (to \".{anchor}\")")))
@@ -597,6 +597,6 @@ cd {dir}"))
;; Local Variables:
-;; coding: raw-text-unix
+;; coding: utf-8-unix
;; no-byte-compile: t
;; End:
- [elpa] externals/eev b0f124e 48/64: Added material to `find-escripts-intro' and `find-eev-quick-intro'., (continued)
- [elpa] externals/eev b0f124e 48/64: Added material to `find-escripts-intro' and `find-eev-quick-intro'., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 9d39df9 36/64: Several clean-ups in eev-elinks.el and eev-tlinks.el., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 39a2cea 60/64: New file: eev-template0.el., Stefan Monnier, 2019/04/07
- [elpa] externals/eev c77ca3b 27/64: Rewrote eev-pdflike.el, added sections about it to (find-eev-quick-intro)., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 7162184 51/64: Added `find-texworkspdf-page'., Stefan Monnier, 2019/04/07
- [elpa] externals/eev b9baae6 17/64: First commit after an HD crash; lots of changes, Stefan Monnier, 2019/04/07
- [elpa] externals/eev 2518e75 50/64: Use "eev-beginner.el" instead of "eev-readme.el"., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 51e636a 63/64: Deleted eev-pdflike-old.el., Stefan Monnier, 2019/04/07
- [elpa] externals/eev b56266f 54/64: Added `eev-beginner' (our first autoload)., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 5dbba21 40/64: Added `find-eunicodeucs'; added lots of documentation., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 14d1125 46/64: Converted several elisp files to utf-8.,
Stefan Monnier <=
- [elpa] externals/eev 22702eb 31/64: Made all secondary intros point to sections of find-eev-quick-intro., Stefan Monnier, 2019/04/07
- [elpa] externals/eev a5f9343 30/64: Small changes in `find-eev-install-links' and in eev-intro.el., Stefan Monnier, 2019/04/07
- [elpa] externals/eev af88c9b 01/64: Initial commit for eev2, Stefan Monnier, 2019/04/07