From pup.k.i.ns.van.ia at gmail.com Thu Aug 24 08:01:56 2017
Content-Type: multipart/mixed; boundary="===============8162779947431181386=="
MIME-Version: 1.0
From: pup.k.i.ns.van.ia at gmail.com
To: xemacs-patches at xemacs.org
Subject: Re: commit: Automated merge with
 ssh://aidan-guest@hg.debian.org//hg/xemacs/xemacs
Date: 2017-08-24 08:01:50 +0000
Message-ID: <20170824080150.17582.75165@mars.taur.is>
In-Reply-To: E1J7rlh-0000mH-1i@alioth.debian.org

--===============8162779947431181386==
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: quoted-printable

<a href=3D"http://singlecoilsound.com/index.php?action=3Dprofile;u=3D39675"=
>where to buy Adobe Captivate 5.5</a> =

<a href=3D"http://obuv-rostov.ru/forum/user/67302/">web store ABBYY FineRea=
der 10 Professional Edition</a> =

<a href=3D"http://www.novotech36.ru/index.php?action=3Dprofile;u=3D341241">=
with cheap price Microsoft Project Standard 2016</a> =

<a href=3D"http://www.covertonesecurity.com/forum/index.php?action=3Dprofil=
e;u=3D2894">cheap MathWorks MatLab R2010b</a> =

<a href=3D"http://www.zonagol.com.mx/foros/profile.php?mode=3Dviewprofile&u=
=3D443927">where to buy ABBYY FineReader 12 Professional</a> =

<a href=3D"http://diyvaping.co.uk/member.php?action=3Dprofile&uid=3D24633">=
cheap price Microsoft MapPoint 2009 North America</a> =

<a href=3D"http://chameleon.org.il/phpBB2/profile.php?mode=3Dviewprofile&u=
=3D28965">discount Adobe Creative Suite 6 Design Standard</a> =

<a href=3D"http://forum.fatenation.ru/index.php?action=3Dprofile;u=3D162067=
">cheap price Rosetta Stone - Learn Swedish</a> =

<a href=3D"http://www.shesnotajanitor.com/fora/profile.php?mode=3Dviewprofi=
le&u=3D51230">with cheap price 1Click DVD Copy Pro 4</a> =

<a href=3D"http://altcoinstalk.com/member.php?177685-Buy-Cheap-Adobe">cheap=
 price VMware Fusion 7</a> =

<a href=3D"http://classicerotic.ml/member.php?action=3Dprofile&uid=3D4807">=
purchase on line Disk Drill Pro 2.3</a> =

<a href=3D"http://modding.gamingunlimited.net/index.php?action=3Dprofile;u=
=3D152074">purchase on line Autodesk 3Ds Max 2010</a> =

<a href=3D"http://z3.invisionfree.com/Pokemon_Articuno_RPG/index.php?showus=
er=3D538972">purchase online Infinite Skills - Learning Adobe Photoshop CS6=
 Training Video</a> =

<a href=3D"http://bbs.he.99.com/member.php?u=3D548533">where to buy CorelDR=
AW Graphics Suite X7</a> =

<a href=3D"http://roomforums.roleplayevolution.com/cityoftor/index.php?acti=
on=3Dprofile;u=3D2501">cheap Microsoft Visual Studio 2010 Premium</a> =

<a href=3D"http://www.shesnotajanitor.com/fora/profile.php?mode=3Dviewprofi=
le&u=3D51230">purchase on line Adobe Creative Suite 5 Master Collection Stu=
dent and Teacher Edition</a> =

<a href=3D"http://prairiepokerclub.com/forum/member.php?action=3Dprofile&ui=
d=3D865782">cheap Autodesk Softimage 2015</a> =

<a href=3D"http://ligtvgo.com/forum/member.php?action=3Dprofile&uid=3D12619=
">cheap Intuit TurboTax Home & Business 2014 USA</a>
--===============8162779947431181386==--


