[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#32729: Xemacs 23 times as fast as GNU Emacs

From: Benninghofen, Benjamin Dr.
Subject: bug#32729: Xemacs 23 times as fast as GNU Emacs
Date: Thu, 13 Sep 2018 13:32:48 +0000

I did send an email with the same subject earlier, but its attachment was probably lost.
Now I inserted the contents of the attachments in the email text.
The versions of Xemacs and GNU Emacs are those that come with RHEL 7.5.
To reproduce the benchmark:
Evaluate this in Emacs-Lisp
(defun demo ()
    (let ((buffer (get-buffer-create "*demo*"))
      (switch-to-buffer buffer)
      (setq proc (start-process "demo" buffer "~/prog.sh"))
      (set-process-filter proc 'demo-process-filter)))
(defun demo-process-filter (process output)
    (let* ((xmarker (process-mark process))
           (marker (if (marker-position xmarker)
                     (set-marker (make-marker) 0 buffer)))
           (marker-point (marker-position marker)))
      (goto-char marker-point)
      (insert output)
      (set-marker marker (point))))
Place a file "prog.sh" with the contents below in the home directory:
#! /bin/bash
  start=$(date +%s)
  echo sleeping 5 to wait for process filter to get installed...
  sleep 5
  while read line; do
      echo $line
  done <<< "$(cat input.txt)"
  end=$(date +%s)
  echo duration: $(( end - start )) seconds
Furthermore a large text file "input.txt"  is needed in the home directory. The file should have 1000000 lines, each line longer than 80 characters.
The file I used was created with the following ANSI-COMMON-LISP function:
(defun print-nums (&key (first 1) (last 1000000))
  (check-type first fixnum)
  (check-type last fixnum)
  (loop for k of-type fixnum from first to last do (format t "~%~B ^3 = ~B" k (expt k 3)))
Alternatively the "input.txt" file can be created as follows:
#! /bin/bash
  function base2 {
      echo "obase=2;$1" | bc
  for k in $(seq 1 $last); do
      x=$(( k * k * k ))
      echo $(base2 $k) '^3 =' $(base2 $x)
generate the input like this:
  $ ./gen.sh > input.txt
The benchmark is executed by
(M-x) demo
At the end the time is printed and I received the following results:
Xemacs    : 51 seconds
GNU Emacs : 1205 seconds
So the Xemacs is more than 23 times as fast as the GNU Emacs.
Benjamin Benninghofen
The information in this e-mail is confidential. The contents may not be disclosed or used by anyone other than the addressee. Access to this e-mail by anyone else is unauthorised.
If you are not the intended recipient, please notify Airbus immediately and delete this e-mail.
Airbus cannot accept any responsibility for the accuracy or completeness of this e-mail as it has been sent over public networks. If you have any concerns over the content of this message or its Accuracy or Integrity, please contact Airbus immediately.
All outgoing e-mails from Airbus are checked using regularly updated virus scanning software but you should take whatever measures you deem to be appropriate to ensure that this message and any attachments are virus free.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]