Mercurial > emacs
view lisp/case-table.el @ 4005:da8962f65741
* intervals.c (find_interval): Doc fixes, computation of
tree->position rearranged for clarity.
* intervals.c (find_interval): Consistently treat POSITION as an
actual buffer position, i.e. origin 1. The old code seemed
undecided on this point. Treat the end of the buffer as being
part of the rightmost interval.
(adjust_intervals_for_insertion): Consistently treat POSITION as
origin 1.
(interval_deletion_adjustment): The exception: FROM should be
origin zero here. Consistently treat it as such. Simplify code
which shrinks and possibly deletes intervals.
(adjust_intervals_for_deletion): Treat start as origin 1; our
caller does.
(set_point): Use buffer positions throughout, not a mix of buffer
posns and origin zero posns.
(get_local_map): Remove special case for POSITION at end of buffer;
find_interval handles that case correctly.
(verify_interval_modification): Remove special case for START at
end of buffer.
* textprop.c (validate_interval_range): End-of-buffer/string
positions no longer need special handling.
* intervals.c (make_new_interval): #if 0 this out. Nobody calls it.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Tue, 06 Jul 1993 14:53:54 +0000 |
parents | 0d8c66f2e25e |
children | 4d86978056b1 |
line wrap: on
line source
;;; case-table.el --- code to extend the character set and support case tables. ;; Copyright (C) 1988 Free Software Foundation, Inc. ;; Author: Howard Gayle ;; Maintainer: FSF ;; Keywords: i18n ;; This file is part of GNU Emacs. ;; GNU Emacs 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. ;; GNU Emacs 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, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: ;; Written by: ;; TN/ETX/TX/UMG Howard Gayle UUCP : seismo!enea!erix!howard ;; Telefonaktiebolaget L M Ericsson Phone: +46 8 719 55 65 ;; Ericsson Telecom Telex: 14910 ERIC S ;; S-126 25 Stockholm FAX : +46 8 719 64 82 ;; Sweden ;;; Code: ;;;###autoload (defun describe-buffer-case-table () "Describe the case table of the current buffer." (interactive) (let ((vector (make-vector 256 nil)) (case-table (current-case-table)) (ch 0)) (while (< ch 256) (aset vector ch (cond ((/= ch (downcase ch)) (concat "uppercase, matches " (text-char-description (downcase ch)))) ((/= ch (upcase ch)) (concat "lowercase, matches " (text-char-description (upcase ch)))) (t "case-invariant"))) (setq ch (1+ ch))) (save-excursion (with-output-to-temp-buffer "*Help*" (set-buffer standard-output) (describe-vector vector))))) ;;;###autoload (defun set-case-syntax-delims (l r table) "Make characters L and R a matching pair of non-case-converting delimiters. This sets the entries for L and R in TABLE, which is a string that will be used as the downcase part of a case table. It also modifies `standard-syntax-table', and `text-mode-syntax-table' to indicate left and right delimiters." (aset table l l) (aset table r r) (modify-syntax-entry l (concat "(" (char-to-string r) " ") (standard-syntax-table)) (modify-syntax-entry l (concat "(" (char-to-string r) " ") text-mode-syntax-table) (modify-syntax-entry r (concat ")" (char-to-string l) " ") (standard-syntax-table)) (modify-syntax-entry r (concat ")" (char-to-string l) " ") text-mode-syntax-table)) ;;;###autoload (defun set-case-syntax-pair (uc lc table) "Make characters UC and LC a pair of inter-case-converting letters. This sets the entries for characters UC and LC in TABLE, which is a string that will be used as the downcase part of a case table. It also modifies `standard-syntax-table' and `text-mode-syntax-table' to indicate an (uppercase, lowercase) pair of letters." (aset table uc lc) (aset table lc lc) (modify-syntax-entry lc "w " (standard-syntax-table)) (modify-syntax-entry lc "w " text-mode-syntax-table) (modify-syntax-entry uc "w " (standard-syntax-table)) (modify-syntax-entry uc "w " text-mode-syntax-table)) ;;;###autoload (defun set-case-syntax (c syntax table) "Make characters C case-invariant with syntax SYNTAX. This sets the entries for character C in TABLE, which is a string that will be used as the downcase part of a case table. It also modifies `standard-syntax-table' and `text-mode-syntax-table'. SYNTAX should be \" \", \"w\", \".\" or \"_\"." (aset table c c) (modify-syntax-entry c syntax (standard-syntax-table)) (modify-syntax-entry c syntax text-mode-syntax-table)) (provide 'case-table) ;;; case-table.el ends here