From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Drew Adams" Newsgroups: gmane.emacs.bugs,gmane.emacs.pretest.bugs Subject: bug#1187: 23.0.60; Cannot read vline.el - invalid read syntax Date: Thu, 16 Oct 2008 14:22:45 -0700 Message-ID: <00f801c92fd5$54f26100$c2b22382@us.oracle.com> Reply-To: Drew Adams , 1187@emacsbugs.donarmstrong.com NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="----=_NextPart_000_00F9_01C92F9A.A8938900" X-Trace: ger.gmane.org 1224193859 31919 80.91.229.12 (16 Oct 2008 21:50:59 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 16 Oct 2008 21:50:59 +0000 (UTC) To: Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu Oct 16 23:51:59 2008 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1Kqal5-00058w-0e for geb-bug-gnu-emacs@m.gmane.org; Thu, 16 Oct 2008 23:51:56 +0200 Original-Received: from localhost ([127.0.0.1]:51992 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Kqajw-0002gv-Bo for geb-bug-gnu-emacs@m.gmane.org; Thu, 16 Oct 2008 17:50:40 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Kqajr-0002gS-Ur for bug-gnu-emacs@gnu.org; Thu, 16 Oct 2008 17:50:35 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Kqajo-0002fa-Cq for bug-gnu-emacs@gnu.org; Thu, 16 Oct 2008 17:50:35 -0400 Original-Received: from [199.232.76.173] (port=57047 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Kqajo-0002fX-30 for bug-gnu-emacs@gnu.org; Thu, 16 Oct 2008 17:50:32 -0400 Original-Received: from rzlab.ucr.edu ([138.23.92.77]:33967) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1KqajV-0001vH-1X for bug-gnu-emacs@gnu.org; Thu, 16 Oct 2008 17:50:31 -0400 Original-Received: from rzlab.ucr.edu (rzlab.ucr.edu [127.0.0.1]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id m9GLnx4Z002219; Thu, 16 Oct 2008 14:50:00 -0700 Original-Received: (from debbugs@localhost) by rzlab.ucr.edu (8.13.8/8.13.8/Submit) id m9GLU5E7030126; Thu, 16 Oct 2008 14:30:05 -0700 X-Loop: don@donarmstrong.com Resent-From: "Drew Adams" Resent-To: bug-submit-list@donarmstrong.com Resent-CC: Emacs Bugs Resent-Date: Thu, 16 Oct 2008 21:30:04 +0000 Resent-Message-ID: Resent-Sender: don@donarmstrong.com X-Emacs-PR-Message: report 1187 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: Original-Received: via spool by submit@emacsbugs.donarmstrong.com id=B.122419226228748 (code B ref -1); Thu, 16 Oct 2008 21:30:04 +0000 Original-Received: (at submit) by emacsbugs.donarmstrong.com; 16 Oct 2008 21:24:22 +0000 Original-Received: from fencepost.gnu.org (fencepost.gnu.org [140.186.70.10]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id m9GLOIAj028742 for ; Thu, 16 Oct 2008 14:24:19 -0700 Original-Received: from mx10.gnu.org ([199.232.76.166]:55048) by fencepost.gnu.org with esmtp (Exim 4.67) (envelope-from ) id 1KqaHv-0007cj-N7 for emacs-pretest-bug@gnu.org; Thu, 16 Oct 2008 17:21:44 -0400 Original-Received: from Debian-exim by monty-python.gnu.org with spam-scanned (Exim 4.60) (envelope-from ) id 1KqaKN-0007Fh-5R for emacs-pretest-bug@gnu.org; Thu, 16 Oct 2008 17:24:16 -0400 Original-Received: from agminet01.oracle.com ([141.146.126.228]:16626) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1KqaKL-00073Y-5d for emacs-pretest-bug@gnu.org; Thu, 16 Oct 2008 17:24:15 -0400 Original-Received: from rgmgw2.us.oracle.com (rgmgw2.us.oracle.com [138.1.186.111]) by agminet01.oracle.com (Switch-3.2.4/Switch-3.1.7) with ESMTP id m9GLMgLK011288 for ; Thu, 16 Oct 2008 16:22:43 -0500 Original-Received: from acsmt703.oracle.com (acsmt703.oracle.com [141.146.40.81]) by rgmgw2.us.oracle.com (Switch-3.2.4/Switch-3.2.4) with ESMTP id m9GLMfLF007886 for ; Thu, 16 Oct 2008 15:22:41 -0600 Original-Received: from dradamslap1 (/130.35.178.194) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Thu, 16 Oct 2008 14:22:40 -0700 X-Mailer: Microsoft Office Outlook 11 thread-index: Ackv1VSha9d5g5AUR3GJFOupgeR/tQ== X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3350 X-Brightmail-Tracker: AAAAAQAAAAI= X-Brightmail-Tracker: AAAAAQAAAAI= X-Whitelist: TRUE X-Whitelist: TRUE X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.4-2.6 X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 3) Resent-Date: Thu, 16 Oct 2008 17:50:35 -0400 X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:21567 gmane.emacs.pretest.bugs:23235 Archived-At: This is a multi-part message in MIME format. ------=_NextPart_000_00F9_01C92F9A.A8938900 Content-Type: multipart/alternative; boundary="----=_NextPart_001_00FA_01C92F9A.A8938900" ------=_NextPart_001_00FA_01C92F9A.A8938900 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit 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 t r i b / v l i n e M-x l o a d - f 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: "?" ------=_NextPart_001_00FA_01C92F9A.A8938900 Content-Type: text/html; charset="us-ascii" Content-Transfer-Encoding: quoted-printable
Library vline.el can be read fine in = Emacs 22, but=20 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=20 on LENNART-69DE564
Windowing system distributor `Microsoft Corp.', = version=20 5.1.2600
configured using `configure --with-gcc (3.4) --no-opt = --cflags=20 -Ic:/g/include -fno-crossjumping'
 
