🚀 go-pugleaf

I tried to mail this, but somewhere between here and oakhill the
".sps.mot.com" suffix was being stripped off.

In article <1991Apr30.222526.2541@oakhill.sps.mot.com> mlee@oakhill.sps.mot.com (May Lee) writes:
>(defun
>  toggle-wrap ()
>      (if (= truncate-lines nil)
>        (setq truncate-lines 1))
>      (if (> truncate-lines nil)
>        (setq truncate-lines nil))
>)
>
>Is there anything wrong with this?

= and > are only meaningful for numbers, and nil isn't a number.  So

	(= truncate-lines nil)
 and
	(> truncate-lines nil)

are invalid.  The generic equivalence function in Lisp is EQ.  Another
problem with the above code is that if = and > did what you expected, it
still wouldn't have worked; when the first IF statement succeeds, the
second one will also succeed (because the first one sets truncate-lines to
1) and then it will set it back to NIL!  You should have used the "else"
clause of the IF statement, rather than a second IF statement.

>What it is supposed to do is when the line is wrapped and R6 is depressed
>it should unwrap it and vice-a-versa.

Try:

(defun toggle-wrap ()
  (interactive)
  (setq truncate-lines (not truncate-lines)))

The "(interactive)" is there because this command is intended to be used
interactively by the user (as opposed to being just a subroutine for use by
other commands).  This makes it available in the M-x prompt.
--
Barry Margolin, Thinking Machines Corp.

barmar@think.com
{uunet,harvard}!think!barmar