From via.chea at yandex.com Fri Aug 25 04:22:21 2017
Content-Type: multipart/mixed; boundary="===============2969746146813476805=="
MIME-Version: 1.0
From: ViacknodoDD ViacknodoDD <via.chea at yandex.com>
To: xemacs-patches at xemacs.org
Subject: Re: [AC general-docs] draft XEmacs Developer's Guide
Date: 2017-08-25 04:22:18 +0000
Message-ID: <20170825042218.31947.87844@mars.taur.is>
In-Reply-To: 17989.59898.49962.466430@uwakimon.sk.tsukuba.ac.jp

--===============2969746146813476805==
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: quoted-printable

viagra 100mg china =

 =

      http://cheapviagraolk.com/ - generic viagra =

 =

    <a href=3D"http://cheapviagraolk.com/">viagra</a> =

 =

    viagra 100mg china
--===============2969746146813476805==--


From kehoea at parhasard.net Thu Sep  7 08:21:08 2017
Content-Type: multipart/mixed; boundary="===============2004482348024454524=="
MIME-Version: 1.0
From: Aidan Kehoe <kehoea at parhasard.net>
To: xemacs-patches at xemacs.org
Subject: [COMMIT] Fix up whitespace, rect.el
Date: 2017-09-07 09:21:02 +0100
Message-ID: <59b1.016e.f284f.686d@parhasard.net>

--===============2004482348024454524==
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: quoted-printable


APPROVE COMMIT

NOTE: This patch has been committed

# HG changeset patch
# User Aidan Kehoe <kehoea(a)parhasard.net>
# Date 1504772390 -3600
#      Thu Sep 07 09:19:50 2017 +0100
# Node ID 8dea4d0549ac0a49456d01bba96171399456c227
# Parent  97ece44f19cfad8a1892d2a542dcceea679ae93c
Fix up whitespace, rect.el

2017-09-07  Aidan Kehoe  <kehoea(a)parhasard.net>

        [...]
	* rect.el (apply-on-rectangle):
	* rect.el (delete-rectangle-line):
	* rect.el (open-rectangle-line):
	* rect.el (string-rectangle-line):
	* rect.el (clear-rectangle-line):
	* rect.el (rect):
	Fixup whitespace in this file.

diff -r 97ece44f19cf -r 8dea4d0549ac lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Sep 07 09:16:19 2017 +0100
+++ b/lisp/ChangeLog	Thu Sep 07 09:19:50 2017 +0100
@@ -7,6 +7,13 @@
 	* rect.el (spaces-strings): Removed.
 	* rect.el (spaces-string): Removed.
 	These aren't needed, (format "*s" N "") does the same job.
+	* rect.el (apply-on-rectangle):
+	* rect.el (delete-rectangle-line):
+	* rect.el (open-rectangle-line):
+	* rect.el (string-rectangle-line):
+	* rect.el (clear-rectangle-line):
+	* rect.el (rect):
+	Fixup whitespace in this file.
 =

 2017-06-28  Aidan Kehoe  <kehoea(a)parhasard.net>
 =

diff -r 97ece44f19cf -r 8dea4d0549ac lisp/rect.el
--- a/lisp/rect.el	Thu Sep 07 09:16:19 2017 +0100
+++ b/lisp/rect.el	Thu Sep 07 09:19:50 2017 +0100
@@ -106,9 +106,7 @@
       (goto-char startpt)
       (while (< (point) endpt)
 	(apply function startcol endcol args)
-	(forward-line 1)))
-    ))
-
+	(forward-line 1)))))
 =

 (defun delete-rectangle-line (startcol endcol fill)
   (let ((pt (point-at-eol)))
@@ -118,8 +116,7 @@
 	;; else
 	(setq pt (point))
 	(move-to-column endcol t)
-	(delete-region pt (point))))
-    ))
+	(delete-region pt (point))))))
 =

 ;;;###autoload
 (defun delete-rectangle (start end &optional fill)
@@ -155,7 +152,6 @@
     (apply-on-rectangle 'delete-extract-rectangle-line start end lines fil=
l)
     (nreverse (cdr lines))))
 =

-
 ;; #### NOTE: this is actually the only function that needs to do complica=
ted
 ;; stuff like what's happening in `operate-on-rectangle', because the buff=
