21.2.24 Crashes!

Wednesday, 15 December 1999

When I run this code (a simplified version), XEmacs crashes. The
problem is the text property.

(defun test-decode (word) 
  (let ((i -1) (s (substring word 0)) v)
    (while (< (incf i) (length s))
      (if (eq (setq v (aref s i)) ? ) nil
	(aset s i (+ 128 v))))
    s))

(let ((s  "~{<:Ky2;S{#,NpJ)l6HK!#~}"))
  (put-text-property 0 (length s) 'face 'bold s)
  (setq s (test-decode s))
  (decode-coding-string s 'cn-gb-2312))

-- 
Shenghuo

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

1999

1998