From: "Drew Adams" <drew.adams@oracle.com>
To: <emacs-pretest-bug@gnu.org>
Subject: bug#1187: 23.0.60; Cannot read vline.el - invalid read syntax
Date: Thu, 16 Oct 2008 14:22:45 -0700 [thread overview]
Message-ID: <00f801c92fd5$54f26100$c2b22382@us.oracle.com> (raw)
[-- Attachment #1.1: Type: text/plain, Size: 1540 bytes --]
Library vline.el can be read fine in Emacs 22, but Emacs 23 raises an
error, saying Invalid read syntax: "?".
In GNU Emacs 23.0.60.1 (i386-mingw-nt5.1.2600)
of 2008-10-03 on LENNART-69DE564
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --no-opt --cflags -Ic:/g/include
-fno-crossjumping'
Important settings:
value of $LC_ALL: nil
value of $LC_COLLATE: nil
value of $LC_CTYPE: nil
value of $LC_MESSAGES: nil
value of $LC_MONETARY: nil
value of $LC_NUMERIC: nil
value of $LC_TIME: nil
value of $LANG: ENU
value of $XMODIFIERS: nil
locale-coding-system: cp1252
default-enable-multibyte-characters: t
Major mode: Emacs-Lisp
Minor modes in effect:
tooltip-mode: t
tool-bar-mode: t
mouse-wheel-mode: t
menu-bar-mode: t
file-name-shadow-mode: t
global-font-lock-mode: t
font-lock-mode: t
blink-cursor-mode: t
global-auto-composition-mode: t
auto-composition-mode: t
auto-encryption-mode: t
auto-compression-mode: t
line-number-mode: t
transient-mark-mode: t
Recent input:
C-x C-f c o n r r <backspace> <backspace> t r i b /
v l i n e <tab> <return> M-x l o a d - f <return> <return>
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo>
<help-echo> <help-echo> <help-echo> <menu-bar> <help-menu>
<send-emacs-bug-report>
Recent messages:
For information about GNU Emacs and the GNU system, type C-h C-a.
Loading c:/drews-lisp-20/CONTRIB/vline.el (source)...
load-with-code-conversion: Invalid read syntax: "?"
[-- Attachment #1.2: Type: text/html, Size: 2427 bytes --]
[-- Attachment #2: vline.el --]
[-- Type: application/octet-stream, Size: 6330 bytes --]
;;; vline.el --- show vertical line mode.
;; Copyright (C) 2002, 2008 by Taiki SUGAWARA <buzz.taiki@gmail.com>
;; Author: Taiki SUGAWARA <buzz.taiki@gmail.com>
;; Keywords: faces, editing, emulating
;; Version: 1.03
;; Time-stamp: <2008-01-22 17:58:43 UTC taiki>
;; URL: http://www.emacswiki.org/cgi-bin/wiki/vline.el
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Usage
;; put followings your .emacs
;; (require 'vline)
;;
;; if you display a vertical line, type M-x vline-mode. `vline-mode' doesn't
;; effect other buffers, because it is a buffer local minor mode. if you hide
;; a vertical line, type M-x vline-mode again.
;;
;; if you display a vertical line in all buffers, type M-x vline-global-mode.
;;
;; `vline-style' provides a display style of vertical line. see `vline-style' docstring.
;;; Changes
;;
;; 2008-01-22 taiki
;; applied patch from Lennart Borgman
;; - Added :group 'vline
;; - Added defcustom vline-current-window-only
;; - Added header items to simplify for users
;;; Code:
(defvar vline-overlay-table-size 200)
(defvar vline-overlay-table (make-vector vline-overlay-table-size nil))
(defvar vline-line-char ?|)
(defcustom vline-style 'face
"*This variable holds vertical line display style.
Available values are followings:
`face' : use face.
`compose' : use composit char.
`mixed' : use face and composit char."
:type '(radio
(const face)
(const compose)
(const mixed))
:group 'vline)
(defface vline
'((t (:background "gray90")))
"*A default face for vertical line highlighting."
:group 'vline)
(defcustom vline-face 'vline
"*A face for vertical line highlighting."
:type 'face
:group 'vline)
(defcustom vline-current-window-only nil
"*If non-nil then show column in current window only.
If the buffer is shown in several windows then show column only
in the currently selected window."
:type 'boolean
:group 'vline)
(define-minor-mode vline-mode
"Display vertical line mode."
:global nil
:lighter " VL"
:group 'vline
(if vline-mode
(add-hook 'post-command-hook 'vline-post-command-hook nil t)
(vline-clear)
(remove-hook 'post-command-hook 'vline-post-command-hook t)))
(define-minor-mode vline-global-mode
"Display vertical line mode as globally."
:global t
:lighter " VL"
:group 'vline
(if vline-global-mode
(add-hook 'post-command-hook 'vline-global-post-command-hook)
(vline-clear)
(remove-hook 'post-command-hook 'vline-global-post-command-hook)))
(defun vline-post-command-hook ()
(when (and vline-mode (not (minibufferp)))
(vline-show)))
(defun vline-global-post-command-hook ()
(when (and vline-global-mode (not (minibufferp)))
(vline-show)))
(defun vline-clear ()
(mapcar (lambda (ovr)
(and ovr (delete-overlay ovr)))
vline-overlay-table))
(defun vline-show (&optional point)
(vline-clear)
(save-excursion
(if point
(goto-char point)
(setq point (point)))
(let* ((column (current-column))
(i 0)
(compose-p (memq vline-style '(compose mixed)))
(face-p (memq vline-style '(face mixed)))
(line-char (if compose-p vline-line-char ? ))
(line-str (make-string 1 line-char)))
(when face-p
(setq line-str (propertize line-str 'face vline-face)))
(goto-char (window-start))
(while (and (< i (1- (window-height)))
(< i (length vline-overlay-table))
(not (eobp)))
(move-to-column column)
;; non-cursor line only (workaround of eol probrem.
(unless (= (point) point)
;; if column over the cursor's column (when tab or wide char is appered.
(when (> (current-column) column)
(backward-char))
(let ((ovr (aref vline-overlay-table i))
;; consider a newline, tab and wide char.
(str (concat (make-string (- column (current-column)) ? )
line-str))
(char (char-after)))
;; create overlay if not found.
(unless ovr
(setq ovr (make-overlay 0 0))
(overlay-put ovr 'rear-nonsticky t)
(aset vline-overlay-table i ovr))
;; initialize overlay.
(overlay-put ovr 'face nil)
(overlay-put ovr 'before-string nil)
(overlay-put ovr 'after-string nil)
(overlay-put ovr 'invisible nil)
(overlay-put ovr 'window
(if vline-current-window-only
(selected-window)
nil))
(cond
;; tab, wide-space.
((memq char '(?\t ? ))
(setq str
(concat str
(make-string (- (save-excursion (forward-char)
(current-column))
(current-column)
(string-width str))
? )))
(move-overlay ovr (point) (1+ (point)))
(overlay-put ovr 'invisible t)
(overlay-put ovr 'after-string str))
;; eol
((eolp)
(move-overlay ovr (point) (point))
(overlay-put ovr 'after-string str))
(t
(cond
(compose-p
(let (str)
(when char
(setq str (compose-chars
char
(cond ((= (char-width char) 1)
'(tc . tc))
((= (current-column) column)
'(tc . tr))
(t
'(tc . tl)))
line-char))
(when face-p
(setq str (propertize str 'face vline-face)))
(move-overlay ovr (point) (1+ (point)))
(overlay-put ovr 'invisible t)
(overlay-put ovr 'after-string str))))
(face-p
(move-overlay ovr (point) (1+ (point)))
(overlay-put ovr 'face vline-face)))))))
(setq i (1+ i))
(forward-line)))))
(provide 'vline)
;;; vline.el ends here
next reply other threads:[~2008-10-16 21:22 UTC|newest]
Thread overview: 26+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <jwv3aivjkhw.fsf-monnier+emacsbugreports@gnu.org>
2008-10-16 21:22 ` Drew Adams [this message]
2008-10-16 23:41 ` bug#1187: 23.0.60; Cannot read vline.el - invalid read syntax Lennart Borgman (gmail)
2008-10-17 0:00 ` Drew Adams
2008-10-17 8:18 ` Eli Zaretskii
2008-10-17 8:36 ` Lennart Borgman (gmail)
2008-10-17 9:57 ` Eli Zaretskii
2008-10-17 8:15 ` Eli Zaretskii
2008-10-17 14:26 ` Drew Adams
2008-10-17 12:30 ` Lawrence Mitchell
2008-10-17 13:07 ` Eli Zaretskii
2008-10-17 14:40 ` Drew Adams
2008-10-17 15:53 ` Drew Adams
2008-10-17 16:04 ` Eli Zaretskii
2008-10-17 14:58 ` Lennart Borgman (gmail)
2008-10-17 15:18 ` Drew Adams
2008-10-17 15:58 ` Lawrence Mitchell
2008-10-17 16:09 ` Drew Adams
2008-10-17 16:00 ` Eli Zaretskii
2008-10-17 16:21 ` Drew Adams
2008-10-17 18:24 ` Eli Zaretskii
2008-10-20 10:28 ` Kenichi Handa
2008-10-20 10:58 ` Eli Zaretskii
2008-10-21 2:40 ` Kenichi Handa
2008-10-21 4:46 ` Drew Adams
2008-10-17 15:55 ` bug#1187: marked as done (23.0.60; Cannot read vline.el - invalid read syntax) Emacs bug Tracking System
[not found] ` <handler.1187.D1187.122425837312105.notifdone@emacsbugs.donarmstrong.com>
2008-10-17 16:48 ` bug#1187: closed by Stefan Monnier <monnier@iro.umontreal.ca> (Re: bug#1187: 23.0.60; " Drew Adams
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='00f801c92fd5$54f26100$c2b22382@us.oracle.com' \
--to=drew.adams@oracle.com \
--cc=1187@emacsbugs.donarmstrong.com \
--cc=emacs-pretest-bug@gnu.org \
/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.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.