Deleted trailling whitespaces.

Pascal J. Bourguignon [2016-10-12 09:38]
Deleted trailling whitespaces.
Filename
pjb-sources.el
diff --git a/pjb-sources.el b/pjb-sources.el
index ca9115f..34e9f4a 100644
--- a/pjb-sources.el
+++ b/pjb-sources.el
@@ -7,25 +7,25 @@
 ;;;;DESCRIPTION
 ;;;;
 ;;;;    This module exports functions helpful in writting programs.
-;;;;
+;;;;
 ;;;;    See also state-coding.el
 ;;;;
 ;;;;AUTHORS
-;;;;    <PJB> Pascal J. Bourguignon
+;;;;    <PJB> Pascal J. Bourguignon
 ;;;;MODIFICATIONS
 ;;;;    2006-03-21 <PJB> Added convert-alternative.
 ;;;;    2004-11-01 <PJB> Renamed carnot to karnaugh.
 ;;;;                     Nicolas Léonard Sadi Carnot (1796 - 1832)
-;;;;                     -- French Mathematician (2nd law of thermodynamics) vs.
-;;;;                     Maurice Karnaugh
+;;;;                     -- French Mathematician (2nd law of thermodynamics) vs.
+;;;;                     Maurice Karnaugh
 ;;;;                     -- Bell Labs Telecommunication Engineer.
-;;;;                     Thanks to josephoswaldgg@hotmail.com for reminding me
+;;;;                     Thanks to josephoswaldgg@hotmail.com for reminding me
 ;;;;                     the correct name.
 ;;;;    2004-09-16 <PJB> Corrected an out-of-bound bug in case-lisp-region
 ;;;;                     reported by starseeke@cy.iec.udel.edu
 ;;;;    2004-03-23 <PJB> Added insert-columns.
 ;;;;    2003-06-02 <PJB> Corrected pjb-add-change-log-entry
-;;;;    2003-01-20 <PJB> Added walk-sexps, map-sexps, replace-sexps;
+;;;;    2003-01-20 <PJB> Added walk-sexps, map-sexps, replace-sexps;
 ;;;;                     reimplemented get-sexps with walk-sexps.
 ;;;;    2003-01-19 <PJB> Added comment regexp in pjb-sources-data.
 ;;;;    2003-01-18 <PJB> Added pjb-add-change-log-entry.
@@ -110,14 +110,14 @@ RETURN: A string containing the name of the mode, without the -mode suffix.
                    person-count              ;; 1+
                    experience-ratio          ;; [0.0 .. 1.0]
                    )
-  (interactive "sProject name:
-nKey Class Count:
-nReusable Domain Objects:
-nUser Interface Complexity (1 2 3):
-nPerson Count:
+  (interactive "sProject name:
+nKey Class Count:
+nReusable Domain Objects:
+nUser Interface Complexity (1 2 3):
+nPerson Count:
 nExperience Ratio [0.0,1.0]: ")
   (let* ((person-day-per-class (+ 15 (* 2.5 (- 1.0 experience-ratio))))
-         (total-class-count    (* key-class-count
+         (total-class-count    (* key-class-count
                                   (+ 1.0 user-interface-complexity)))
          (total-person-days (* total-class-count person-day-per-class))
          (total-months (/ total-person-days 20.000000 person-count)))
@@ -157,7 +157,7 @@ nExperience Ratio [0.0,1.0]: ")
   header-title-format
   header-comment-format
   header-last-format
-  eof-format
+  eof-format
   comment-regexp)


@@ -167,14 +167,14 @@ nExperience Ratio [0.0,1.0]: ")
      "--%s"
      "--    %s"
      "--%s"
-     "---- %-32s -- %19s -- %-8s ----"
+     "---- %-32s -- %19s -- %-8s ----"
      "--.*$")
     ((dcl-mode simula-mode )
      "!!%s"
      "!!%s"
      "!!    %s"
      "!!%s"
-     "!!!! %-32s -- %19s -- %-8s !!!!"
+     "!!!! %-32s -- %19s -- %-8s !!!!"
      "!.*$")
     ((c++-mode c-initialize-cc-mode c-mode cperl-mode cwarn-mode
                idl-mode idlwave-mode java-mode objc-mode pike-mode
@@ -183,19 +183,19 @@ nExperience Ratio [0.0,1.0]: ")
      "//%s"
      "//    %s"
      "//%s"
-     "/*** %-32s -- %19s -- %-8s ***/"
+     "/*** %-32s -- %19s -- %-8s ***/"
      "\\(/\\*.*?\\*/\\)\\|\\(//.*$\\)")
     (,(append '(asm-mode dsssl-mode zone-mode) *lisp-modes*)
       ";;;;%s"
       ";;;;%s"
       ";;;;    %s"
       ";;;;%s"
-      ";;;; %-32s -- %19s -- %-8s ;;;;"
+      ";;;; %-32s -- %19s -- %-8s ;;;;"
       "\\(#|\\([^|]\\||[^#]\\)*|#\\)\\|\\(;.*$\\)")
     ((text-mode)
      "\\(/\\*.*?\\*/\\)\\|\\(//.*$\\)") ;; \(/\*.*?\*/\)\|\(//.*$\)

-    ;; ( LSOURCE    ";;;; %-32s -- %19s -- %-8s ;;;;"
+    ;; ( LSOURCE    ";;;; %-32s -- %19s -- %-8s ;;;;"
     ;;  (asm-mode dsssl-mode emacs-lisp-mode ledit-mode
     ;;   lisp-interaction-mode lisp-mode scheme-mode
     ;;   common-lisp-mode fi:common-lisp-mode
@@ -205,16 +205,16 @@ nExperience Ratio [0.0,1.0]: ")
     ;;  ";;;;%s"
     ;;  ";;;;    %s"
     ;;  "\\(#|\\([^|]\\||[^#]\\)*|#\\)\\|\\(;.*$\\)")
-    ;; ( TEXT       "" ;;";;;; %-32s -- %19s -- %-8s ;;;;"
+    ;; ( TEXT       "" ;;";;;; %-32s -- %19s -- %-8s ;;;;"
     ;;  (text-mode)
     ;;  "%s"
     ;;  "%s"
     ;;  "%s"
     ;;  "    %s"
     ;;  "%s"
-    ;;  "" ;;";;;; %-32s -- %19s -- %-8s ;;;;"
+    ;;  "" ;;";;;; %-32s -- %19s -- %-8s ;;;;"
     ;;  "\\(^;.*$\\)")
-
+
     ((awk-mode eshell-mode icon-mode m4-mode makefile-mode makefile-gmake-mode makefile-bsdmake-mode
                octave-mode perl-mode sh-mode shell-script-mode ruby-mode
                tcl-mode )
@@ -222,16 +222,16 @@ nExperience Ratio [0.0,1.0]: ")
      "#%s"
      "#    %s"
      "#%s"
-     "#### %-32s -- %19s -- %-8s ####"
+     "#### %-32s -- %19s -- %-8s ####"
      "#.*$")
     ((caml-mode delphi-mode modula-2-mode pascal-mode)
      "(*%s"
      "%s"
      "    %s"
      "%s*)"
-     "(*** %-32s -- %19s -- %-8s ***)"
+     "(*** %-32s -- %19s -- %-8s ***)"
      "(\\*.*?\\*)")
-    ((f90-mode fortran-mode)
+    ((f90-mode fortran-mode)
      "C%s"
      "C%s"
      "C    %s"
@@ -243,16 +243,16 @@ nExperience Ratio [0.0,1.0]: ")
      "\\\"\"\"%s"
      "\\\"\"\"    %s"
      "\\\"\"\"%s"
-     "\\\"\"\" %-32s -- %19s -- %-8s \"\"\"\""
+     "\\\"\"\" %-32s -- %19s -- %-8s \"\"\"\""
      "\\\".*$")
     ((html-autoview-mode html-mode sgml-mode sgml-name-8bit-mode )
      "<!--%s"
      "%s"
      "    %s"
      "%s-->"
-     "<!-- %-32s == %19s == %-8s -->"
+     "<!-- %-32s == %19s == %-8s -->"
      "<!--.*?-->")
-    ((latex-mode matlab-mode metafont-mode metapost-mode
+    ((latex-mode matlab-mode metafont-mode metapost-mode
                  plain-TeX-mode plain-tex-mode ps-mode
                  reftex-index-phrases-mode reftex-mode
                  slitex-mode tex-mode )
@@ -260,14 +260,14 @@ nExperience Ratio [0.0,1.0]: ")
      "%%%s"
      "%%    %s"
      "%%%s"
-     "%%%%%%%% %-32s -- %19s -- %-8s %%%%%%%%"
+     "%%%%%%%% %-32s -- %19s -- %-8s %%%%%%%%"
      "%%.*$")
     ((scribe-mode)
      "@Comment[%68s]"
      "@Comment[%67s ]"
      "@Comment[    %63s ]"
      "@Comment[%68s]"
-     "@Comment[ %-32s -- %19s -- %-8s ]"
+     "@Comment[ %-32s -- %19s -- %-8s ]"
      "@Comment\\[[^]]*\\]"))
   "This list contains pjb-source structures, that are lists composed of:
    - a tag,
@@ -311,7 +311,7 @@ nExperience Ratio [0.0,1.0]: ")
 (defun cl-looking-at-what ()
   (cond
     ((looking-at "[ \n\t\v\f\r]") :space)
-    ((looking-at ";")  :semicolon-comment) ; ;xxx
+    ((looking-at ";")  :semicolon-comment) ; ;xxx
     ((looking-at "#|") :sharp-comment)     ;  #|xxx|#
     ((looking-at "\"") :string)            ; "xx\"x"
     ((looking-at "(")  :beginning-of-list)
@@ -365,14 +365,14 @@ nExperience Ratio [0.0,1.0]: ")


 (defun cl-what-is-at-point ()
-  (interactive)
+  (interactive)
   (message "%s" (cl-looking-at-what)))

-
+
 (defun case-lisp-region (start end transform)
   "
 do:      applies transform on all subregions from start to end that are not
-         a quoted character, a quote symbol, a comment (;... or #|...|#),
+         a quoted character, a quote symbol, a comment (;... or #|...|#),
          or a string.
 "
   (save-excursion
@@ -469,16 +469,16 @@ DO:      Replace the selection with a case insensitive regexp,
          (insert (subseq replacement 0 rlen))))
     (if (position (char text i) letters)
         (progn
-          (setf (char replacement rlen) (character "["))
+          (setf (char replacement rlen) (character "["))
           (incf rlen)
-          (setf (char replacement rlen) (char-upcase   (char text i)))
+          (setf (char replacement rlen) (char-upcase   (char text i)))
           (incf rlen)
-          (setf (char replacement rlen) (char-downcase (char text i)))
+          (setf (char replacement rlen) (char-downcase (char text i)))
           (incf rlen)
-          (setf (char replacement rlen) (character "]"))
+          (setf (char replacement rlen) (character "]"))
           (incf rlen))
         (progn
-          (setf (char replacement rlen) (char text i))
+          (setf (char replacement rlen) (char text i))
           (incf rlen)))))


@@ -518,7 +518,7 @@ DO:      Replace the selection with a case insensitive regexp,

 ;; (pp (pjb-rx-not-string "hello"))
 ;; (pp (pjb-rx-not-string "WORLD"))
-;;
+;;
 ;; (both
 ;;  (or
 ;;   (not
@@ -538,7 +538,7 @@ DO:      Replace the selection with a case insensitive regexp,
 ;;                     (seq "l"
 ;;                          (not
 ;;                           (any "o"))))))))))
-;;
+;;
 ;;  (or
 ;;   (not
 ;;    (any "W"))
@@ -557,10 +557,10 @@ DO:      Replace the selection with a case insensitive regexp,
 ;;                     (seq "L"
 ;;                          (not
 ;;                           (any "D")))))))))))
-;;
-;;
+;;
+;;
 ;; (defun pjb-rx-both  (r1 r2)
-;;
+;;
 ;;   )


@@ -576,10 +576,10 @@ DO:      Replace the selection with a case insensitive regexp,
     "DELTA-UNDERBAR" "DIAMOND-UNDERBAR" "JOT-UNDERBAR" "CIRCLE-UNDERBAR"
     "UP-SHOE-JOT" "QUOTE-QUAD" "CIRCLE-STAR" "QUAD-COLON" "UP-TACK-DIAERESIS"
     "DEL-DIAERESIS" "STAR-DIAERESIS" "JOT-DIAERESIS" "CIRCLE-DIAERESIS"
-    "DOWN-SHOE-STILE" "LEFT-SHOE-STILE" "TILDE-DIAERESIS"
-    "GREATER-THAN-DIAERESIS" "COMMA-BAR" "DEL-TILDE" "ZILDE"
+    "DOWN-SHOE-STILE" "LEFT-SHOE-STILE" "TILDE-DIAERESIS"
+    "GREATER-THAN-DIAERESIS" "COMMA-BAR" "DEL-TILDE" "ZILDE"
     "STILE-TILDE" "SEMICOLON-UNDERBAR"
-    "QUAD-NOT-EQUAL" "QUAD-QUESTION" "DOWN-CARET-TILDE" "UP-CARET-TILDE"
+    "QUAD-NOT-EQUAL" "QUAD-QUESTION" "DOWN-CARET-TILDE" "UP-CARET-TILDE"
     nil nil nil "ALPHA-UNDERBAR" "EPSILON-UNDERBAR" "IOTA-UNDERBAR"
     "OMEGA-UNDERBAR" nil)
   "APL functional characters from unicode.")
