🚀 go-pugleaf

gnu emacs have been installed on my SPARC 2 workstation recently. 
I've done some programming of the keys.  Most of them worked.  The problem
I have is setting the variable toggle-wrap which makes the line wrap or not
to wrap when depressing a defined key.   

This is what I have in the .emacs file:
(global-set-key "^[h" 'toggle-wrap) ; R6

(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?
What it is supposed to do is when the line is wrapped and R6 is depressed
it should unwrap it and vice-a-versa.

may lee

apache!mlee%cs.utexas.edu@oakhill.uucp