-;;* 
-;;  COPYRIGHT (C) PLANISWARE 2016-05-27
+;; -*- coding: windows-1252 -*- 
+;;  COPYRIGHT (C) PLANISWARE 2017
 ;;
 ;;  All Rights Reserved
 ;;

;;  employees for the sole purpose of conducting PLANISWARE business.
;;
;;**************************************************************************
(defun revert-truncate-lines ()
  (interactive)
  (setq truncate-lines (not truncate-lines))

		(progn (forward-sexp 1)
		       ;; advance if we have a |
		       (when (looking-at "|")
			 (or (re-search-forward "|" (line-end-position) t 2)
			     (forward-sexp 1)))
		       (while (looking-at "\\s'")
			 (forward-char 1))
		       (point))))))		
