From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: weinzierl@case-m.de (Ludwig Weinzierl)
Newsgroups: gmane.emacs.help
Subject: vbb-mode for GNU Emacs
Date: 5 Sep 2002 04:44:30 -0700
Organization: http://groups.google.com/
Sender: help-gnu-emacs-admin@gnu.org
Message-ID: <2f83b0dc.0209050344.53b5fb21@posting.google.com>
NNTP-Posting-Host: localhost.gmane.org
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: main.gmane.org 1031226875 28278 127.0.0.1 (5 Sep 2002 11:54:35 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Thu, 5 Sep 2002 11:54:35 +0000 (UTC)
Return-path: <help-gnu-emacs-admin@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 17mvDV-0007Lq-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Thu, 05 Sep 2002 13:54:33 +0200
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10)
	id 17mvF0-00005p-00; Thu, 05 Sep 2002 07:56:06 -0400
Original-Path: shelby.stanford.edu!nntp.stanford.edu!newsfeed.stanford.edu!postnews1.google.com!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 69
Original-NNTP-Posting-Host: 213.155.75.251
Original-X-Trace: posting.google.com 1031226270 18231 127.0.0.1 (5 Sep 2002 11:44:30 GMT)
Original-X-Complaints-To: groups-abuse@google.com
Original-NNTP-Posting-Date: 5 Sep 2002 11:44:30 GMT
Original-Xref: nntp.stanford.edu gnu.emacs.help:104500
Original-To: help-gnu-emacs@gnu.org
Errors-To: help-gnu-emacs-admin@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.0.11
Precedence: bulk
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs/>
Xref: main.gmane.org gmane.emacs.help:1060
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:1060

Hello,

there is a minor-mode for X-Emacs called vvb-mode which shows a
vertikal bar in a certain column (eg column 72).
Sadly it works only with X-Emacs.
1. Is there a similar package for GNU Emacs?
2. Does anyone know of version of vbb-mode.el for GNU Emacs?
3. Has anyone an idea how to get this part of code working with GNU
emacs?

 ;; show the bar
  (let ((column (current-column))
	(case-fold-search nil)
	)
    (if (>= column vvb-column)
	(if vvb-visible-p
	    nil
	  (let ((start (window-start))
		(end (window-end))
		(cnt 0)
		)
	    (save-excursion
	      (goto-char start)
	      (while (<= (point) end)
		(move-to-column vvb-column)
		(if (<= vvb-column (current-column))
		    (let (b e)
		      (setq b (point))
		      (if vvb-right-on-eol-p
			  (progn (end-of-line)
				 (setq e (point)))
			(setq e (1+ b)))
		      
		      (set-extent-properties (make-extent b e)
					     (list 'face vvb-face
						   'vvb t))
		      (setq cnt (1+ cnt))))
		
		(or (search-forward "\n" nil t)
		    (setq end -1))))
	    
	    (if (> cnt 0)
		(setq vvb-visible-p t))
	    ))

      ;;else - clean up previous act if any
      (vvb-hide))
    )
)

;; attach it to the XEmacs system
(or (assoc 'vvb-mode minor-mode-alist)
    (setq minor-mode-alist (cons '(vvb-mode " VBar")
minor-mode-alist)))

This is a code snippet from an early version of vvb-mode.el available
at
http://www.ee.ed.ac.uk/~ssp/Info/Email_and_News/Emacs/msg00036.html
The whole file is not very long, and the rest of it is pretty straight
forward.
If I load vbb-mode.el emacs does not complain, its just that the bar
does not
show up.

There are more recent versions of it, but i don't need the
functionality.
The more recent versions give me some errors with GNU Emacs.

Ludwig Weinzierl