Commit b87900d4 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Deleted trailing whitespaces.

parent faa4f97c
......@@ -12,19 +12,19 @@
#BUGS
#LEGAL
# GPL
#
#
# Copyright Pascal J. Bourguignon 2003 - 2011
#
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version
# 2 of the License, or (at your option) any later version.
#
#
# This program is distributed in the hope that it will be
# useful, but WITHOUT ANY WARRANTY; without even the implied
# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE. See the GNU General Public License for more details.
#
#
# You should have received a copy of the GNU General Public
# License along with this program; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place, Suite 330,
......@@ -91,10 +91,10 @@ EMACS_SOURCES=\
pjb-utilities.el \
pjb-vm-kill-file.el \
pjb-work.el \
pjb-worldfact.el
pjb-worldfact.el
EMACS_OBJECTS=$(EMACS_SOURCES:.el=.elc)
LISP_OBJECTS=$(EMACS_OBJECTS)
LISP_OBJECTS=$(EMACS_OBJECTS)
all::$(EMACS_OBJECTS) summary.html
-@chmod a+r *
......@@ -106,7 +106,7 @@ install::install-packages
TRACE=@
LISP_SOURCE_SUFFIXES= .el .lisp
LISP_OBJECT_SUFFIXES= .elc .fas .lib .x86f .fasl
LISP_OBJECT_SUFFIXES= .elc .fas .lib .x86f .fasl
.SUFFIXES:: $(LISP_SOURCE_SUFFIXES) $(LISP_OBJECT_SUFFIXES)
......@@ -117,7 +117,7 @@ LISP_OBJECT_SUFFIXES= .elc .fas .lib .x86f .fasl
EMACS=emacs
EMACS_FLAGS_DEFAULT=
%.elc : %.el
@ echo "Generating $@"
@ echo "Generating $@"
$(TRACE) $(EMACS) -batch -q $(EMACS_FLAGS) -f batch-byte-compile $< 2>&1 \
| $(AWK) 'BEGIN{s=0;} /Loading .*fns-/{next;} /Warning: Function .* from cl package/{s=1;next;} {if(s==0){print $0}else{s=0;next;}}'
# See also .emacs in this directory with the load-path used to compile.
......@@ -127,7 +127,7 @@ EMACS_FLAGS_DEFAULT=
# Compiling & installing lisp packages:
#
# Targets: install-packages
# Input: LISP_SOURCES CLISP_SOURCES CMUCL_SOURCES SBCL_SOURCES EMACS_SOURCES
# Input: LISP_SOURCES CLISP_SOURCES CMUCL_SOURCES SBCL_SOURCES EMACS_SOURCES
# Output: $(PACKAGES)/$(PACKAGE_PATH)/*
install-packages :: do-install
do-install :: $(EMACS_SOURCES) \
......@@ -155,7 +155,7 @@ summary summary.html:$(EMACS_SOURCES)
clean::
-rm -f $(LISP_OBJECT_SUFFIXES:%=*%)
cleanall::
cleanall::
$(TRACE) for p in $(LISP_PROGRAMS) $(CLISP_PROGRAMS) $(SBCL_PROGRAMS) \
$(CMUCL_PROGRAMS) $(EMACS_PROGRAMS) NONE ; do \
[ "$$p" = NONE ] || $(MAKE) $(MFLAGS) $${p}-clean PGMNAME=$$p ;\
......
......@@ -4,9 +4,9 @@
;;;;SYSTEM: Common-Lisp
;;;;USER-INTERFACE: NONE
;;;;DESCRIPTION
;;;;
;;;;
;;;; Supplements the emacs Makefile.
;;;;
;;;;
;;;; Usage: (load "compile.lisp")
;;;;
;;;;AUTHORS
......@@ -16,19 +16,19 @@
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;;
;;;;
;;;; Copyright Pascal J. Bourguignon 2006 - 2011
;;;;
;;;;
;;;; This program is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU General Public License
;;;; as published by the Free Software Foundation; either version
;;;; 2 of the License, or (at your option) any later version.
;;;;
;;;;
;;;; This program is distributed in the hope that it will be
;;;; useful, but WITHOUT ANY WARRANTY; without even the implied
;;;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;;;; PURPOSE. See the GNU General Public License for more details.
;;;;
;;;;
;;;; You should have received a copy of the GNU General Public
;;;; License along with this program; if not, write to the Free
;;;; Software Foundation, Inc., 59 Temple Place, Suite 330,
......@@ -51,7 +51,7 @@
(load "init.lisp")
;; package.lisp is loaded by init.lisp.
;;(package:load-package :com.informatimago.common-lisp.make-depends)
(setf package:*PACKAGE-VERBOSE* nil)
(setf package:*PACKAGE-VERBOSE* nil)
(package:load-package "COM.INFORMATIMAGO.COMMON-LISP.LIST")
;;(package:load-package "COM.INFORMATIMAGO.COMMON-LISP.MAKE-DEPENDS")
(load "PACKAGES:COM;INFORMATIMAGO;COMMON-LISP;MAKE-DEPENDS.LISP")
......@@ -79,5 +79,5 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
This diff is collapsed.
......@@ -4,7 +4,7 @@
"Common-Lisp
IMPLEMENTATION: The clause variable symbols are substituted by one single
condition-case variable symbol. This may cause problems
if the same symbol is used as data or if it's a dynamic
if the same symbol is used as data or if it's a dynamic
variable.
"
(let* ((var (gensym))
......@@ -17,7 +17,7 @@ IMPLEMENTATION: The clause variable symbols are substituted by one single
(body (cddr clause)))
(cons (if (and (consp typespec)
(eq 'or (car typespec)))
(cdr typespec)
(cdr typespec)
typespec)
(if (null clausvar)
body
......@@ -59,9 +59,9 @@ IMPLEMENTATION: The clause variable symbols are substituted by one single
(forward-sexp))))
;; (let ((r '())) (forward-sexp)(push (point) r)(forward-sexp)(backward-sexp)(push (point) r) r)
;;
;;
;; ((abc))
;; ( (abc) )
;; ( (abc) )
;; (abc)
;; ( abc )
......
......@@ -126,7 +126,7 @@
(defmacro c++/foreach ((type var container) &rest statements)
(with-extended-c++-environment (type var container)
(with-extended-c++-environment (type var container)
`(progn
,(c++/gen-insert-item (list "foreach" type var container))
(insert "{\n")
......
......@@ -15,7 +15,7 @@ Tilde immediately followed by a newline ignores the newline and any
following non-newline whitespace characters. With a :, the newline is
ignored, but any following whitespace is left in place. With an @,
the newline is left in place, but any following whitespace is
ignored.
ignored.
This commands prompts for the kind of justification to use.
If the mark is not active, this command operates on the current paragraph.
......@@ -43,7 +43,7 @@ taken to be paragraph breaks.
(with-marker (end end)
(goto-char begin)
(flet ((justify-section (begin end)
;; remove ~ and ~:
;; remove ~ and ~:
(goto-char begin)
(while (re-search-forward "\\(~\n *\\|~:\n\\)" end t)
(delete-region (match-beginning 0) (match-end 0)))
......
This diff is collapsed.
......@@ -8,7 +8,7 @@
;; (standard-display-8bit 128 255)
(set-input-mode nil nil t nil) ;; INTERRUPT FLOW META [QUIT]
;; (setq meta-prefix-char nil) ; to split ESC from M-
;; (setq meta-prefix-char nil) ; to split ESC from M-
(when (fboundp 'unify-8859-on-encoding-mode)
(unify-8859-on-encoding-mode 1))
......@@ -31,7 +31,7 @@
(progn
(case system-type
(darwin
(darwin
(set-language-environment "utf-8")
(prefer-coding-system 'utf-8-unix)
(set-default-coding-systems 'utf-8-unix)
......@@ -78,19 +78,19 @@
;; revert-buffer-with-coding-system.
;; (set-language-environment 'German)
;; (setq default-file-name-coding-system 'utf-8)
;; (setq file-name-coding-system 'utf-8)
;; (setq default-buffer-file-coding-system 'iso-latin-9-unix))
;; (set-default-coding-systems 'mac-roman-unix)
;; ;(setq mac-keyboard-text-encoding kTextEncodingISOLatin1)
;; (set-keyboard-coding-system 'sjis-mac)
;; (set-clipboard-coding-system 'sjis-mac)
;; (prefer-coding-system 'mac-roman-unix)
;; (modify-coding-system-alist 'file "\\.tex\\'" 'iso-latin-9-unix)
;; (modify-coding-system-alist 'process
;; (set-language-environment 'German)
;; (setq default-file-name-coding-system 'utf-8)
;; (setq file-name-coding-system 'utf-8)
;; (setq default-buffer-file-coding-system 'iso-latin-9-unix))
;; (set-default-coding-systems 'mac-roman-unix)
;; ;(setq mac-keyboard-text-encoding kTextEncodingISOLatin1)
;; (set-keyboard-coding-system 'sjis-mac)
;; (set-clipboard-coding-system 'sjis-mac)
;; (prefer-coding-system 'mac-roman-unix)
;; (modify-coding-system-alist 'file "\\.tex\\'" 'iso-latin-9-unix)
;; (modify-coding-system-alist 'process
;; "\\*[Ss][Hh][Ee][Ll][Ll].*\\'" 'utf-8-unix)
;; ;(set-buffer-process-coding-system 'utf-8 'utf8)
;; ;(set-buffer-process-coding-system 'utf-8 'utf8)
(when (boundp 'aquamacs-version)
(setf mac-command-modifier 'meta
......@@ -252,7 +252,7 @@ SIDE must be the symbol `left' or `right'."
;; (delete-selection-mode t)
(if (fboundp 'delete-region-and-yank)
(global-set-key (kbd "C-y") 'delete-region-and-yank)
(global-set-key (kbd "C-y") 'delete-region-and-yank)
(global-set-key (kbd "C-y") 'yank))
;; A strange configuration with a narrow frame...
......
......@@ -7,8 +7,8 @@
;; // EXAMPLE: classPathName=other.OwnerClass.pathName;eval(computeCxxClassName);otherClassName=cxxClassName;
;; String computeCxxClassName=" this{ Package currentPackage=rootPackage; string sep=~"~"; string s=classPathName; string[] items=s.segment(~":~"); int i; cxxClassName=~"~"; for(i=1; i<items.size()-1; i=i+1){ this{ Package subPackage; string item; boolean found=false; getItemSet(items,i,item); StdErr.write(item,NL); subPackage=currentPackage.getPackageByName(item); subPackage.TagTaggedValue.<while(not(found)){ getTagType().<while(not(found)){ found=Name==~"C++NoNameSpace~"; } } if(not(found)){ cxxClassName=cxxClassName+sep+subPackage.Name; sep=~"::~"; } currentPackage=subPackage; } } this{ string item; getItemSet(items,items.size()-1,item); cxxClassName=cxxClassName+sep+item; } } ";
;; // PARAMETERS:
;; String classPathName; // input
;; String cxxClassName; // output
;; String classPathName; // input
;; String cxxClassName; // output
;; // END FUNCTION
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
......@@ -26,7 +26,7 @@ properly escaped.."
(re-search-forward "^\\([^\"/]\\|\"\\([^\"~]\\|~.\\)*\"\\|/[^/]\\)*\\(//.*\\)$" (point-max) t))
(with-marker (current (match-end 3))
(delete-region (match-beginning 3) current)
(goto-char current))
(goto-char current))
(beginning-of-line 1))
(goto-char (point-min)) ; remove spaces before
(while (and (< (point) (point-max)) (re-search-forward "^ +" (point-max) t))
......
......@@ -75,7 +75,7 @@
(comment "package.keywords could look like this: ")
(comment " http://rafb.net/paste/results/SWPxKb71.txt")
(USE (objc -apache apache2 cli cgi dri nptl nptlonly
-oracle
-oracle
;; doc gd-external oracle
;; NOT AT ALL: fdftk
3dnow X Xaw3d a52 aac aalib accessibility acpi aim
......
......@@ -15,7 +15,7 @@ Tilde immediately followed by a newline ignores the newline and any
following non-newline whitespace characters. With a :, the newline is
ignored, but any following whitespace is left in place. With an @,
the newline is left in place, but any following whitespace is
ignored.
ignored.
This commands prompts for the kind of justification to use.
If the mark is not active, this command operates on the current paragraph.
......@@ -43,7 +43,7 @@ taken to be paragraph breaks.
(with-marker (end end)
(goto-char begin)
(flet ((justify-section (begin end)
;; remove ~ and ~:
;; remove ~ and ~:
(goto-char begin)
(while (re-search-forward "\\(~\n *\\|~:\n\\)" end t)
(delete-region (match-beginning 0) (match-end 0)))
......
......@@ -5,13 +5,13 @@
;;;;SYSTEM: POSIX
;;;;USER-INTERFACE: NONE
;;;;DESCRIPTION
;;;;
;;;;
;;;; Evaluate things too early.
;;;;
;;;; Works only when paredit-mode is active, and with
;;;; emacs-lisp-mode or lisp-mode+slime-mode
;;;;
;;;;
;;;;
;;;;AUTHORS
;;;; <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
;;;;MODIFICATIONS
......@@ -19,19 +19,19 @@
;;;;BUGS
;;;;LEGAL
;;;; AGPL3
;;;;
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;;
;;;;
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, or
;;;; (at your option) any later version.
;;;;
;;;;
;;;; This program is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;;; gnu affero general public license for more details.
;;;;
;;;;
;;;; you should have received a copy of the gnu affero general public license
;;;; along with this program. if not, see <http://www.gnu.org/licenses/>.
;;;;**************************************************************************
......@@ -172,7 +172,7 @@ A too-early index is a list of too-early-form"
(setf (too-early-frame-main-window teframe) main-window))
(when (too-early-frame-show-menu-p teframe)
(too-early-frame-split-menu-window teframe))
(dolist (child (too-early-frame-child-buffers teframe))
(dolist (child (too-early-frame-child-buffers teframe))
(too-early-frame-split-child-window teframe child))))
......
......@@ -44,10 +44,10 @@
(defun dichotomy (vector value compare &optional start end key)
"
PRE: entry is the element to be searched in the table.
PRE: entry is the element to be searched in the table.
(<= start end)
RETURN: (list found index order)
POST: (<= start index end)
POST: (<= start index end)
+-------------------+----------+-------+----------+----------------+
| Case | found | index | order | Error |
+-------------------+----------+-------+----------+----------------+
......@@ -116,7 +116,7 @@ TYPE either float or integer
"
(let ((table (make-hash-table :test (function equal))))
(loop
for value in '(0 0.0)
for value in '(0 0.0)
for type in '(integer float)
do (loop
for prefix-code in '(:si :binary)
......
......@@ -5,9 +5,9 @@
;;;;SYSTEM: POSIX
;;;;USER-INTERFACE: NONE
;;;;DESCRIPTION
;;;;
;;;;
;;;; A Sketch for split-bottom
;;;;
;;;;
;;;;AUTHORS
;;;; <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
;;;;MODIFICATIONS
......@@ -15,19 +15,19 @@
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;;
;;;;
;;;; Copyright Pascal J. Bourguignon 2010 - 2011
;;;;
;;;;
;;;; This program is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU General Public License
;;;; as published by the Free Software Foundation; either version
;;;; 2 of the License, or (at your option) any later version.
;;;;
;;;;
;;;; This program is distributed in the hope that it will be
;;;; useful, but WITHOUT ANY WARRANTY; without even the implied
;;;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;;;; PURPOSE. See the GNU General Public License for more details.
;;;;
;;;;
;;;; You should have received a copy of the GNU General Public
;;;; License along with this program; if not, write to the Free
;;;; Software Foundation, Inc., 59 Temple Place, Suite 330,
......
......@@ -30,10 +30,10 @@
(verticalDilutionOfPrecision Double)
(ageOfGpsData Double)
(dGpsId Integer))
(java-defstruct Segment
(points ArrayList<Point>))
(java-defstruct Track
(name String)
(comment String)
......@@ -59,8 +59,8 @@
(defun java-generate-structure-class (class-name slots)
(insert (format "\npublic class %s {\n" class-name))
(insert (format " public %s(){}\n" class-name))
(insert (format "\npublic class %s {\n" class-name))
(insert (format " public %s(){}\n" class-name))
(dolist (slot slots)
(destructuring-bind (name type &rest options) slot
(let ((came (java-capitalize-first-letter (etypecase name
......@@ -191,12 +191,12 @@
(author String author)
(year Integer year)
(license String license))
(gpx-parse Person
(name String name)
(email Email email)
(link Link link))
(gpx-parse Bounds
(minimum-latitude Double minlat)
(minimum-longitude Double minlon)
......@@ -211,9 +211,9 @@
(href String href)
(text String text)
(type String type))
(gpx-parse Point
(gpx-parse Point
(latitude Double lat :attribute)
(longitude Double lon :attribute)
(elevation Double ele)
......@@ -233,10 +233,10 @@
(verticalDilutionOfPrecision Double vdop)
(ageOfGpsData Double ageofdgpsdata)
(dGpsId Integer dgpsid))
(gpx-parse Segment
(points ArrayList<Point> trkpt))
(gpx-parse Track
(name String name)
(comment String cmt)
......
......@@ -4,7 +4,7 @@
;;SYSTEM: Common-Lisp
;;USER-INTERFACE: NONE
;;DESCRIPTION
;;
;;
;; Initialization for common-lisp packages.
;;
;; This files remove some specificities from the lisp environment
......@@ -23,19 +23,19 @@
;;BUGS
;;LEGAL
;; GPL
;;
;;
;; Copyright Pascal J. Bourguignon 2004 - 2004
;;
;;
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License
;; as published by the Free Software Foundation; either version
;; 2 of the License, or (at your option) any later version.
;;
;;
;; This program is distributed in the hope that it will be
;; useful, but WITHOUT ANY WARRANTY; without even the implied
;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE. See the GNU General Public License for more details.
;;
;;
;; You should have received a copy of the GNU General Public
;; License along with this program; if not, write to the Free
;; Software Foundation, Inc., 59 Temple Place, Suite 330,
......@@ -46,7 +46,7 @@
;; clean the imported packages:
(MAPC (LAMBDA (USED) (UNUSE-PACKAGE USED "COMMON-LISP-USER"))
(REMOVE (FIND-PACKAGE "COMMON-LISP")
(REMOVE (FIND-PACKAGE "COMMON-LISP")
(COPY-SEQ (PACKAGE-USE-LIST "COMMON-LISP-USER"))))
#+clisp
......@@ -69,7 +69,7 @@
:print print :if-does-not-exist if-does-not-exist
:external-format external-format)))))))
;; (DEFUN SCONC (&REST ARGS)
;; (DEFUN SCONC (&REST ARGS)
;; (apply (function CONCATENATE)
;; 'string
;; (mapcar (lambda (item) (typecase item
......@@ -77,10 +77,10 @@
;; (otherwise (string item)))) ARGS)));;SCONC
;; COM.INFORMATIMAGO.COMMON-LISP packages depends only on themselves,
;; COM.INFORMATIMAGO.COMMON-LISP packages depends only on themselves,
;; from the current directory.
(progn
(progn
(defvar *directories* '())
(defun get-directory (key &optional (subpath ""))
(unless *directories*
......@@ -131,17 +131,17 @@
:name :wild :type :wild :version :wild)
(make-pathname
:case :common
:directory '(:absolute "USR" "LOCAL" "SHARE" "LISP" "PACKAGES"
:directory '(:absolute "USR" "LOCAL" "SHARE" "LISP" "PACKAGES"
:wild-inferiors)
:name :wild :type :wild :version :wild)))))
:until (ignore-errors (load file))
:finally (return translations)))
;; Import DEFINE-PACKAGE, and add translations:
(IMPORT 'PACKAGE:DEFINE-PACKAGE)
(SETF (LOGICAL-PATHNAME-TRANSLATIONS "PACKAGES")
(HANDLER-CASE (LOGICAL-PATHNAME-TRANSLATIONS "PACKAGES")
(HANDLER-CASE (LOGICAL-PATHNAME-TRANSLATIONS "PACKAGES")
(ERROR NIL)))
(apply (function PACKAGE:ADD-TRANSLATIONS) *translations*)
......
......@@ -81,7 +81,7 @@
(defun inspect: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))
......@@ -130,13 +130,13 @@ the FUNCTION can take."
;; text-properties-at
length
string-bytes)
(integer
identity)
(float
identity)
(symbol
symbol-name
(boundp symbol-value)
......@@ -155,12 +155,12 @@ the FUNCTION can take."
(subr
subr-name
subr-arity)
(marker
marker-buffer
marker-position
marker-insertion-type)
(char-table
;; char-table-extra-slot
;; char-table-range
......@@ -172,8 +172,8 @@ the FUNCTION can take."
overlay-start
overlay-end
overlay-properties)
(buffer
buffer-name
buffer-file-name
......@@ -185,7 +185,7 @@ the FUNCTION can take."
buffer-modified-p
buffer-modified-tick
(:contents inspect:buffer-slots))
(hash-table
hash-table-test
......@@ -218,9 +218,9 @@ the FUNCTION can take."
process-status
process-exit-status
process-tty-name)
(frame
frame-name
frame-title
......@@ -287,10 +287,10 @@ the FUNCTION can take."
window-list
window-tree
buffer-list)
(window-configuration
window-configuration-frame)
(window
window-atom-root window-body-size window-body-height
window-body-width window-buffer window-buffer-height
......@@ -336,7 +336,7 @@ Each attribute is either:
(defun inspect:max-slot-name-width (slots)
(loop
(loop
for slot in slots
maximize (cond
((symbolp slot) (length (symbol-name slot)))
......
......@@ -5,9 +5,9 @@
;;;;SYSTEM: POSIX
;;;;USER-INTERFACE: NONE
;;;;DESCRIPTION
;;;;
;;;;
;;;; Captain Haddock's insults generator.
;;;;
;;;;
;;;;AUTHORS
;;;; <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
;;;;MODIFICATIONS
......@@ -16,19 +16,19 @@
;;;;BUGS
;;;;LEGAL
;;;; AGPL3
;;;;
;;;;
;;;; Copyright Pascal J. Bourguignon 2015 - 2016
;;;;
;;;;
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, or
;;;; (at your option) any later version.
;;;;
;;;;
;;;; This program is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;;; GNU Affero General Public License for more details.
;;;;
;;;;
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;**************************************************************************
......@@ -284,7 +284,7 @@
(setf ad (concat (subseq ad 0 (- (length ad) 2)) "ille")))
((string= "eur" (subseq ad (- (length ad) 3)))
(setf ad (concat (subseq ad 0 (- (length ad) 1)) "se")))
(t
(t
(setf ad (concat ad "e")))))
(first (elt *insulte-nm* n)))))
(ga (if (member 'p (second a))
......
......@@ -62,7 +62,7 @@ for arg ; do
-t)
trace=1
;;
-c)
-c)
closure=1
;;
-*)
......@@ -87,7 +87,7 @@ if [ $closure -ne 0 ] ; then
(load \"pjb-list.el\")
(load \"pjb-make-depends.el\")
(mapc (lambda (item) (princ item) (princ \" \"))
(nreverse (list-to-set (nreverse
(nreverse (list-to-set (nreverse
(get-closed-dependencies $OFILES '( $IDIRES )))))) ) "
else
emacs -q -nw --batch -l .emacs --eval "
......@@ -97,7 +97,7 @@ else
(add-to-list 'load-path \"$DIR\")
(load \"pjb-cl.el\")
(load \"pjb-make-depends.el\")
(make-depends '( $OFILES ) '( $IDIRES )) )"
(make-depends '( $OFILES ) '( $IDIRES )) )"
fi | grep -v Loading
......
......@@ -9,7 +9,7 @@
;;;; This module patches various emacs functions.
;;;;
;;;;AUTHORS
;;;; <PJB> Pascal J. Bourguignon
;;;; <PJB> Pascal J. Bourguignon
;;;;MODIFICATIONS
;;;; 2012-11-27 <PJB> Updated mail-setup advice for emacs-24.