Important settings:
  value of $LC_ALL: nil
  value = of=20 $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of=20 $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value = of=20 $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of = $LANG:=20 ENU
  value of $XMODIFIERS: nil
  locale-coding-system:=20 cp1252
  default-enable-multibyte-characters: t
 
Major mode: Emacs-Lisp
 
Minor modes in effect:
  tooltip-mode: t
  = tool-bar-mode:=20 t
  mouse-wheel-mode: t
  menu-bar-mode: t
 =20 file-name-shadow-mode: t
  global-font-lock-mode: t
 =20 font-lock-mode: t
  blink-cursor-mode: t
 =20 global-auto-composition-mode: t
  auto-composition-mode: = t
 =20 auto-encryption-mode: t
  auto-compression-mode: t
 =20 line-number-mode: t
  transient-mark-mode: t
 
Recent input:
C-x C-f c o n r r <backspace> = <backspace> t r=20 i b /
v l i n e <tab> <return> M-x l o a d - f = <return>=20 <return>
<help-echo> <help-echo> <help-echo> = <help-echo> <help-echo>
<help-echo> = <help-echo>=20 <help-echo> <menu-bar> <help-menu>=20
<send-emacs-bug-report>
 
Recent messages:
For information about GNU Emacs and the GNU = system,=20 type C-h C-a.
Loading c:/drews-lisp-20/CONTRIB/vline.el=20 (source)...
load-with-code-conversion: Invalid read syntax:=20 "?"
------=_NextPart_001_00FA_01C92F9A.A8938900-- ------=_NextPart_000_00F9_01C92F9A.A8938900 Content-Type: application/octet-stream; name="vline.el" Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename="vline.el" ;;; vline.el --- show vertical line mode.=0A= =0A= ;; Copyright (C) 2002, 2008 by Taiki SUGAWARA =0A= =0A= ;; Author: Taiki SUGAWARA =0A= ;; Keywords: faces, editing, emulating=0A= ;; Version: 1.03=0A= ;; Time-stamp: <2008-01-22 17:58:43 UTC taiki>=0A= ;; URL: http://www.emacswiki.org/cgi-bin/wiki/vline.el=0A= =0A= ;; This file is free software; you can redistribute it and/or modify=0A= ;; it under the terms of the GNU General Public License as published by=0A= ;; the Free Software Foundation; either version 2, or (at your option)=0A= ;; any later version.=0A= =0A= ;; This file is distributed in the hope that it will be useful,=0A= ;; but WITHOUT ANY WARRANTY; without even the implied warranty of=0A= ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the=0A= ;; GNU General Public License for more details.=0A= =0A= ;; You should have received a copy of the GNU General Public License=0A= ;; along with GNU Emacs; see the file COPYING. If not, write to=0A= ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,=0A= ;; Boston, MA 02110-1301, USA.=0A= =0A= ;;; Usage=0A= ;; put followings your .emacs=0A= ;; (require 'vline)=0A= ;;=0A= ;; if you display a vertical line, type M-x vline-mode. `vline-mode' = doesn't=0A= ;; effect other buffers, because it is a buffer local minor mode. if you = hide=0A= ;; a vertical line, type M-x vline-mode again.=0A= ;;=0A= ;; if you display a vertical line in all buffers, type M-x = vline-global-mode.=0A= ;;=0A= ;; `vline-style' provides a display style of vertical line. see = `vline-style' docstring.=0A= =0A= ;;; Changes=0A= ;;=0A= ;; 2008-01-22 taiki=0A= ;; applied patch from Lennart Borgman=0A= ;; - Added :group 'vline=0A= ;; - Added defcustom vline-current-window-only=0A= ;; - Added header items to simplify for users=0A= =0A= ;;; Code:=0A= =0A= (defvar vline-overlay-table-size 200)=0A= (defvar vline-overlay-table (make-vector vline-overlay-table-size nil))=0A= (defvar vline-line-char ?|)=0A= =0A= (defcustom vline-style 'face=0A= "*This variable holds vertical line display style.=0A= Available values are followings:=0A= `face' : use face.=0A= `compose' : use composit char.=0A= `mixed' : use face and composit char."=0A= :type '(radio=0A= (const face)=0A= (const compose)=0A= (const mixed))=0A= :group 'vline)=0A= =0A= =0A= (defface vline=0A= '((t (:background "gray90")))=0A= "*A default face for vertical line highlighting."=0A= :group 'vline)=0A= =0A= (defcustom vline-face 'vline=0A= "*A face for vertical line highlighting."=0A= :type 'face=0A= :group 'vline)=0A= =0A= (defcustom vline-current-window-only nil=0A= "*If non-nil then show column in current window only.=0A= If the buffer is shown in several windows then show column only=0A= in the currently selected window."=0A= :type 'boolean=0A= :group 'vline)=0A= =0A= (define-minor-mode vline-mode=0A= "Display vertical line mode."=0A= :global nil=0A= :lighter " VL"=0A= :group 'vline=0A= (if vline-mode=0A= (add-hook 'post-command-hook 'vline-post-command-hook nil t)=0A= (vline-clear)=0A= (remove-hook 'post-command-hook 'vline-post-command-hook t)))=0A= =0A= (define-minor-mode vline-global-mode=0A= "Display vertical line mode as globally."=0A= :global t=0A= :lighter " VL"=0A= :group 'vline=0A= (if vline-global-mode=0A= (add-hook 'post-command-hook 'vline-global-post-command-hook)=0A= (vline-clear)=0A= (remove-hook 'post-command-hook 'vline-global-post-command-hook)))=0A= =0A= =0A= (defun vline-post-command-hook ()=0A= (when (and vline-mode (not (minibufferp)))=0A= (vline-show)))=0A= =0A= (defun vline-global-post-command-hook ()=0A= (when (and vline-global-mode (not (minibufferp)))=0A= (vline-show)))=0A= =0A= (defun vline-clear ()=0A= (mapcar (lambda (ovr)=0A= (and ovr (delete-overlay ovr)))=0A= vline-overlay-table))=0A= =0A= (defun vline-show (&optional point)=0A= (vline-clear)=0A= (save-excursion=0A= (if point=0A= (goto-char point)=0A= (setq point (point)))=0A= (let* ((column (current-column))=0A= (i 0)=0A= (compose-p (memq vline-style '(compose mixed)))=0A= (face-p (memq vline-style '(face mixed)))=0A= (line-char (if compose-p vline-line-char ? ))=0A= (line-str (make-string 1 line-char)))=0A= (when face-p=0A= (setq line-str (propertize line-str 'face vline-face)))=0A= (goto-char (window-start))=0A= (while (and (< i (1- (window-height)))=0A= (< i (length vline-overlay-table))=0A= (not (eobp)))=0A= (move-to-column column)=0A= ;; non-cursor line only (workaround of eol probrem.=0A= (unless (=3D (point) point)=0A= ;; if column over the cursor's column (when tab or wide char is = appered.=0A= (when (> (current-column) column)=0A= (backward-char))=0A= (let ((ovr (aref vline-overlay-table i))=0A= ;; consider a newline, tab and wide char.=0A= (str (concat (make-string (- column (current-column)) ? )=0A= line-str))=0A= (char (char-after)))=0A= ;; create overlay if not found.=0A= (unless ovr=0A= (setq ovr (make-overlay 0 0))=0A= (overlay-put ovr 'rear-nonsticky t)=0A= (aset vline-overlay-table i ovr))=0A= =0A= ;; initialize overlay.=0A= (overlay-put ovr 'face nil)=0A= (overlay-put ovr 'before-string nil)=0A= (overlay-put ovr 'after-string nil)=0A= (overlay-put ovr 'invisible nil)=0A= (overlay-put ovr 'window=0A= (if vline-current-window-only=0A= (selected-window)=0A= nil))=0A= =0A= (cond=0A= ;; tab, wide-space.=0A= ((memq char '(?\t ?=E3=80=80))=0A= (setq str=0A= (concat str=0A= (make-string (- (save-excursion (forward-char)=0A= (current-column))=0A= (current-column)=0A= (string-width str))=0A= ? )))=0A= (move-overlay ovr (point) (1+ (point)))=0A= (overlay-put ovr 'invisible t)=0A= (overlay-put ovr 'after-string str))=0A= ;; eol=0A= ((eolp)=0A= (move-overlay ovr (point) (point))=0A= (overlay-put ovr 'after-string str))=0A= (t=0A= (cond=0A= (compose-p=0A= (let (str)=0A= (when char=0A= (setq str (compose-chars=0A= char=0A= (cond ((=3D (char-width char) 1)=0A= '(tc . tc))=0A= ((=3D (current-column) column)=0A= '(tc . tr))=0A= (t=0A= '(tc . tl)))=0A= line-char))=0A= (when face-p=0A= (setq str (propertize str 'face vline-face)))=0A= (move-overlay ovr (point) (1+ (point)))=0A= (overlay-put ovr 'invisible t)=0A= (overlay-put ovr 'after-string str))))=0A= (face-p=0A= (move-overlay ovr (point) (1+ (point)))=0A= (overlay-put ovr 'face vline-face)))))))=0A= (setq i (1+ i))=0A= (forward-line)))))=0A= =0A= (provide 'vline)=0A= =0A= ;;; vline.el ends here=0A= ------=_NextPart_000_00F9_01C92F9A.A8938900--