@@ -666,7 +666,7 @@ DO:      Replace the selection with a case insensitive regexp,

 (defun apl-letter-font-lock ()
   "
-RETURN: A font-lock-keywords list mapping greek letter names
+RETURN: A font-lock-keywords list mapping greek letter names
         to greek characters.
 "
   (when (<= 21 emacs-major-version)
@@ -678,8 +678,8 @@ RETURN: A font-lock-keywords list mapping greek letter names
                                   'decompose-region)
                   nil)))
      (let ((code1 123) (code2 (1- 54)))
-       (mapcan
-        (lambda (letter)
+       (mapcan
+        (lambda (letter)
           (incf code2)
           (when letter
             `((,(format *letter-regexp-format* letter)
@@ -692,9 +692,9 @@ RETURN: A font-lock-keywords list mapping greek letter names



-(defconstant *greek-letters*
+(defconstant *greek-letters*
   '( "alpha" "beta" "gamma" "delta" "epsilon" "zeta" "eta"
-    "theta" "iota" "kappa" "lambda" "mu" "nu" "xi" "omicron" "pi"
+    "theta" "iota" "kappa" "lambda" "mu" "nu" "xi" "omicron" "pi"
     "rho"  "terminalsigma" "sigma" "tau"
     "upsilon" "phi" "chi" "psi" "omega" )
   "The order of these strings is fixed by the encoding of greek-iso8859-7!")
@@ -702,13 +702,13 @@ RETURN: A font-lock-keywords list mapping greek letter names

 (defun greek-letter-font-lock ()
   "
-RETURN: A font-lock-keywords list mapping greek letter names
+RETURN: A font-lock-keywords list mapping greek letter names
         to greek characters.
 "
   (when (and (<= 21 emacs-major-version) (<= emacs-major-version 22))
     (let ((maj 64) (min 96))
-      (mapcan
-       (lambda (letter)
+      (mapcan
+       (lambda (letter)
          (incf maj) (incf min)
          `(
            (,(format *letter-regexp-format* (upcase letter))
@@ -756,7 +756,7 @@ Show LAMBDA keyword as a greek letter lambda in lisp source code.



-;; (dolist (item   (greek-letter-font-lock))
+;; (dolist (item   (greek-letter-font-lock))
 ;;   (insert (format "%S\n" item)))


@@ -807,7 +807,7 @@ DO:      Update comments at the end of each defmacro,defun,defwhatever
                 (let ((sexp (progn (when (looking-at "#!") (forward-line 1))
                                    (sexp-at-point))))
                   (when verbose
-                    (message "point:%6d --  sexp: %s"
+                    (message "point:%6d --  sexp: %s"
                              (point) (if (consp sexp) (car sexp) sexp)))
                   (forward-sexp)
                   (when (and (< update-def-names-minimum-lines
@@ -821,11 +821,11 @@ DO:      Update comments at the end of each defmacro,defun,defwhatever
                     (insert (format ";;%s"
                               (def-name (first sexp) (second sexp)))))))
               (handler-case (forward-sexp)
-                (scan-error (err)
+                (scan-error (err)
                   (setq error-point (point))
                   (message "signal 1 %S %S" 'scan-error err)
                   (signal 'scan-error err)) )))
-        (error (err)
+        (error (err)
           (when error-point
             (goto-char error-point)
             (skip-to-next-sexp))
@@ -835,7 +835,7 @@ DO:      Update comments at the end of each defmacro,defun,defwhatever
 ;;;
 ;;;---------------------------------------------------------------------

-
+



@@ -843,7 +843,7 @@ DO:      Update comments at the end of each defmacro,defun,defwhatever
 ;; map-sexps
 ;; ------------------------------------------------------------------------
 ;; Applies a function on all s-exps from a lisp source file.
-;;
+;;

 (defun skip-comments ()
   "
@@ -854,7 +854,7 @@ RETURN: (not eof)
   (interactive)
   (let* ((data (header-comment-description-for-mode major-mode))
          (comment-regexp (hcd-comment-regexp data))
-         (space-or-comment (format "\\(%s\\)\\|\\(%s\\)"
+         (space-or-comment (format "\\(%s\\)\\|\\(%s\\)"
                              "[ \t\n\v\f\r]+"
                              comment-regexp)) )
     (unless data
@@ -880,7 +880,7 @@ RETURN: (not eof)
 (defun cl-sexp-at-point ()
   (let ((*READTABLE* *source-readtable*))
     (READ-FROM-STRING
-     (buffer-substring-no-properties
+     (buffer-substring-no-properties
       (progn (forward-sexp  1) (point))
       (progn (forward-sexp -1) (point))))))

@@ -888,7 +888,7 @@ RETURN: (not eof)
 ;; (MERGE-PATHNAMES (mkpathname nil nil nil nil "elc" nil)
 ;;                  (mkpathname nil nil nil nil nil nil) nil)
 ;; (LOAD "/home/pjb/src/public/lisp/common-lisp/source.lisp")
-;;
+;;
 ;; (PATHNAME  (mkpathname nil nil nil nil nil nil))
 ;; (merge-directories nil nil)

@@ -903,18 +903,18 @@ RETURN: (not eof)

 (defun walk-sexps (fun)
   "
-DO:     Recursively scan sexps from (point) in current buffer up to
-        the end-of-file or until scan-sexps raises a scan-error.
+DO:     Recursively scan sexps from (point) in current buffer up to
+        the end-of-file or until scan-sexps raises a scan-error.
         Call fun on each sexps and each of their children etc.
-fun:    A function (sexp start end)
+fun:    A function (sexp start end)
         sexp:    The sexp parsed from a source file.
         start:   The point starting the sexp.
         end:     The point ending the sexp.
-NOTE:   All positions are kept in markers, so modifying the buffer between
+NOTE:   All positions are kept in markers, so modifying the buffer between
         start and end should be OK.
-        However  ' or ` are passed as (quote ...) or (backquote ...)
-        to the function fun without reparsing the sexp inside them.
-        Ie. if you modify such a source, (which can be detected looking at
+        However  ' or ` are passed as (quote ...) or (backquote ...)
+        to the function fun without reparsing the sexp inside them.
+        Ie. if you modify such a source, (which can be detected looking at
         the character at start position),  you still get the original sexp.
 "
   (let ((quote-stack '())
@@ -943,13 +943,13 @@ NOTE:   All positions are kept in markers, so modifying the buffer between
       (setq sexp (cl-sexp-at-point))
       ;; push the quotes on the sexp:
       (setq quote-depth (length quote-stack))
-      (while quote-stack
+      (while quote-stack
         (setq sexp (cons (pop quote-stack) (list sexp))))
       ;; process the quotes:
       (setq start-stack (nreverse start-stack))
       (dotimes (i quote-depth)
         (message "sexp = %S\nstart = %S\nend = %S\n" sexp (marker-position (car start-stack)) *walk-sexps-end-marker*)
-        (funcall fun sexp
+        (funcall fun sexp
                  (marker-position (car start-stack)) *walk-sexps-end-marker*)
         (set-marker (pop start-stack) nil)
         (setq sexp (cadr sexp)))
@@ -982,14 +982,14 @@ NOTE:   All positions are kept in markers, so modifying the buffer between

 (defun* new-map-sexps (source-file fun &key (deeply t) (atoms nil))
    "
-DO:     Scan all sexps in the source file.
+DO:     Scan all sexps in the source file.
         (skipping spaces and comment between top-level sexps).
-        If the deeply flag is set,
+        If the deeply flag is set,
         then subsexps are also passed to the function fun, after the sexp,
-        else only the top-level sexps are
+        else only the top-level sexps are
         If the atoms flags is set
         then atoms are also considered (and passed to the selector).
-fun:    A function (sexp start end)
+fun:    A function (sexp start end)
         sexp:    The sexp parsed from a source file.
         start:   The point starting the sexp.
         end:     The point ending the sexp.
@@ -1002,14 +1002,14 @@ RETURN: The list of results from fun.

 (defun* new-map-sexps (source-file fun &key (deeply t) (atoms nil))
    "
-DO:     Scan all sexps in the source file.
+DO:     Scan all sexps in the source file.
         (skipping spaces and comment between top-level sexps).
-        If the deeply flag is set,
+        If the deeply flag is set,
         then subsexps are also passed to the function fun, after the sexp,
-        else only the top-level sexps are
+        else only the top-level sexps are
         If the atoms flags is set
         then atoms are also considered (and passed to the selector).
-fun:    A function (sexp start end)
+fun:    A function (sexp start end)
         sexp:    The sexp parsed from a source file.
         start:   The point starting the sexp.
         end:     The point ending the sexp.
@@ -1025,14 +1025,14 @@ RETURN: The list of results from fun.

 (defun* map-sexps (source-file fun &key (deeply t) (atoms nil))
   "
-DO:     Scan all sexps in the source file.
+DO:     Scan all sexps in the source file.
         (skipping spaces and comment between top-level sexps).
-        If the deeply flag is set,
+        If the deeply flag is set,
         then subsexps are also passed to the function fun, after the sexp,
-        else only the top-level sexps are
+        else only the top-level sexps are
         If the atoms flags is set
         then atoms are also considered (and passed to the selector).
-fun:    A function (sexp start end)
+fun:    A function (sexp start end)
         sexp:    The sexp parsed from a source file.
         start:   The point starting the sexp.
         end:     The point ending the sexp.
@@ -1067,13 +1067,13 @@ RETURN: The list of results from fun.

 (defun old-old-map-sexps (source-file fun)
   "
-DO:     Scan all top-level sexps in the source file.
+DO:     Scan all top-level sexps in the source file.
         (skipping spaces and comment between top-level sexps).
-fun:    A function (sexp start end)
+fun:    A function (sexp start end)
         sexp:    The sexp parsed from a source file.
         start:   The point starting the sexp.
         end:     The point ending the sexp.
-:deeply
+:deeply
 NOTE:   Scanning stops as soon as an error is detected by forward-sexp.
 RETURN: The list of results from fun.
 "
@@ -1098,7 +1098,7 @@ RETURN: The list of results from fun.
                for sexp  = (condition-case nil (sexp-at-point) (error eof))
                until (eq eof sexp)
                collect (funcall fun sexp start end) into map-sexps-result
-               do (condition-case nil
+               do (condition-case nil
                       (forward-sexp 1)
                     (error               (goto-char (point-max)))
                     (wrong-type-argument (goto-char (point-max))))
@@ -1128,17 +1128,17 @@ RETURN: The list of results from fun.
 ;; selector function.
 ;;

-(defun get-sexps (source-file &key (selector (function (lambda (s) t)))
+(defun get-sexps (source-file &key (selector (function (lambda (s) t)))
                                 (deeply   nil)
                                 (atoms    nil))
   "
 KEYS:    :selector (function: sexp --> boolean, default: (lambda (s) t))
          :deeply   (boolean,  default nil)
          :atoms    (boolean,  default nil)
-DO:      Scan all sexp in the source-file.
-         A selector function may indicate which sexp must be collected.
-         If the deeply flag is set,
-         then if a sexp is not selected then sub-sexp are scanned and tested.
+DO:      Scan all sexp in the source-file.
+         A selector function may indicate which sexp must be collected.
+         If the deeply flag is set,
+         then if a sexp is not selected then sub-sexp are scanned and tested.
          If the atoms flags is set
          then atoms are also considered (and passed to the selector).
 NOTE:    Scanning stops as soon as an error is detected by forward-sexp.
@@ -1146,8 +1146,8 @@ RETURN:  A list of selected sexp.
 "
   (save-excursion
     (let ((get-sexps-result '()))
-      (map-sexps
-       source-file
+      (map-sexps
+       source-file
        (lambda (sexp start end)
          (when (funcall selector sexp)
            (push sexp get-sexps-result)))
@@ -1168,7 +1168,7 @@ RETURN:  A list of selected sexp.
 ;;;       result))
 ;;;   (lambda (a b) (< (car a) (car b))))
 ;;;  )
-;;;
+;;;
 ;;; ==> ((1 . 325) (2 . 329) (3 . 231) (4 . 163) (5 . 138) (6 . 158) (7 .
 ;;; 102) (8 . 94) (9 . 63) (10 . 40) (11 . 16) (12 . 20) (13 . 9) (14 . 4)
 ;;; (15 . 5) (16 . 4) (17 . 2) (19 . 2) (23 . 1))
@@ -1180,15 +1180,15 @@ RETURN:  A list of selected sexp.
 ;; KEYS:    :selector (a function, default: true)
 ;;          :deeply   (a boolean,  default nil)
 ;;          :atoms    (a boolean,  default nil)
-;; DO:      Scan all sexp in the source-file.
-;;          A selector function (sexp->bool) may indicate which sexp must
+;; DO:      Scan all sexp in the source-file.
+;;          A selector function (sexp->bool) may indicate which sexp must
 ;;          be collected.  If the deeply flag is set, then if a sexp is not
-;;          selected then sub-sexp are scanned and tested.  If the atoms flags
+;;          selected then sub-sexp are scanned and tested.  If the atoms flags
 ;;          is set then atoms are also considered (and passed to the selector).
 ;; NOTE:    Scanning stops as soon as an error is detected by forward-sexp.
 ;; RETURN:  A list of selected sexp.
 ;; "
-;;   (cl-parsing-keywords ((:selector (function identity))
+;;   (cl-parsing-keywords ((:selector (function identity))
 ;;                         (:deeply   nil)
 ;;                         (:atoms    nil)) nil
 ;;     (save-excursion
@@ -1202,21 +1202,21 @@ RETURN:  A list of selected sexp.
 ;;           (loop with result = nil
 ;;              while (/= (point) (point-max))
 ;;              for sexp = (condition-case nil (sexp-at-point) (error nil))
-;;              do (flet ((deeply-select
+;;              do (flet ((deeply-select
 ;;                            (sexp)
 ;;                          (if (atom sexp)
 ;;                              (if (and cl-atoms (funcall cl-selector sexp))
 ;;                                  (push sexp result))
 ;;                              (let (subsexp)
 ;;                                (while sexp
-;;                                  (if (consp sexp)
+;;                                  (if (consp sexp)
 ;;                                      (setq subsexp (car sexp)
 ;;                                            sexp    (cdr sexp))
 ;;                                      (setq subsexp sexp
 ;;                                            sexp    nil))
 ;;                                  (cond
 ;;                                    ((atom subsexp)
-;;                                     (if (and cl-atoms
+;;                                     (if (and cl-atoms
 ;;                                              (funcall cl-selector subsexp))
 ;;                                         (push subsexp result)))
 ;;                                    ((funcall cl-selector subsexp)
@@ -1231,8 +1231,8 @@ RETURN:  A list of selected sexp.
 ;;                          (push sexp result))
 ;;                         (cl-deeply
 ;;                          (deeply-select sexp)))))
-;;              (condition-case nil
-;;                  (forward-sexp 1)
+;;              (condition-case nil
+;;                  (forward-sexp 1)
 ;;                (error (goto-char (point-max)))
 ;;                (wrong-type-argument (goto-char (point-max))))
 ;;              finally (unless existing-buffer (kill-buffer source-file))
@@ -1251,30 +1251,30 @@ RETURN:  A list of selected sexp.

 ;;; TODO: Use CLISP to pretty print, or find an elisp pretty printer.
 ;;; "(LET ((*PRINT-READABLY* T))
-;;;    (SETF (READTABLE-CASE *READTABLE*) :PRESERVE)
+;;;    (SETF (READTABLE-CASE *READTABLE*) :PRESERVE)
 ;;;    (WRITE (QUOTE ~S )))"


 (defun* replace-sexps (source-file transformer &key (deeply nil) (atoms nil))
   "
 DO:             Scan all sexp in the source-file.
-                Each sexps is given to the transformer function whose result
+                Each sexps is given to the transformer function whose result
                 replaces the original sexps in the source-file.
-                If the deeply flag is set, then the transformer is applied
+                If the deeply flag is set, then the transformer is applied
                 recursively to the sub-sexps.
-                If the atoms flags is set then atoms are also considered
+                If the atoms flags is set then atoms are also considered
                 (and passed to the transformer).
 KEYS:           :deeply    (a boolean,  default nil)
                 :atoms     (a boolean,  default nil)
 transformer:    A function sexp --> sexp.
                 If returing its argument (eq),
                 then no replacement takes place (the comments and formating
-                is then preserved.  Otherwise the source of the sexp is
-                replaced by the returned sexp.
+                is then preserved.  Otherwise the source of the sexp is
+                replaced by the returned sexp.
 NOTE:           For now, no pretty-printing is done.
 "
-  (map-sexps
-   source-file
+  (map-sexps
+   source-file
    (lambda (sexp start end)
      (let ((replacement (funcall transformer sexp)))
        (unless (eq replacement sexp)
@@ -1313,7 +1313,7 @@ NOTE:           For now, no pretty-printing is done.


 (defun unescape-sharp ()
-  (interactive)
+  (interactive)
   (save-excursion
     (goto-char (point-min))
     (while (re-search-forward
@@ -1334,7 +1334,7 @@ NOTE:           For now, no pretty-printing is done.
           (let ((backquoted (eql '\` (car sexp)))
                 (original-sexp sexp))
             (when backquoted (setq sexp (second sexp)))
-            (if (and (consp sexp) (symbolp (car sexp))
+            (if (and (consp sexp) (symbolp (car sexp))
                      (STRING-EQUAL 'IF* (car sexp)))
                 (do* ((subs (cons 'ELSEIF (cdr sexp)))
                       (clauses '())
@@ -1347,11 +1347,11 @@ NOTE:           For now, no pretty-printing is done.
                                (setq clauses (nreverse clauses))
                                (cond
                                  ((and (= 1 (length clauses))
-                                       (every
+                                       (every
                                         (lambda (clause) (not (null (cdr clause))))
                                         ;; clause = (cons condition statements)
                                         clauses)) ;; a when
-                                  `(when ,(car (first clauses))
+                                  `(when ,(car (first clauses))
                                      ,@(cdr (first clauses))))
                                  ((or (= 1 (length clauses))
                                       (< 2 (length clauses))
@@ -1385,7 +1385,7 @@ NOTE:           For now, no pretty-printing is done.
                     (t
                      (error "unexpected token %S in %S" token sexp)))
                   ;; read the statements:
-                  (do () ((or (null subs)
+                  (do () ((or (null subs)
                               (and (consp subs) (symbolp (car subs))
                                    (member* (car subs) '(ELSEIF ELSE)
                                              :test (function STRING-EQUAL)))))
@@ -1412,7 +1412,7 @@ RETURN:  The list of the binary digits of n, from the least significant.
 "
   (unless (integerp n)
     (error "Argument must be integer, not %S." n))
-  (when (< n 0)
+  (when (< n 0)
     (setq n (abs n)))
   (if length
       (loop for m = n then (/ m 2)
@@ -1425,8 +1425,8 @@ RETURN:  The list of the binary digits of n, from the least significant.
          finally return digits)))


-;;; (insert (karnaugh '(a b c d e)
-;;;                 '(( do-1 . (lambda (a b c d e) (and a (or b c))))
+;;; (insert (karnaugh '(a b c d e)
+;;;                 '(( do-1 . (lambda (a b c d e) (and a (or b c))))
 ;;;                   ( do-2 . (lambda (a b c d e) (or (not a) b)))
 ;;;                   ( do-3 . (lambda (a b c d e) (and (not a) b (not c)))))
 ;;;                 '(FAUX . VRAI)))
@@ -1436,12 +1436,12 @@ RETURN:  The list of the binary digits of n, from the least significant.
 ;;;                           '(( 0 0  0 0)
 ;;;                             ( 0 1  0 1)
 ;;;                             ( 1 0  0 1)
-;;;                             ( 1 1  1 0))
+;;;                             ( 1 1  1 0))
 ;;;                           '( 0 . 1))
 ;;; )

-;;; (insert (karnaugh '(a b c)
-;;;                 '((action . (lambda (a b c)
+;;; (insert (karnaugh '(a b c)
+;;;                 '((action . (lambda (a b c)
 ;;;                               (or (and a (and b (not c)))
 ;;;                                   (or (and (not a) (and b (not c)))
 ;;;                                       (or (and (not a) c)
@@ -1472,7 +1472,7 @@ EXAMPLE:    (karnaugh-solve '(a b) '(carry sum)
                           '(( 0 0  0 0)
                             ( 0 1  0 1)
                             ( 1 0  0 1)
-                            ( 1 1  1 0))
+                            ( 1 1  1 0))
                           '( 0 . 1))
             ==> ((carry . (lambda (a b) (and a b)))
                  (sum   . (lambda (a b) (or (and a (not b)) (and (not a) b)))))
@@ -1494,7 +1494,7 @@ SEE ALSO:   `karnaugh' and `gentable'.
          (a-no    (car action-vals))
          (a-yes   (cdr action-vals))
          (i       (length conditions))
-         (act-ind (mapcar (lambda (action)
+         (act-ind (mapcar (lambda (action)
                             (prog1 (list action i) (setq i (1+ i))))
                           actions)))
     (mapc (lambda (line)
@@ -1503,11 +1503,11 @@ SEE ALSO:   `karnaugh' and `gentable'.
                         (nconc action (list line))))
                   act-ind))
           table)
-    (mapcar
+    (mapcar
      (lambda (action)
        (cons (car action)
-             (list 'lambda conditions
-                   (cons 'or
+             (list 'lambda conditions
+                   (cons 'or
                          (mapcar
                           (lambda (line)
                             (cons 'and
@@ -1550,34 +1550,34 @@ SEE ALSO:     `karnaugh-solve' and `gentable'.
   (when (< 8 (length conditions))
     (error "Too many conditions."))
   (setq conditions (mapcar (lambda (item)
-                             (if (stringp item) item (format "%s" item)))
+                             (if (stringp item) item (format "%s" item)))
                            conditions))
   (let* ((size-bool-vals
           (max (length (car bool-vals)) (length (cdr bool-vals))))
          (c-count (length conditions))
          (a-count (length actions))
          (s-count (+ c-count a-count))
-         (a-title
+         (a-title
           (mapcar (lambda (item)
-                    (cond
+                    (cond
                       ((stringp item) item)
                       ((symbolp item) (symbol-name item))
                       ((consp item)
-                       (cond
+                       (cond
                          ((stringp (car item)) (car item))
                          ((symbolp (car item)) (symbol-name (car item)))
                          (t (error "Invalid action %S." item)))
                        )
                       (t (error "Invalid action %S." item))))
                   actions))
-         (a-indic (make-array (list a-count)
+         (a-indic (make-array (list a-count)
                               :initial-contents (mapcar (lambda (item)
                                                           (if (consp item)
                                                               (cdr item) nil))
                                                         actions)))
          (a-complex (loop for i across a-indic until i finally return i))
          ;; whether a-indic contains at least one indicator.
-         (sizes
+         (sizes
           (let ((sizes (make-array (list s-count))))
             (loop for cnd in conditions
                for i = 0 then (1+ i)
@@ -1586,24 +1586,24 @@ SEE ALSO:     `karnaugh-solve' and `gentable'.
                for i = c-count then (1+ i)
                do (setf (aref sizes i) (max 3 (length act))))
             sizes))
-         (line-length
+         (line-length
           (loop for i from 0 below s-count
              sum  (+ 3 (aref sizes i)) into l
              finally return (1+ l)))
-         (line
+         (line
           (loop with line = (make-string line-length (character "-"))
              for i from 0 below s-count
-             for position = (+ (aref sizes i) 3)
+             for position = (+ (aref sizes i) 3)
              then (+ position  (aref sizes i) 3)
              ;;do (printf "sizes=%S i=%d p=%d\n" sizes i position)
              do      (setf (aref line position) (character "+"))
              finally (setf (aref line 0) (character "+"))
              finally return line))
-         (act-part
+         (act-part
           (if a-complex
               nil
               (loop for i from c-count below s-count
-                 collect (concatenate
+                 collect (concatenate
                              'string
                            (make-string (+ 2 (aref sizes i)) (character " "))
                            "|")
@@ -1611,33 +1611,33 @@ SEE ALSO:     `karnaugh-solve' and `gentable'.
                  finally return (apply 'concatenate 'string parts))))
          (new-line (make-string 1 (character 10))))
     ;;(printf "line-length=%d\n" line-length)
-    (concatenate 'string
+    (concatenate 'string
       line new-line
-      "|"
+      "|"
       (loop for item in conditions
          for i from 0 below c-count
-         collect (concatenate 'string
-                   " " (string-pad item (aref sizes i) :justification :center) " |")
+         collect (concatenate 'string
+                   " " (string-pad item (aref sizes i) :justification :center) " |")
          into title
          finally return (apply 'concatenate 'string title))
-
+
       (loop for item in a-title
          for i from c-count below s-count
-         collect (concatenate 'string
-                   " " (string-pad item (aref sizes i) :justification :center) " |")
+         collect (concatenate 'string
+                   " " (string-pad item (aref sizes i) :justification :center) " |")
          into title
          finally return  (apply 'concatenate 'string title))
       new-line
       line new-line
       (loop for i from (1- (expt 2 c-count)) downto 0
          for conditions = (nreverse (integer-to-bool-list i :length c-count))
-         collect (concatenate 'string
+         collect (concatenate 'string
                    ;; conditions
-                   (loop
+                   (loop
                       for k from 0 below c-count
-                      for c in conditions
+                      for c in conditions
                       for l = (+ 3 (aref sizes k))
-                      for s = (string-pad
+                      for s = (string-pad
                                (if c (cdr bool-vals) (car bool-vals))
                                l :justification :center)
                       do (setf (char s (1- l)) (character "|"))
@@ -1646,12 +1646,12 @@ SEE ALSO:     `karnaugh-solve' and `gentable'.
                    ;; actions
                    (if act-part
                        act-part
-                       (loop
+                       (loop
                           for k from 0 below a-count
                           for l = (+ 3 (aref sizes (+ c-count k)))
                           for f = (aref a-indic k)
                           for s = (string-pad
-                                   (if f (if (apply f conditions)
+                                   (if f (if (apply f conditions)
                                              (cdr action-vals)
                                              (car action-vals)) "")
                                    l :justification :center)
@@ -1670,7 +1670,7 @@ SEE ALSO:     `karnaugh-solve' and `gentable'.
 RETURN:  (elt args 0) x (elt args 1) x ... x (elt args (1- (length args)))
          = the set of tuples built taking one item in order from each list
            in args.
-EXAMPLE: (COMBINE '(WWW FTP) '(EXA) '(COM ORG)))
+EXAMPLE: (COMBINE '(WWW FTP) '(EXA) '(COM ORG)))
            --> ((WWW EXA COM) (WWW EXA ORG) (FTP EXA COM) (FTP EXA ORG))
 "
   (cond
@@ -1728,7 +1728,7 @@ EXAMPLE: (COMBINE '(WWW FTP) '(EXA) '(COM ORG)))
              (nconc (mapcar (lambda (x) (format "%s" x)) conditions)
                     (mapcar
                      (lambda (action)
-                       (format "%s"
+                       (format "%s"
                          (apply (cond
                                   ((symbolp (second action))
                                    (eval `(function ,(second action))))
@@ -1861,7 +1861,7 @@ and last year of the copyright.
                       (remove-if (lambda (word)
                                    (and (<= (length word) 2)
                                         (char= (aref word 1) (character "."))))
-                                 (split-string  user-full-name " ")))
+                                 (split-string  user-full-name " ")))
            (delete-region start end)
            (insert (pjb-format-copyright hcd owner first-year current-year))))))))

@@ -1938,10 +1938,10 @@ vf=16 => increment the version.
 ;; ------------------------------------------------------------------------
 ;; pjb-add-change-log-entry
 ;; ------------------------------------------------------------------------
-;; Inserts a change log entry in the current source,
+;; Inserts a change log entry in the current source,
 ;; and in the GNU-style ChangeLog file.

-(defvar *pjb-sources-initials* nil
+(defvar *pjb-sources-initials* nil
   "Initials of the developer, to be inserted in MODIFICATIONS log entries
 by pjb-add-change-log-entry.")

@@ -1960,17 +1960,17 @@ by pjb-add-change-log-entry.")
          (apply (function concatenate)
                 'string
                 first-margin
-                (list-insert-separator
+                (list-insert-separator
                  lines  (concatenate 'string "\n" other-margin)))))))

-
+
 (defun pjb-add-change-log-entry (&optional log-entry)
   (interactive "*")
   (widen)
   (goto-char (point-min))
   (let* ((data (header-comment-description-for-mode major-mode))
          (comment-format (hcd-header-comment-format data))
-         (entry-head (format "%s <%s> "
+         (entry-head (format "%s <%s> "
                        (funcall add-log-time-format)
                        (or *pjb-sources-initials*
                            (user-real-login-name)
@@ -2011,13 +2011,13 @@ by pjb-add-change-log-entry.")
         (setq end (match-beginning 0))
         (goto-char start)
         (while (re-search-forward "\\<\\([0-9][0-9]\\)/\\([0-9][0-9]\\)/\\([0-9][0-9][0-9][0-9]\\)\\> <" end t)
-          (replace-match
-           (format "%s-%s-%s <"
+          (replace-match
+           (format "%s-%s-%s <"
              (match-string 3) (match-string 2) (match-string 1))))
         (goto-char start)
         (while (re-search-forward "\\<\\([0-9][0-9][0-9][0-9]\\)/\\([0-9][0-9]\\)/\\([0-9][0-9]\\)\\> <" end t)
-          (replace-match
-           (format "%s-%s-%s <"
+          (replace-match
+           (format "%s-%s-%s <"
              (match-string 1) (match-string 2) (match-string 3))))))))


@@ -2028,7 +2028,7 @@ by pjb-add-change-log-entry.")
 (defun pjb-insert-package (pname)
   (interactive "sPackage name: ")
   (setq pname (string-upcase pname))
-  (let ((nick (subseq pname (1+ (or (position (character ".")
+  (let ((nick (subseq pname (1+ (or (position (character ".")
                                               pname :from-end t) -1)))))
     (format-insert
      ("(DEFINE-PACKAGE \"%s\"\n" pname)
@@ -2067,10 +2067,10 @@ by pjb-add-change-log-entry.")



-(defparameter pjb-sources-licenses
+(defparameter pjb-sources-licenses
   ;; http://spdx.org/licenses/
   ;; SPDX-License-Identifier: BSD-2-Clause
-  '(("GPL2"
+  '(("GPL2"
      t
      "This program is free software; you can redistribute it and/or"
      "modify it under the terms of the GNU General Public License"
@@ -2087,7 +2087,7 @@ by pjb-add-change-log-entry.")
      "Software Foundation, Inc., 59 Temple Place, Suite 330,"
      "Boston, MA 02111-1307 USA")

-    ("LGPL2"
+    ("LGPL2"
      t
      "This library is free software; you can redistribute it and/or"
      "modify it under the terms of the GNU Lesser General Public"
@@ -2106,7 +2106,7 @@ by pjb-add-change-log-entry.")
      "Free Software Foundation, Inc., 59 Temple Place, Suite 330,"
      "Boston, MA 02111-1307 USA")

-    ("LLGPL"
+    ("LLGPL"
      t

      "This library is licenced under the Lisp Lesser General Public"
@@ -2226,7 +2226,7 @@ by pjb-add-change-log-entry.")
      "are those of the authors and should not be interpreted as representing"
      "official policies,  either expressed or implied, of the FreeBSD"
      "Project.")
-
+
     ("BSD-3"
      t
      "Redistribution and use in source and binary forms, with or"
@@ -2259,12 +2259,12 @@ by pjb-add-change-log-entry.")
      "IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF"
      "THE POSSIBILITY OF SUCH DAMAGE.")

-    ("Public Domain"
+    ("Public Domain"
      nil
      "This software is in Public Domain."
      "You're free to do with it as you please.")

-    ("Reserved"
+    ("Reserved"
      t
      "All Rights Reserved."
      ""
@@ -2273,7 +2273,7 @@ by pjb-add-change-log-entry.")
      "for any non-commercial purpose, provided that this header is"
      "always included.")

-    ("Proprietary"
+    ("Proprietary"
      t
      "All Rights Reserved."
      ""
@@ -2335,7 +2335,7 @@ by pjb-add-change-log-entry.")
   (insert (format comment-format ""))
   (insert "\n")
   (when (pop lic-data)
-    (dolist (line formated-copyright-lines)
+    (dolist (line formated-copyright-lines)
       (insert line)
       (insert "\n"))
     (insert (format comment-format ""))
@@ -2372,7 +2372,7 @@ DO:               Inserts a header at the beginning of the file with
          (comment-format (hcd-header-comment-format data))
          (file-name      (basename (or (buffer-file-name (current-buffer))
                                        "Untitled")))
-         (language       (subseq (symbol-name major-mode)
+         (language       (subseq (symbol-name major-mode)
                                  0 (search "-mode" (symbol-name major-mode))))
          (author-abrev   *pjb-sources-initials*)
          (author         (or add-log-full-name (user-full-name)))
@@ -2412,7 +2412,7 @@ DO:               Inserts a header at the beginning of the file with
         (insert "\n")
         (insert (format title-format (format "%-20s%s" "SYSTEM:" system)))
         (insert "\n")
-        (insert (format title-format (format "%-20s%s" "USER-INTERFACE:"
+        (insert (format title-format (format "%-20s%s" "USER-INTERFACE:"
                                              user-interface)))
         (insert "\n")
         (insert (format title-format "DESCRIPTION"))
@@ -2425,14 +2425,14 @@ DO:               Inserts a header at the beginning of the file with
         (insert "\n")
         (insert (format title-format "AUTHORS"))
         (insert "\n")
-        (insert (format comment-format (format "<%s> %s <%s>"
+        (insert (format comment-format (format "<%s> %s <%s>"
                                          author-abrev author email)))
         (insert "\n")
         (insert (format title-format "MODIFICATIONS"))
         (insert "\n")
         (insert (format title-format "BUGS"))
         (insert "\n")
-        (pjb-insert-license
+        (pjb-insert-license
          license lic-data
          (list (pjb-format-copyright data owner start-year end-year))
          title-format comment-format)
@@ -2455,7 +2455,7 @@ DO:               Inserts a header at the beginning of the file with
 DO:         Assuming there's already a header with a LEGAL section,
             change the license.
 "
-  (interactive (list
+  (interactive (list
                 (completing-read "License: " pjb-sources-licenses
                                  nil t nil nil "GPL")))
   (let* ((data           (header-comment-description-for-mode major-mode))
@@ -2465,7 +2465,7 @@ DO:         Assuming there's already a header with a LEGAL section,
          (comment-format (hcd-header-comment-format data))
          (file-name      (basename (or (buffer-file-name (current-buffer))
                                        "Untitled")))
-         (language       (subseq (symbol-name major-mode)
+         (language       (subseq (symbol-name major-mode)
                                  0 (search "-mode" (symbol-name major-mode))))
          (author-abrev   *pjb-sources-initials*)
          (author         (or add-log-full-name (user-full-name)))
@@ -2482,19 +2482,19 @@ DO:         Assuming there's already a header with a LEGAL section,
       (save-restriction
         (widen)
         (goto-char (point-min))
-        (if (re-search-forward
+        (if (re-search-forward
              (format "^%s" (regexp-quote (format title-format "LEGAL")))
              nil t)
             (progn (beginning-of-line)  (setq start (point)))
             (error "Can't find a LEGAL section. Please use M-x pjb-add-header"))
-        (if (re-search-forward
-             (format "^%s"
-               (format (regexp-quote last-format)
-                 (format "%s.*"
+        (if (re-search-forward
+             (format "^%s"
+               (format (regexp-quote last-format)
+                 (format "%s.*"
                    (regexp-quote "*************"))))
              nil t)
             (progn (beginning-of-line) (setq end (point)))
-            (error
+            (error
              "Can't find the end of the header. Please use M-x pjb-add-header"))
         (goto-char start)
         (setf copyrights  (let ((old-copyrights (pjb-extract-copyrights data)))
@@ -2511,7 +2511,7 @@ DO:         Assuming there's already a header with a LEGAL section,
         (delete-region start end)
         (pjb-insert-license  license lic-data copyrights
                              title-format comment-format))))
-  :changed)
+  :changed)


 ;; ------------------------------------------------------------------------
@@ -2525,9 +2525,9 @@ DO:         Assuming there's already a header with a LEGAL section,
 ;;; (mapc (lambda (s) (printf "%s\n" s))
 ;;;       (sort
 ;;;        (let ((res '()))
-;;;          (mapatoms (lambda (sym)
+;;;          (mapatoms (lambda (sym)
 ;;;                      (when (and (fboundp sym)
-;;;                                 (string-has-suffix
+;;;                                 (string-has-suffix
 ;;;                                   (symbol-name sym) "-mode"))
 ;;;                        (push sym res))))
 ;;;          res)
@@ -2538,7 +2538,7 @@ DO:         Assuming there's already a header with a LEGAL section,

 ;;; (defun pjb-ue-file-kind (name)
 ;;;   "
-;;; DO:     Determine the file kind based on matching patterns in
+;;; DO:     Determine the file kind based on matching patterns in
 ;;;         pjb-ue-extensions. If this cannot be done, looks at the major-mode.
 ;;; "
 ;;;   (let ((e pjb-ue-extensions)
@@ -2554,10 +2554,10 @@ DO:         Assuming there's already a header with a LEGAL section,
 ;;;                   e nil
 ;;;                   l nil))
 ;;;         (setq l (cdr l))))
-;;;     r));;pjb-ue-file-kind
+;;;     r));;pjb-ue-file-kind


-(defvar *pjb-ue-silent* nil
+(defvar *pjb-ue-silent* nil
   "When true, no error is issued if the file kind can't be determined.")


@@ -2596,18 +2596,18 @@ DO:         Assuming there's already a header with a LEGAL section,

 (defun pjb-ue-make-regexp-for-current-buffer (format-string)
   (concat "^"
-          (unsplit-string
-           (mapcar 'regexp-quote
+          (unsplit-string
+           (mapcar 'regexp-quote
                    (pjb-ue-split-format-string format-string)) ".*")
           "$"))


-;; Don't test pjb-update-eof without an eof string in this file,
+;; Don't test pjb-update-eof without an eof string in this file,
 ;; since it contains matching format string much higher in the text...

 (defun pjb-update-eof (&optional *pjb-ue-silent*)
   "
-DO:         Insert a comment at the end of the source file with
+DO:         Insert a comment at the end of the source file with
             the name of the file, the author, and the date.
 silent:     When non-nil, don't issue any message whent the file type can't
             be determined.
@@ -2642,7 +2642,7 @@ silent:     When non-nil, don't issue any message whent the file type can't
 ;;;       (insert "***************************************************************************\n")
 ;;;       (insert "                  A TITLE COMMENT                    \n")
 ;;;       (insert "****************************************************/\n")
-;;;       (let ((i 0))
+;;;       (let ((i 0))
 ;;;         (while (< i 100)
 ;;;           (insert " a b c d e f g h i j k l m n o p q r s t u v w x y z \n")
 ;;;           (insert " A B C D E F G H I J K L M N O P Q R S T U V W X Y Z \n")
@@ -2659,29 +2659,29 @@ silent:     When non-nil, don't issue any message whent the file type can't
 ;;;           (insert "/*** REPLACE -- REPLACE -- REPLACE ***/")))))
 ;;;   )

-
-
+
+

 ;;    We need to parse C arguments.
-;;
+;;
 ;;    We may have string or character literals (in which we must ignore
 ;;    parenthesis coma and new-lines).
-;;
+;;
 ;;    We may have other parenthesis (expected well formed).
-;;
+;;
 ;;    We may have coma, inside parenthesis.
-;;
+;;
 ;; Syntax:
-;;
+;;
 ;;    arglist  ::= '(' argument [ ',' argument ] ...  ')' .
-;;    argument ::=  [ stuff | arglist ] ...
+;;    argument ::=  [ stuff | arglist ] ...
 ;;    stuff    ::=  string | char | not-coma-or-paren .
 ;;    string   ::=  '"' [ not-dbl-quote | '\' any-char ] '"' .
 ;;    char     ::=  ''' [ not-sgl-quote | '\' any-char ] ''' .
-;;
+;;

 ;;;  (defun pjb-rotate-arguments ()
-;;;  "This function will swap the argument the point is over with the
+;;;  "This function will swap the argument the point is over with the
 ;;; previous one (or the last if it's over the first)."
 ;;;  (interactive)
 ;;;  (let ( start
@@ -2691,7 +2691,7 @@ silent:     When non-nil, don't issue any message whent the file type can't
 ;;;    (error "Point not at closing parenthesis."))
 ;;;    (goto-char end)
 ;;;   ;; search the opening parenthesis (code stollen from blink-matching-open).
-;;;    (setq start (and
+;;;    (setq start (and
 ;;;           (> (point) (1+ (point-min)))
 ;;;           ;; Verify an even number of quoting characters precede the close.
 ;;;           (= 1 (logand 1 (- (point)
@@ -2720,22 +2720,22 @@ silent:     When non-nil, don't issue any message whent the file type can't
 ;;;                (or (null (matching-paren (char-after blinkpos)))
 ;;;                  (/= (char-after (1- oldpos))
 ;;;                    (matching-paren (char-after blinkpos))))))
-;;;           (when mismatch
+;;;           (when mismatch
 ;;;             (error "Mismatch."))
 ;;;           blinkpos
 ;;;           )))
-;;;    (unless start
+;;;    (unless start
 ;;;      (error "Could not find a corresponding opening parenthesis."))
 ;;;    (message "Should parse this: %S." (buffer-substring start end))
 ;;;    )) ;;pjb-rotate-arguments
-
+



 ;; ------------------------------------------------------------------------
 ;; generate-options
 ;; ------------------------------------------------------------------------
-;; Generate C source to parse simple flag options in argv
+;; Generate C source to parse simple flag options in argv
 ;;

 (defun true-atom (atom)
@@ -2868,7 +2868,7 @@ silent:     When non-nil, don't issue any message whent the file type can't


 (defun lse-newline ()
-  "Insert newline and line number incremented with the same step
+  "Insert newline and line number incremented with the same step
    as previously."
   (interactive)
   (newline)
@@ -2901,8 +2901,8 @@ silent:     When non-nil, don't issue any message whent the file type can't
     (save-restriction
       (widen)
       (let ((fmt (format "%%0%dd "
-                   (1+ (truncate
-                        (log (count-lines (point-min) (point-max))
+                   (1+ (truncate
+                        (log (count-lines (point-min) (point-max))
                              10)))))
             (i 0))
         (goto-char (point-min))
@@ -2923,7 +2923,7 @@ silent:     When non-nil, don't issue any message whent the file type can't
             (delete-region (match-beginning 0) (match-end 0)))
         (forward-line)))))

-
+
 (defun renumber-lines ()
   (interactive)
   (delete-line-numbers)
@@ -2934,13 +2934,13 @@ silent:     When non-nil, don't issue any message whent the file type can't
   (interactive)
   (when (<= 21 emacs-major-version)
     (let ((fmt (format "\n%%0%dd "
-                 (1+ (truncate
-                      (log (count-lines (point-min) (point-max))
+                 (1+ (truncate
+                      (log (count-lines (point-min) (point-max))
                            10)))))
           (number 1))
       (goto-char (point-min))
       (while  (re-search-forward "\n" (point-max) t)
-        (compose-region (match-beginning 0)
+        (compose-region (match-beginning 0)
                         (match-end 0)
                         (format fmt number)
                         'decompose-region)
@@ -3020,22 +3020,22 @@ silent:     When non-nil, don't issue any message whent the file type can't
         (delete-region start end)
         (insert (format "(defconstant %s %s)"  name value))))))

-
-
+
+
 (defun c-left-shift-to-number ()
   "Substitute any literal ([0-9]*<<[0-9]) expression into the actual value."
-  (interactive)
+  (interactive)
   (while (re-search-forward  "(\\([0-9]*\\)<<\\([0-9]*\\))" nil t)
     (let ((start   (match-beginning 0))
           (end     (match-end 0))
           (n       (car (read-from-string (match-string-no-properties 1))))
           (s       (car (read-from-string (match-string-no-properties 2)))))
-
+
       (delete-region start end)
       (insert (format "%d" (* n (expt 2 s)))))))


-
+
 (defun c-comments-to-lisp ()
   "Convert all C comments /* */ or // into lisp comments,
 from the point down to the end of the buffer."
@@ -3067,18 +3067,18 @@ from the point down to the end of the buffer."
          (digit (mod num base)))
     (if (< num base)
         (cl:string (char arg-chars num))
-        (concatenate 'string
+        (concatenate 'string
           (arg-name (1- (/ num base)))
-          (cl:string (char arg-chars digit))))))
+          (cl:string (char arg-chars digit))))))

 ;; (dotimes (n (* 27 27))  (show n (arg-name n)))

 (defun clean-arg-list (arg-list)
   (let ((arg-num -1))
-    (mapcar
+    (mapcar
      (lambda (arg)
-       (cond
-         ((member arg '(&WHOLE &REST &OPTIONAL &KEY &ENVIRONMENT &BODY
+       (cond
+         ((member arg '(&WHOLE &REST &OPTIONAL &KEY &ENVIRONMENT &BODY
                         &AUX &ALLOW-OTHER-KEYS
                         &whole &rest &optional &key &environment
                         &body &aux &allow-other-keys))
@@ -3097,18 +3097,18 @@ from the point down to the end of the buffer."
    (let ((m (delete-duplicates
              (get-sexps
               file
-              :selector (lambda (sexp)
+              :selector (lambda (sexp)
                           (and (listp sexp)
                                (symbolp (car sexp))
                                (STRING-EQUAL (car sexp) "DEFMETHOD"))))
              :key (function second)
              :test (function eql)))
-         (g (if all
+         (g (if all
                 nil
                 (delete-duplicates
                  (get-sexps
                   file
-                  :selector (lambda (sexp)
+                  :selector (lambda (sexp)
                               (and (listp sexp)
                                    (symbolp (car sexp))
                                    (STRING-EQUAL (car sexp) "DEFGENERIC"))))
@@ -3139,7 +3139,7 @@ from the point down to the end of the buffer."
 (defun insert-definitions ()
   "Insert the names of all defined symbols in this file.
 defconstant deftype defstruct defclass defvar defparameter
-defun defmacro defgeneric defmethod"
+defun defmacro defgeneric defmethod"
   (interactive)
   (mapcar
    (lambda (def) (insert (format "%S " def)))
@@ -3160,7 +3160,7 @@ defun defmacro defgeneric defmethod"
     :test (function string=))))

 (defalias 'insert-exports 'insert-definitions)
-
+

 ;; (defun current-defstruct-sexp (&optional at-point)
 ;;   "
@@ -3176,7 +3176,7 @@ defun defmacro defgeneric defmethod"
 ;;                                "common-lisp:defstruct")
 ;;                              :test  (function string-equal))))))
 ;;       (loop
-;;          for sexp = (sexp-at-point)
+;;          for sexp = (sexp-at-point)
 ;;          while (and (not at-point)
 ;;                     (not (defstructp sexp))
 ;;                     (ignore-errors
@@ -3184,8 +3184,8 @@ defun defmacro defgeneric defmethod"
 ;;                              (backward-sexp)
 ;;                              t)))
 ;;          finally (return (when (defstructp sexp) sexp))))))
-;;
-;;
+;;
+;;
 ;; (defun symbols-defined-by-defstruct (form)
 ;;   (destructuring-bind (name-and-options &rest slots) (rest form)
 ;;     (let* ((name    (if (symbolp name-and-options)
@@ -3197,13 +3197,13 @@ defun defmacro defgeneric defmethod"
 ;;            (conc-name))
 ;;       )
 ;;     ))
-;;
-;;
+;;
+;;
 ;; (defun export-structure ()
 ;;   "
 ;; NOTE:   The defstruct taken is either the defstruct just preceding the point,
 ;;         or if there's none, the defstruct the point is or just following.
-;; DO:
+;; DO:
 ;; "
 ;;   (interactive)
 ;;   (save-excursion
@@ -3216,9 +3216,9 @@ defun defmacro defgeneric defmethod"
 ;;       (if struct
 ;;           (insert-in-exports (symbols-defined-by-defstruct struct))
 ;;           (error "There is not defstruct around the point.")))))
-;;
-;;
-;;
+;;
+;;
+;;
 ;; (progn
 ;;   (defstruct person
 ;;     (name "" :type string)
@@ -3345,7 +3345,7 @@ defun defmacro defgeneric defmethod"
     ;; TODO: some pretty printing
     (insert (format "%S" new-form))))

-(when nil
+(when nil
   ;; (if test)
   (if test then)
   (if test then else)
@@ -3364,7 +3364,7 @@ defun defmacro defgeneric defmethod"
   (cond (test-1 expr-11 expr-12) (test-2 expr-21 expr-22)  (t expr-31 expr-32))

   (when test)
-  (when test when)
+  (when test when)
   (when test when-1 when-2)
   (when (not test))
   (when (not test) when)
@@ -3404,7 +3404,7 @@ defun defmacro defgeneric defmethod"
 (defun function-argument-counts (function)
   "Return a cons continaing the minimum and maximum number of arguments
 the FUNCTION can take."
-  (let* ((args (split-lambda-list-on-keywords
+  (let* ((args (split-lambda-list-on-keywords
                 (maptree (lambda (item)
                            (if (memq item '(&optional &rest))
                                (intern (string-upcase item))
@@ -3457,7 +3457,7 @@ the FUNCTION can take."
                 (push (list (substring path start lbrace)) items))
               (push (split-string (substring path (1+ lbrace) rbrace) ",") items)
               (setf start (1+ rbrace))
-              (setf lbrace (position ?{ path :start start)))
+              (setf lbrace (position ?{ path :start start)))
             (setf lbrace nil))))
     (push (list (substring path start)) items)
     (mapcar (lambda (components) (apply (function concat) components))
@@ -3465,7 +3465,7 @@ the FUNCTION can take."


 (defun set-sources (directory &optional project-type)
-  (interactive "sSource directory:
+  (interactive "sSource directory:
 SProject Type: ")
   (message "Caching paths…")
   (let ((directory     (remove-trailling-slashes directory))
@@ -3516,7 +3516,7 @@ SProject Type: ")

 (defun sources-find-file-named (name)
   (interactive (list
-                (completing-read
+                (completing-read
                  "File name: "
                  (mapcar (lambda (x) (cons x nil)) *sources-cache*)
                  (constantly t)
@@ -3559,7 +3559,7 @@ SProject Type: ")
    (unless (bolp)
      (insert "\n"))
    (insert " */\n")
-
+
    (with-marker (end end)
      ;; Insert begin of comment:
      (goto-char start)
ViewGit