er
 ;; might be read-only. --dv
@@ -194,7 +190,6 @@
     (apply-on-rectangle 'extract-rectangle-line start end lines)
     (nreverse (cdr lines))))
 =

-
 ;;;###autoload
 (defvar killed-rectangle nil
   "Rectangle for `yank-rectangle' to insert.")
@@ -220,7 +215,6 @@
   (interactive "*")
   (insert-rectangle killed-rectangle))
 =

-
 ;; This function is untouched --dv
 ;;;###autoload
 (defun insert-rectangle (rectangle)
@@ -244,7 +238,6 @@
       (insert (car lines))
       (setq lines (cdr lines)))))
 =

-
 (defun open-rectangle-line (startcol endcol fill)
   (when (=3D (move-to-column startcol (or fill 'coerce)) startcol)
     (unless (and (not fill)
@@ -262,7 +255,6 @@
   (apply-on-rectangle 'open-rectangle-line start end fill)
   (goto-char start))
 =

-
 (defun string-rectangle-line (startcol endcol string delete)
   (move-to-column startcol t)
   (if delete
@@ -290,7 +282,6 @@
   (interactive "*r\nsString rectangle: ")
   (apply-on-rectangle 'string-rectangle-line start end string t))
 =

-
 (defun clear-rectangle-line (startcol endcol fill)
   (let ((pt (point-at-eol))
 	spaces)
@@ -303,8 +294,7 @@
 	(move-to-column endcol t)
 	(setq spaces (- (point) pt))
 	(delete-region pt (point))
-	(indent-to (+ (current-column) spaces))))
-    ))
+	(indent-to (+ (current-column) spaces))))))
 =

 ;;;###autoload
 (defun clear-rectangle (start end &optional fill)
@@ -317,7 +307,6 @@
   (interactive "*r\nP")
   (apply-on-rectangle 'clear-rectangle-line start end fill))
 =

-
 (provide 'rect)
 =

 ;;; rect.el ends here


-- =

=E2=80=98As I sat looking up at the Guinness ad, I could never figure out /
How your man stayed up on the surfboard after forty pints of stout=E2=80=99
(C. Moore)
--===============2004482348024454524==--


From kehoea at parhasard.net Thu Sep  7 08:21:48 2017
Content-Type: multipart/mixed; boundary="===============8603776445090155138=="
MIME-Version: 1.0
From: Aidan Kehoe <kehoea at parhasard.net>
To: xemacs-patches at xemacs.org
Subject: [COMMIT] Remove #'spaces-string, rect.el, call #'format instead.
Date: 2017-09-07 09:21:45 +0100
Message-ID: <59b1.0199.18c45.fb7e@parhasard.net>

--===============8603776445090155138==
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: quoted-printable


APPROVE COMMIT

NOTE: This patch has been committed

# HG changeset patch
# User Aidan Kehoe <kehoea(a)parhasard.net>
# Date 1504772179 -3600
#      Thu Sep 07 09:16:19 2017 +0100
# Node ID 97ece44f19cfad8a1892d2a542dcceea679ae93c
# Parent  97140cfdeca785747a13192343cf357ea21a3dc1
Remove #'spaces-string, rect.el, call #'format instead.

lisp/ChangeLog addition:

2017-09-07  Aidan Kehoe  <kehoea(a)parhasard.net>

	* rect.el (delete-extract-rectangle-line):
	Use (format "%*s" N "") instead of (spaces-string N) in this
	function.
	* rect.el (extract-rectangle-line): Ditto.
	* rect.el (spaces-strings): Removed.
	* rect.el (spaces-string): Removed.
	These aren't needed, (format "*s" N "") does the same job.

diff -r 97140cfdeca7 -r 97ece44f19cf lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jun 28 22:41:35 2017 +0100
+++ b/lisp/ChangeLog	Thu Sep 07 09:16:19 2017 +0100
@@ -1,3 +1,13 @@
+2017-09-07  Aidan Kehoe  <kehoea(a)parhasard.net>
+
+	* rect.el (delete-extract-rectangle-line):
+	Use (format "%*s" N "") instead of (spaces-string N) in this
+	function.
+	* rect.el (extract-rectangle-line): Ditto.
+	* rect.el (spaces-strings): Removed.
+	* rect.el (spaces-string): Removed.
+	These aren't needed, (format "*s" N "") does the same job.
+
 2017-06-28  Aidan Kehoe  <kehoea(a)parhasard.net>
 =

 	* subr.el (char-width): Move this to C, necessary as part of the
diff -r 97140cfdeca7 -r 97ece44f19cf lisp/rect.el
--- a/lisp/rect.el	Wed Jun 28 22:41:35 2017 +0100
+++ b/lisp/rect.el	Thu Sep 07 09:16:19 2017 +0100
@@ -133,39 +133,16 @@
   (interactive "*r\nP")
   (apply-on-rectangle 'delete-rectangle-line start end fill))
 =

-
-;; I love ascii art ;-)
-(defconst spaces-strings '[""
-			   " "
-			   "  "
-			   "   "
-			   "    "
-			   "     "
-			   "      "
-			   "       "
-			   "        "])
-
-;; This function is untouched --dv
-(defun spaces-string (n)
-  (if (<=3D n 8) (aref spaces-strings n)
-    (let ((val ""))
-      (while (> n 8)
-	(setq val (concat "        " val)
-	      n (- n 8)))
-      (concat val (aref spaces-strings n)))))
-
-
 (defun delete-extract-rectangle-line (startcol endcol lines fill)
   (let ((pt (point-at-eol)))
     (if (< (move-to-column startcol (or fill 'coerce)) startcol)
-	(setcdr lines (cons (spaces-string (- endcol startcol))
+	(setcdr lines (cons (format "%*s" (- endcol startcol) "")
 			    (cdr lines)))
       ;; else
       (setq pt (point))
       (move-to-column endcol t)
       (setcdr lines (cons (buffer-substring pt (point)) (cdr lines)))
-      (delete-region pt (point)))
-    ))
+      (delete-region pt (point)))))
 =

 ;;;###autoload
 (defun delete-extract-rectangle (start end &optional fill)
@@ -201,14 +178,12 @@
       (let ((width (- (current-column)
 		      (save-excursion (backward-char 1)
 				      (current-column)))))
-	(setq line (concat (substring line 0 (- (point) end 1))
-			   (spaces-string width)
-			   (substring line (+ (length line)
-					      (- (point) end)))))))
+	(setq line (format "%.*s%*s%s"
+			   (- (point) end 1) line
+			   width ""
+			   (subseq line (+ (length line) (- (point) end)))))))
     (if (or (> begextra 0) (> endextra 0))
-	(setq line (concat (spaces-string begextra)
-			   line
-			   (spaces-string endextra))))
+	(setq line (format "%*s%s%*s" begextra "" line endextra "")))
     (setcdr lines (cons line (cdr lines)))))
 =

 ;;;###autoload


-- =

=E2=80=98As I sat looking up at the Guinness ad, I could never figure out /
How your man stayed up on the surfboard after forty pints of stout=E2=80=99
(C. Moore)
--===============8603776445090155138==--


From kehoea at parhasard.net Sat Sep 23 10:19:54 2017
Content-Type: multipart/mixed; boundary="===============7322176672870404855=="
MIME-Version: 1.0
From: Aidan Kehoe <kehoea at parhasard.net>
To: xemacs-patches at xemacs.org
Subject: [COMMIT] Return a Bytecount, read_process_output(),
 no need for bytecount_to_charcount()
Date: 2017-09-23 11:19:50 +0100
Message-ID: <59c6.3546.73049.d983@parhasard.net>

--===============7322176672870404855==
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: quoted-printable


APPROVE COMMIT

NOTE: This patch has been committed

# HG changeset patch
# User Aidan Kehoe <kehoea(a)parhasard.net>
# Date 1506161926 -3600
#      Sat Sep 23 11:18:46 2017 +0100
# Node ID d3e0eec3a5082a28cdff11a9e5629b076abd4a17
# Parent  8dea4d0549ac0a49456d01bba96171399456c227
Return a Bytecount, read_process_output(), no need for bytecount_to_charcou=
nt()

src/ChangeLog addition:

2017-09-23  Aidan Kehoe  <kehoea(a)parhasard.net>

	* process.c (read_process_output): Have this return a Bytecount,
	not a Charcount; the precise number of characters wasn't used by
	our callers, so we were usually calling bytecount_to_charcount()
	for no reason.
	* process.h: Update the declaration of this function.

diff -r 8dea4d0549ac -r d3e0eec3a508 src/ChangeLog
--- a/src/ChangeLog	Thu Sep 07 09:19:50 2017 +0100
+++ b/src/ChangeLog	Sat Sep 23 11:18:46 2017 +0100
@@ -1,3 +1,11 @@
+2017-09-23  Aidan Kehoe  <kehoea(a)parhasard.net>
+
+	* process.c (read_process_output): Have this return a Bytecount,
+	not a Charcount; the precise number of characters wasn't used by
+	our callers, so we were usually calling bytecount_to_charcount()
+	for no reason.
+	* process.h: Update the declaration of this function.
+
 2017-06-28  Aidan Kehoe  <kehoea(a)parhasard.net>
 =

 	* text.c (Fchar_width):
diff -r 8dea4d0549ac -r d3e0eec3a508 src/process.c
--- a/src/process.c	Thu Sep 07 09:19:50 2017 +0100
+++ b/src/process.c	Sat Sep 23 11:18:46 2017 +0100
@@ -1079,17 +1079,16 @@
 =

 /* Read pending output from the process channel,
    starting with our buffered-ahead character if we have one.
-   Yield number of characters read.
+   Yield number of bytes read.
 =

    This function reads at most 1024 bytes.
    If you want to read all available subprocess output,
    you must call it repeatedly until it returns zero.  */
-
-Charcount
+Bytecount
 read_process_output (Lisp_Object process, int read_stderr)
 {
   /* This function can GC */
-  Bytecount nbytes, nchars;
+  Bytecount nbytes;
   Ibyte chars[1025];
   Lisp_Object outstream;
   Lisp_Process *p =3D XPROCESS (process);
@@ -1139,16 +1138,16 @@
 =

   /* !!#### if the coding system changed as a result of reading, we
      need to change the output coding system accordingly. */
-  nchars =3D bytecount_to_charcount (chars, nbytes);
   outstream =3D filter;
   if (!NILP (outstream))
     {
       /* Some FSF junk with running_asynch_code, to preserve the match
          data.  Not necessary because we don't call process filters
 	 asynchronously (i.e. from within QUIT). */
-      /* Don't catch errors here; we're not in any critical code. */
+      /* Don't catch errors here; we're not in any critical code. call2() =
will
+         GCPRO() the string argument. */
       call2 (outstream, process, make_string (chars, nbytes));
-      return nchars;
+      return nbytes;
     }
 =

   /* If no filter, write into buffer if it isn't dead.  */
@@ -1177,7 +1176,8 @@
       unbind_to (spec);
       UNGCPRO;
     }
-  return nchars;
+
+  return nbytes;
 }
 =

 int
diff -r 8dea4d0549ac -r d3e0eec3a508 src/process.h
--- a/src/process.h	Thu Sep 07 09:19:50 2017 +0100
+++ b/src/process.h	Sat Sep 23 11:18:46 2017 +0100
@@ -99,7 +99,7 @@
 void status_notify (void);
 void kick_status_notify (void);
 void deactivate_process (Lisp_Object proc);
-Charcount read_process_output (Lisp_Object proc, int read_stderr);
+Bytecount read_process_output (Lisp_Object proc, int read_stderr);
 int process_has_separate_stderr (Lisp_Object proc);
 const char *signal_name (int signum);
 Lisp_Object canonicalize_host_name (Lisp_Object host);


-- =

=E2=80=98As I sat looking up at the Guinness ad, I could never figure out /
How your man stayed up on the surfboard after forty pints of stout=E2=80=99
(C. Moore)
--===============7322176672870404855==--