[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 6cb1e7deb69a199949926
|
From: |
Mosè Giordano |
|
Subject: |
[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 6cb1e7deb69a199949926f4a2b33c2bb6b250c13 |
|
Date: |
Sat, 16 Dec 2017 19:35:43 -0500 (EST) |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".
The branch, master has been updated
via 6cb1e7deb69a199949926f4a2b33c2bb6b250c13 (commit)
via 05c09bd9d5c9091674e7d94d75b397d713e90c1d (commit)
via d3d321a8d210b5b358af63d850444e827ba0826f (commit)
via 9ba765e557dc1d9b6e67245f81e3529a6b037f38 (commit)
via f366130c9d61acded75ba55ae9c5c3979e15ca8a (commit)
from 52e142662de8f4643a3682138c8612ae58169be8 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 6cb1e7deb69a199949926f4a2b33c2bb6b250c13
Author: Mosè Giordano <address@hidden>
Date: Sun Dec 17 01:34:21 2017 +0100
Remove XEmacs compatibility code in tex.el
* tex.el (TeX-source-correlate-gnuserv-p):
(TeX-source-correlate-map):
(VirTeX-common-initialization):
(TeX-mode-map):
(TeX-search-syntax-table): Remove code for compatibility with XEmacs.
diff --git a/tex.el b/tex.el
index bedd252..be81f73 100644
--- a/tex.el
+++ b/tex.el
@@ -1808,8 +1808,7 @@ search, can set the variable.")
(processp gnuserv-process)))
((and (boundp 'server-process)
(processp server-process))
- nil)
- ((featurep 'xemacs))))
+ nil)))
(defun TeX-source-correlate-server-enabled-p ()
"Return non-nil if Emacs server or gnuserv is enabled."
@@ -1879,12 +1878,7 @@ If this is nil, an empty string will be returned."
TeX-synctex-tex-flags)
""))
-(defvar TeX-source-correlate-map
- (let ((map (make-sparse-keymap)))
- ;; (if (featurep 'xemacs)
- ;; (define-key map [(control button1)] #'TeX-view-mouse)
- ;; (define-key map [C-down-mouse-1] #'TeX-view-mouse))
- map)
+(defvar TeX-source-correlate-map (make-sparse-keymap)
"Keymap for `TeX-source-correlate-mode'.
You could use this for unusual mouse bindings.")
@@ -3877,11 +3871,6 @@ The algorithm is as follows:
;; `(TeX-master-file nil nil t)' has to be called *before*
;; `TeX-update-style' as the latter will call `TeX-master-file'
;; without the `ask' bit set.
- (when (featurep 'xemacs)
- (unless (boundp 'find-file-hook)
- (defvaralias 'find-file-hook 'find-file-hooks))
- (when (not (emacs-version>= 21 5))
- (make-local-hook 'find-file-hook)))
(add-hook 'find-file-hook
(lambda ()
;; Check if we are looking at a new or shared file.
@@ -5052,14 +5041,9 @@ Brace insertion is only done if point is in a math
construct and
(define-key map "\C-c^" 'TeX-home-buffer)
(define-key map "\C-c`" 'TeX-next-error)
;; Remap bindings of `next-error'
- (if (featurep 'xemacs)
- (substitute-key-definition 'next-error 'TeX-next-error map global-map)
- (define-key map [remap next-error] 'TeX-next-error))
+ (define-key map [remap next-error] 'TeX-next-error)
;; Remap bindings of `previous-error'
- (if (featurep 'xemacs)
- (substitute-key-definition 'previous-error 'TeX-previous-error
- map global-map)
- (define-key map [remap previous-error] 'TeX-previous-error))
+ (define-key map [remap previous-error] 'TeX-previous-error)
;; From tex-fold.el
(define-key map "\C-c\C-o\C-f" 'TeX-fold-mode)
@@ -5501,9 +5485,7 @@ regardless of its data type."
;;; Navigation
(defvar TeX-search-syntax-table
- (let ((table (make-syntax-table (make-char-table (if (featurep 'xemacs)
- 'syntax
- 'syntax-table)))))
+ (let ((table (make-syntax-table (make-char-table 'syntax-table))))
;; Preset mode-independent syntax entries. (Mode-dependent
;; entries are set in the function `TeX-search-syntax-table'.)
;; ?\", ?\( and ?\) explicitely get whitespace syntax because
commit 05c09bd9d5c9091674e7d94d75b397d713e90c1d
Author: Mosè Giordano <address@hidden>
Date: Sun Dec 17 01:31:57 2017 +0100
Remove TeX-how-many function
* tex.el (TeX-how-many): Remove function.
* latex.el (LaTeX-hanging-ampersand-position): Replace `TeX-how-many' with
`how-many'.
diff --git a/latex.el b/latex.el
index fe905d6..4dcb4bf 100644
--- a/latex.el
+++ b/latex.el
@@ -6522,7 +6522,7 @@ function would return non-nil and `(match-string 1)'
would return
(let* ((cur-pos (point)))
(save-excursion
(if (re-search-backward "\\\\\\\\" beg-pos t)
- (let ((cur-idx (TeX-how-many "[^\\]&" (point) cur-pos)))
+ (let ((cur-idx (how-many "[^\\]&" (point) cur-pos)))
(goto-char beg-pos)
(re-search-forward "[^\\]&" cur-pos t (+ 1 cur-idx))
;; If the above searchs fails, i.e. no "&" found,
diff --git a/tex.el b/tex.el
index 5927b49..bedd252 100644
--- a/tex.el
+++ b/tex.el
@@ -6708,34 +6708,6 @@ error."
(put 'TeX-insert-dollar 'delete-selection
(lambda () (null TeX-electric-math))))
-(defun TeX-how-many (regexp &optional rstart rend)
- "Compatibily function for `how-many'.
-Supports restriction to a region where the XEmacs version doesn't
-and always returns the number of matches, also in XEmacs and GNU
-Emacs 21."
- ;; Emacs >= 22 does what we want.
- (if (>= emacs-major-version 22)
- (how-many regexp rstart rend)
- ;; XEmacs and GNU Emacs 21 don't return the number of matches but only
print
- ;; it.
- (let ((string
- (if (featurep 'xemacs)
- ;; XEmacs doesn't even support restriction to a region.
- (save-excursion
- (save-restriction
- (when (and (integer-or-marker-p rstart)
- (integer-or-marker-p rend))
- (narrow-to-region rstart rend)
- (goto-char (point-min)))
- (how-many regexp)))
- (how-many regexp rstart rend))))
- ;; Hide the message printed by `how-many'.
- (message "")
- ;; Select the number of occurrences and convert it to a number.
- (if (string-match "\\([0-9]+\\).*" string)
- (string-to-number (replace-match "\\1" nil nil string))
- 0))))
-
(defun TeX--list-of-string-p (lst)
"Return non-nil iff `LST' is a list of strings.
Used as function for validating a variable's `safe-local-variable' property."
commit d3d321a8d210b5b358af63d850444e827ba0826f
Author: Mosè Giordano <address@hidden>
Date: Sun Dec 17 01:28:23 2017 +0100
Remove TeX-assoc-string
* tex.el (TeX-assoc-string): Remove alias.
(TeX-add-style-hook):
(TeX-unload-style):
(TeX-run-style-hooks):
* tex-info.el (Texinfo-nodename-de-escape):
(Texinfo-nodename-escape): Replace `TeX-assoc-string' with `assoc-string'.
diff --git a/tex-info.el b/tex-info.el
index 5d4fc08..660cf46 100644
--- a/tex-info.el
+++ b/tex-info.el
@@ -297,7 +297,7 @@ character. Return the resulting string."
(while (and (< pos (length
node-name)) (string-match "@\\(comma\\)[[:blank:]]*{}"
node-name pos))
(setq node-name (concat (substring node-name 0 (match-beginning 0))
- (cdr (TeX-assoc-string (match-string 1
node-name) map))
+ (cdr (assoc-string (match-string 1 node-name)
map))
(substring node-name (match-end 0)))
pos (1+ (match-beginning 0)))))
node-name)
@@ -311,7 +311,7 @@ commands. Return the resulting string."
(re (regexp-opt (mapcar 'car map))) )
(while (and (< pos (length node-name)) (string-match re node-name pos))
(setq node-name (concat (substring node-name 0 (match-beginning 0))
- "@" (cdr (TeX-assoc-string (match-string 0
node-name) map))
+ "@" (cdr (assoc-string (match-string 0
node-name) map))
"{}"
(substring node-name (match-end 0)))
pos (1+ (match-beginning 0)))))
diff --git a/tex.el b/tex.el
index ab872b3..5927b49 100644
--- a/tex.el
+++ b/tex.el
@@ -671,10 +671,6 @@ but does nothing in Emacs."
Also does other stuff."
(TeX-maybe-remove-help menu)))
-;;;###autoload
-(defalias 'TeX-assoc-string
- (symbol-function (if (featurep 'xemacs) 'assoc 'assoc-string)))
-
;;; Documentation for Info-goto-emacs-command-node and similar
(eval-after-load 'info '(dolist (elt '("TeX" "LaTeX" "ConTeXt" "Texinfo"
@@ -3020,7 +3016,7 @@ DIALECT-EXPR can also be an expression like one of the
following:
When omitted DIALECT-EXPR is equivalent to `(nor )', ie all
dialected are allowed."
- (let ((entry (TeX-assoc-string style TeX-style-hook-list)))
+ (let ((entry (assoc-string style TeX-style-hook-list)))
(and dialect-expr (setq hook (vector 'TeX-style-hook hook
(TeX-shdex-eval dialect-expr))))
(cond ((null entry)
@@ -3052,7 +3048,7 @@ found in DIALECT-LIST and return the list thereof."
the STYLE is only removed for those dialects in DIALECT-LIST.
See variable `TeX-style-hook-dialect' for supported dialects."
- (let ((style-data (TeX-assoc-string style TeX-style-hook-list)))
+ (let ((style-data (assoc-string style TeX-style-hook-list)))
(if style-data
(let ((hooks (and dialect-list (TeX-keep-hooks-in-dialect (cdr
style-data) dialect-list))))
(if hooks
@@ -3103,7 +3099,7 @@ See variable `TeX-style-hook-dialect' for supported
dialects."
;; styles in the order global, private, local
;; (assuming TeX-style-path has that ordering,
;; too).
- (reverse (cdr-safe (TeX-assoc-string style
TeX-style-hook-list))))
+ (reverse (cdr-safe (assoc-string style
TeX-style-hook-list))))
;; This happens in case some style added a new parser, and
;; now the style isn't used anymore (user deleted
;; \usepackage{style}). Then we're left over with, e.g.,
commit 9ba765e557dc1d9b6e67245f81e3529a6b037f38
Author: Mosè Giordano <address@hidden>
Date: Sun Dec 17 01:25:54 2017 +0100
Remove TeX-deactivate-mark
* tex.el (TeX-deactivate-mark): Remove function.
(TeX-argument-insert):
* latex.el (LaTeX-env-item):
* style/currvita.el (LaTeX-currvita-env-with-label):
* style/dinbrief.el (LaTeX-dinbrief-insert):
(LaTeX-dinbrief-env-recipient):
* style/enumitem.el (LaTeX-enumitem-env-with-opts):
* style/moodle.el (LaTeX-moodle-question-env-with-args):
* style/tcolorboxlib-raster.el (LaTeX-tcolorbox-lib-raster-env-item):
Replace
`TeX-deactivate-mark' with `deactivate-mark'.
diff --git a/latex.el b/latex.el
index 8c340e3..fe905d6 100644
--- a/latex.el
+++ b/latex.el
@@ -959,7 +959,7 @@ If nil, act like the empty string is given, but do not
prompt."
;; Deactivate the mark here in order to prevent `TeX-parse-macro'
;; from swapping point and mark and the \item ending up right after
;; \begin{...}.
- (TeX-deactivate-mark)
+ (deactivate-mark)
(LaTeX-insert-item)
;; The inserted \item may have outdented the first line to the
;; right. Fill it, if appropriate.
diff --git a/style/currvita.el b/style/currvita.el
index 0973190..127d68e 100644
--- a/style/currvita.el
+++ b/style/currvita.el
@@ -51,7 +51,7 @@
;; Deactivate the mark here in order to prevent `TeX-parse-macro'
;; from swapping point and mark and the \item ending up right after
;; \begin{...}.
- (TeX-deactivate-mark)
+ (deactivate-mark)
(LaTeX-insert-item)
;; The inserted \item may have outdented the first line to the
;; right. Fill it, if appropriate.
diff --git a/style/dinbrief.el b/style/dinbrief.el
index 6455e82..2ec5611 100644
--- a/style/dinbrief.el
+++ b/style/dinbrief.el
@@ -67,7 +67,7 @@
(defmacro LaTeX-dinbrief-insert (&rest args)
"Insert text ignoring active markers."
- `(progn (if (TeX-mark-active) (TeX-deactivate-mark))
+ `(progn (if (TeX-mark-active) (deactivate-mark))
(insert ,@args)))
(defun LaTeX-dinbrief-style ()
@@ -123,7 +123,7 @@
(newline-and-indent)
(if (not (zerop (length retouradr)))
(progn
- (if (TeX-mark-active) (TeX-deactivate-mark))
+ (if (TeX-mark-active) (deactivate-mark))
(LaTeX-dinbrief-insert TeX-esc "backaddress" TeX-grop retouradr
TeX-grcl)
(newline-and-indent)))))
(LaTeX-dinbrief-insert TeX-esc "enabledraftstandard")
diff --git a/style/enumitem.el b/style/enumitem.el
index 699dbe6..f347446 100644
--- a/style/enumitem.el
+++ b/style/enumitem.el
@@ -206,7 +206,7 @@ key-val and the first item."
;; Deactivate the mark here in order to prevent `TeX-parse-macro'
;; from swapping point and mark and the \item ending up right after
;; \begin{...}.
- (TeX-deactivate-mark)
+ (deactivate-mark)
(LaTeX-insert-item)
;; The inserted \item may have outdented the first line to the
;; right. Fill it, if appropriate.
diff --git a/style/moodle.el b/style/moodle.el
index c304481..92c623c 100644
--- a/style/moodle.el
+++ b/style/moodle.el
@@ -114,7 +114,7 @@
;; Deactivate the mark here in order to prevent `TeX-parse-macro'
;; from swapping point and mark and the \item ending up right after
;; \begin{...}.
- (TeX-deactivate-mark)
+ (deactivate-mark)
;; Query and insert the question text.
(let ((qtext (TeX-read-string (TeX-argument-prompt nil nil "Question
Text"))))
(when (and qtext (not (string= qtext "")))
diff --git a/style/tcolorboxlib-raster.el b/style/tcolorboxlib-raster.el
index 2bf33ee..822e267 100644
--- a/style/tcolorboxlib-raster.el
+++ b/style/tcolorboxlib-raster.el
@@ -104,7 +104,7 @@
;; Deactivate the mark here in order to prevent `TeX-parse-macro'
;; from swapping point and mark and the \item ending up right after
;; \begin{...}.
- (TeX-deactivate-mark)
+ (deactivate-mark)
(LaTeX-insert-item)
;; The inserted \item may have outdented the first line to the
;; right. Fill it, if appropriate.
diff --git a/tex.el b/tex.el
index 0fc2a86..ab872b3 100644
--- a/tex.el
+++ b/tex.el
@@ -3619,7 +3619,7 @@ See `TeX-parse-macro' for details."
(prin1-to-string head))))))
(t (error "Unknown argument type %s" (prin1-to-string arg))))
(when (and insert-flag (not optional) (TeX-active-mark))
- (TeX-deactivate-mark))))
+ (deactivate-mark))))
(defun TeX-argument-insert (name optional &optional prefix)
"Insert NAME surrounded by curly braces.
@@ -4832,15 +4832,6 @@ to look backward for."
(skip-chars-backward " \t\n")
(bobp)))
-(defun TeX-deactivate-mark ()
- "Deactivate the mark.
-This is a compatibility function which works both in Emacs and
-XEmacs. In XEmacs the region is deactivated instead of the
-mark which is sort of equivalent."
- (if (featurep 'xemacs)
- (zmacs-deactivate-region)
- (deactivate-mark)))
-
(defalias 'TeX-run-mode-hooks
(if (fboundp 'run-mode-hooks) 'run-mode-hooks 'run-hooks))
commit f366130c9d61acded75ba55ae9c5c3979e15ca8a
Author: Mosè Giordano <address@hidden>
Date: Sun Dec 17 01:21:56 2017 +0100
Remove old compat functions for commenting and uncommenting
* tex.el (TeX-comment-regio):
(TeX-comment-or-uncomment-region):
(TeX-uncomment-region): Remove old compatibility functions.
* context.el (ConTeXt-mode-menu):
* latex.el (LaTeX-mode-menu):
* plain-tex.el (plain-TeX-menu-entries):
* tex-info.el (Texinfo-mode-menu):
* tex.el (TeX-mode-map):
(TeX-in-comment):
(TeX-in-commented-line): Replace compat functions with standard functions.
diff --git a/context.el b/context.el
index e42423b..ee35eb6 100644
--- a/context.el
+++ b/context.el
@@ -1527,7 +1527,7 @@ else. There might be text before point."
["Delete Font" (TeX-font t ?\C-d) :keys "C-c C-f C-d"]
"-"
["Comment or Uncomment Region"
- TeX-comment-or-uncomment-region
+ comment-or-uncomment-region
:help "Make the selected region outcommented or active again"]
["Comment or Uncomment Paragraph"
TeX-comment-or-uncomment-paragraph
diff --git a/latex.el b/latex.el
index 37c77b4..8c340e3 100644
--- a/latex.el
+++ b/latex.el
@@ -5639,7 +5639,7 @@ regenerated by the respective menu filter."
["Delete Font" (TeX-font t ?\C-d) :keys "C-c C-f C-d"]
"-"
["Comment or Uncomment Region"
- TeX-comment-or-uncomment-region
+ comment-or-uncomment-region
:help "Make the selected region outcommented or active again"]
["Comment or Uncomment Paragraph"
TeX-comment-or-uncomment-paragraph
diff --git a/plain-tex.el b/plain-tex.el
index 9b561ac..99df58a 100644
--- a/plain-tex.el
+++ b/plain-tex.el
@@ -83,7 +83,7 @@ Install tool bar if `plain-TeX-enable-toolbar' is non-nil."
["Calligraphic" (TeX-font t ?\C-a) :keys "C-u C-c C-f C-a"])
["Delete Font" (TeX-font t ?\C-d) :keys "C-c C-f C-d"]
"-"
- ["Comment or Uncomment Region" TeX-comment-or-uncomment-region
+ ["Comment or Uncomment Region" comment-or-uncomment-region
:help "Comment or uncomment the currently selected region"]
["Comment or Uncomment Paragraph" TeX-comment-or-uncomment-paragraph
:help "Comment or uncomment the paragraph containing point"]
diff --git a/tex-info.el b/tex-info.el
index 4a96e11..5d4fc08 100644
--- a/tex-info.el
+++ b/tex-info.el
@@ -585,7 +585,7 @@ is assumed by default."
"-"
("Commenting"
["Comment or Uncomment Region"
- TeX-comment-or-uncomment-region
+ comment-or-uncomment-region
:help "Comment or uncomment the currently selected region"]
["Comment or Uncomment Paragraph"
TeX-comment-or-uncomment-paragraph
diff --git a/tex.el b/tex.el
index 5ee02b4..0fc2a86 100644
--- a/tex.el
+++ b/tex.el
@@ -5039,10 +5039,10 @@ Brace insertion is only done if point is in a math
construct and
(define-key map "\e\t" 'TeX-complete-symbol) ;*** Emacs 19 way
(define-key map "\C-c'" 'TeX-comment-or-uncomment-paragraph) ;*** Old
way
- (define-key map "\C-c:" 'TeX-comment-or-uncomment-region) ;*** Old way
+ (define-key map "\C-c:" 'comment-or-uncomment-region) ;*** Old way
(define-key map "\C-c\"" 'TeX-uncomment) ;*** Old way
- (define-key map "\C-c;" 'TeX-comment-or-uncomment-region)
+ (define-key map "\C-c;" 'comment-or-uncomment-region)
(define-key map "\C-c%" 'TeX-comment-or-uncomment-paragraph)
(define-key map "\C-c\C-t\C-p" 'TeX-PDF-mode)
@@ -5301,62 +5301,6 @@ Unlike the variable `comment-start-skip' it should not
match any
whitespace after the comment starter or any character before it.")
(make-variable-buffer-local 'TeX-comment-start-regexp)
-(defun TeX-comment-region (beg end &optional arg)
- "Comment each line in the region from BEG to END.
-Numeric prefix arg ARG means use ARG comment characters.
-If ARG is negative, delete that many comment characters instead."
- (interactive "*r\nP")
- ;; `comment-padding' will not be recognized in XEmacs' (21.4)
- ;; `comment-region', so we temporarily modify `comment-start' to get
- ;; proper spacing. Unfortunately we have to check for the XEmacs
- ;; version and cannot test if `comment-padding' is bound as this
- ;; gets initialized in `VirTeX-common-initialization'.
- (let ((comment-start (if (and (featurep 'xemacs)
- (= emacs-major-version 21)
- (<= emacs-minor-version 4))
- (concat comment-start (TeX-comment-padding-string))
- comment-start)))
- (comment-region beg end arg)))
-
-(eval-and-compile
- ;; COMPATIBILITY for Emacs <= 21.3
- (if (fboundp 'comment-or-uncomment-region)
- (defalias 'TeX-comment-or-uncomment-region 'comment-or-uncomment-region)
- ;; The following function was copied from `newcomment.el' on
- ;; 2004-01-30 and adapted accordingly
- (defun TeX-comment-or-uncomment-region (beg end &optional arg)
- "Comment or uncomment a the region from BEG to END.
-Call `TeX-comment-region', unless the region only consists of
-comments, in which case call `TeX-uncomment-region'. If a prefix
-arg ARG is given, it is passed on to the respective function."
- (interactive "*r\nP")
- (funcall (if (save-excursion ;; check for already commented region
- (goto-char beg)
- (TeX-comment-forward (point-max))
- (<= end (point)))
- 'TeX-uncomment-region 'TeX-comment-region)
- beg end arg)))
-
- ;; COMPATIBILITY for Emacs <= 20. (Introduced in 21.1?)
- (if (fboundp 'uncomment-region)
- (defalias 'TeX-uncomment-region 'uncomment-region)
- (defun TeX-uncomment-region (beg end &optional arg)
- "Remove comment characters from the beginning of each line
-in the region from BEG to END. Numeric prefix arg ARG means use
-ARG comment characters. If ARG is negative, delete that many
-comment characters instead."
- (interactive "*r\nP")
- (or arg
- ;; Determine the number of comment characters at the
- ;; beginning of the first commented line.
- (setq arg
- (save-excursion
- (goto-char beg)
- (re-search-forward
- (concat "^" TeX-comment-start-regexp "+") end t)
- (length (match-string 0)))))
- (comment-region beg end (- arg)))))
-
(defun TeX-uncomment ()
"Delete comment characters from the beginning of each line in a comment."
(interactive)
@@ -5373,7 +5317,7 @@ comment characters instead."
(not (eobp)))
(forward-line 1))
;; Uncomment region
- (TeX-uncomment-region beg (point)))))
+ (uncomment-region beg (point)))))
(defun TeX-comment-or-uncomment-paragraph ()
"Comment or uncomment current paragraph."
@@ -5389,7 +5333,7 @@ comment characters instead."
;; commented without the user noticing.
(unless (looking-at "^[ \t]*$")
(mark-paragraph)
- (TeX-comment-region (point) (mark))))))
+ (comment-region (point) (mark))))))
(defun TeX-in-comment ()
"Return non-nil if point is in a comment."
-----------------------------------------------------------------------
Summary of changes:
context.el | 2 +-
latex.el | 6 +-
plain-tex.el | 2 +-
style/currvita.el | 2 +-
style/dinbrief.el | 4 +-
style/enumitem.el | 2 +-
style/moodle.el | 2 +-
style/tcolorboxlib-raster.el | 2 +-
tex-info.el | 6 +-
tex.el | 141 ++++---------------------------------------
10 files changed, 27 insertions(+), 142 deletions(-)
hooks/post-receive
--
GNU AUCTeX
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [AUCTeX-diffs] GNU AUCTeX branch, master, updated. 6cb1e7deb69a199949926f4a2b33c2bb6b250c13,
Mosè Giordano <=