mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Merge from emacs--devo--0

Browse source 
Patches applied:

 * emacs--devo--0  (patch 523-544)

   - Update from CVS
   - Merge from gnus--rel--5.10

 * gnus--rel--5.10  (patch 168-171)

   - Update from CVS
   - Merge from emacs--devo--0

Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-150
This commit is contained in:
Miles Bader 2006-12-07 04:14:14 +00:00
commit a0451a715e
290 changed files with 3719 additions and 2022 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/disp-table.el
View file

@ -1,6 +1,6 @@
;;; disp-table.el --- functions for dealing with char tables
;; Copyright (C) 1987, 1994, 1995, 1999, 2002, 2003, 2004,
;; Copyright (C) 1987, 1994, 1995, 1999, 2001, 2002, 2003, 2004,
;; 2005, 2006 Free Software Foundation, Inc.
;; Author: Erik Naggum <erik@naggum.no>
@ -117,7 +117,7 @@ Valid symbols are `truncation', `wrap', `escape', `control',
(or standard-display-table
(setq standard-display-table (make-display-table)))
(while (<= l h)
(aset standard-display-table l (if (or (< l ?\ ) (>= l 127)) (vector l)))
(aset standard-display-table l (if (or (< l ?\s) (>= l 127)) (vector l)))
(setq l (1+ l))))
;;;###autoload
@ -126,7 +126,7 @@ Valid symbols are `truncation', `wrap', `escape', `control',
(or standard-display-table
(setq standard-display-table (make-display-table)))
(while (<= l h)
(if (and (>= l ?\ ) (characterp l))
(if (and (>= l ?\s) (characterp l))
(aset standard-display-table l nil))
(setq l (1+ l))))