[Gnustep-cvs] r38985 - in /plugins/gs-emacs: ChangeLog gnustep.el

[germanandre]

Author: espectador
Date: Sun Sep 13 08:13:50 2015
New Revision: 38985

URL: http://svn.gna.org/viewcvs/gnustep?rev=38985&view=rev
Log:
Fix a problem with replace-foreign-characters

Modified:
    plugins/gs-emacs/ChangeLog
    plugins/gs-emacs/gnustep.el

Modified: plugins/gs-emacs/ChangeLog
URL: 
http://svn.gna.org/viewcvs/gnustep/plugins/gs-emacs/ChangeLog?rev=38985&r1=38984&r2=38985&view=diff
==============================================================================
--- plugins/gs-emacs/ChangeLog  (original)
+++ plugins/gs-emacs/ChangeLog  Sun Sep 13 08:13:50 2015
@@ -1,3 +1,7 @@
+2015-09-13  Germán Arias <germanan...@gmx.es>
+
+       * gnustep.el: Fix a problem with function replace-foreign-characters.
+
 2015-01-22  Germán Arias <germanan...@gmx.es>
 
        * Upload files to repository.

Modified: plugins/gs-emacs/gnustep.el
URL: 
http://svn.gna.org/viewcvs/gnustep/plugins/gs-emacs/gnustep.el?rev=38985&r1=38984&r2=38985&view=diff
==============================================================================
--- plugins/gs-emacs/gnustep.el (original)
+++ plugins/gs-emacs/gnustep.el Sun Sep 13 08:13:50 2015
@@ -117,31 +117,57 @@
   (interactive)
   (goto-char (point-min))
   (replace-string "Á" "\\U00C1")
+  (goto-char (point-min))
   (replace-string "É" "\\U00C9")
+  (goto-char (point-min))
   (replace-string "Í" "\\U00CD")
+  (goto-char (point-min))
   (replace-string "Ó" "\\U00D3")
+  (goto-char (point-min))
   (replace-string "Ú" "\\U00DA")
+  (goto-char (point-min))
   (replace-string "á" "\\U00E1")
+  (goto-char (point-min))
   (replace-string "é" "\\U00E9")
+  (goto-char (point-min))
   (replace-string "í" "\\U00ED")
+  (goto-char (point-min))
   (replace-string "ó" "\\U00F3")
+  (goto-char (point-min))
   (replace-string "ú" "\\U00FA")
+  (goto-char (point-min))
   (replace-string "Ü" "\\U00DC")
+  (goto-char (point-min))
   (replace-string "ü" "\\U00FC")
+  (goto-char (point-min))
   (replace-string "¡" "\\U00A1")
+  (goto-char (point-min))
   (replace-string "¿" "\\U00BF")
+  (goto-char (point-min))
   (replace-string "Ñ" "\\U00D1")
+  (goto-char (point-min))
   (replace-string "ñ" "\\U00F1")
+  (goto-char (point-min))
   (replace-string "Ä" "\\U00C4")
+  (goto-char (point-min))
   (replace-string "Ö" "\\U00D6")
+  (goto-char (point-min))
   (replace-string "ß" "\\U00DF")
+  (goto-char (point-min))
   (replace-string "ä" "\\U00E4")
+  (goto-char (point-min))
   (replace-string "ö" "\\U00F6")
+  (goto-char (point-min))
   (replace-string "Ç" "\\U00C7")
+  (goto-char (point-min))
   (replace-string "ç" "\\U00E7")
+  (goto-char (point-min))
   (replace-string "Ë" "\\U00CB")
+  (goto-char (point-min))
   (replace-string "Ï" "\\U00CF")
+  (goto-char (point-min))
   (replace-string "ë" "\\U00EB")
+  (goto-char (point-min))
   (replace-string "ï" "\\U00EF")
   )
 


_______________________________________________
Gnustep-cvs mailing list
Gnustep-cvs@gna.org
https://mail.gna.org/listinfo/gnustep-cvs