unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
From: lawrence mitchell <wence@gmx.li>
Subject: Re: vbb-mode for GNU Emacs
Date: Thu, 05 Sep 2002 13:20:33 +0100	[thread overview]
Message-ID: <wku1l4ocfi.fsf@ID-97657.usr.dfncis.de> (raw)
In-Reply-To: 2f83b0dc.0209050344.53b5fb21@posting.google.com

Ludwig Weinzierl wrote:

> 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?

GNU Emacs uses overlays rather than extents, (which, I believe, are
somewhat less efficient, however, no matter).  Hence, you have to
change two functions in vvb-mode.  `vvb-show' and `vvb-hide'.

If you replace `vvb-hide' with the following definition:
`cl-map-overlays' is part of the cl package which ships with Emacs.

(defun vvb-hide ()
  "Hide the transient visual vertical bar if any."
  (if vvb-visible-p
      (progn (setq vvb-visible-p nil)
             (cl-map-overlays #'(lambda (overlay dummy)
                                  (delete-overlay overlay))
                              nil nil nil 'vvb))))

[...]
> 		      (set-extent-properties (make-extent b e)
> 					     (list 'face vvb-face
> 						   'vvb t))

Change these lines to:
(let ((overlay (make-overlay b e)))
  (overlay-put overlay 'face vvb-face)
  (overlay-put overlay 'vvb t))
[...]

-- 
lawrence mitchell <wence@gmx.li>

  reply	other threads:[~2002-09-05 12:20 UTC|newest]

Thread overview: 5+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2002-09-05 11:44 vbb-mode for GNU Emacs Ludwig Weinzierl
2002-09-05 12:20 ` lawrence mitchell [this message]
2002-09-06 18:35 ` Stefan Monnier <foo@acm.com>
2002-09-07  1:09   ` Miles Bader
2002-09-09 14:40     ` Stefan Monnier <foo@acm.com>

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=wku1l4ocfi.fsf@ID-97657.usr.dfncis.de \
    --to=wence@gmx.li \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).