[cgreek:00008] Re: Patch for Smith's TLG utilities

[Robin Smith <rasmith@xxxxxxxxxxxxxxxxxx>]

>>>>> "Shinsuke" == Shinsuke Kawazoe <skawazoe@xxxxxxxxxxxxxxxxx> writes:

    Shinsuke> I received your new utilities and patches for TLG, and
    Shinsuke> got the same problem as Prof.Mizuochi.

    Shinsuke> I don't know where to find the "tl-list.el".  The
    Shinsuke> package of Meadow I'm using doesn't include the file.

Once again, sorry for the problem; I checked where tl-list.el is
in my system (as I should have done) and it's in ../site-lisp.
However, the function required is pretty simple (all it does is
keep from appending nil elements to a list).  Try putting this in
tlg-util.el:

(defun append-element (ls elt)
  "Append ELT to last of LS if ELT is not nil. [tl-list.el]"
  (if elt
      (append ls (list elt))
    ls))