view lisp/=iso8859-1.el @ 26059:2a7f35e0072b

(Fminibuffer_complete_and_exit): Supply value for new ESCAPE_FROM_EDGE parameter to Ffield_beginning. (Fminibuffer_complete_word): Use Ffield_beginning to find the prompt end. (Fminibuffer_complete_and_exit): Test for an empty input string by seeing where the field begins, instead of looking at text-properties. (read_minibuf): Don't save minibuffer prompt length on minibuf_save_list. Don't initialize minibuffer prompt length. Wrap prompt text-properties around the entire prompt. Add 'prompt text-property to prompt. Get final value with Ffield_string instead of make_buffer_string. (read_minibuf_unwind): Don't restore minibuffer prompt length from minibuf_save_list. (do_completion): Get minibuffer input with Ffield_string instead of Fbuffer_string. Erase minibuffer input with Ferase_field instead of erase_buffer. (Fminibuffer_complete_and_exit): Likewise. Test whether buffer is empty by looking for the 'prompt text property at the end. Set prompt length by looking for the end of the prompt text property, and save prompt length for later use (since there is no longer a buffer variable to get it from). (Fminibuffer_prompt_width, Fminibuffer_prompt_end): Functions removed. (syms_of_minibuf): Remove initializations of Sminibuffer_prompt_width and Sminibuffer_prompt_end.

;;; iso8859-1.el --- set up case-conversion and syntax tables for ISO 8859/1

;; 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 Howard Gayle.  See case-table.el for details.

;;; Code:

(require 'case-table)

(let ((table (car (standard-case-table))))
  (set-case-syntax 160 " " table)	; NBSP (no-break space)
  (set-case-syntax 161 "." table)	; inverted exclamation mark
  (set-case-syntax 162 "w" table)	; cent sign
  (set-case-syntax 163 "w" table)	; pound sign
  (set-case-syntax 164 "w" table)	; general currency sign
  (set-case-syntax 165 "w" table)	; yen sign
  (set-case-syntax 166 "_" table)	; broken vertical line
  (set-case-syntax 167 "w" table)	; section sign
  (set-case-syntax 168 "w" table)	; diaeresis
  (set-case-syntax 169 "_" table)	; copyright sign
  (set-case-syntax 170 "w" table)	; ordinal indicator, feminine
  (set-case-syntax-delims 171 187 table) ; angle quotation marks
  (set-case-syntax 172 "_" table)	; not sign
  (set-case-syntax 173 "_" table)	; soft hyphen
  (set-case-syntax 174 "_" table)	; registered sign
  (set-case-syntax 175 "w" table)	; macron
  (set-case-syntax 176 "_" table)	; degree sign
  (set-case-syntax 177 "_" table)	; plus or minus sign
  (set-case-syntax 178 "w" table)	; superscript two
  (set-case-syntax 179 "w" table)	; superscript three
  (set-case-syntax 180 "w" table)	; acute accent
  (set-case-syntax 181 "_" table)	; micro sign
  (set-case-syntax 182 "w" table)	; pilcrow
  (set-case-syntax 183 "_" table)	; middle dot
  (set-case-syntax 184 "w" table)	; cedilla
  (set-case-syntax 185 "w" table)	; superscript one
  (set-case-syntax 186 "w" table)	; ordinal indicator, masculine
  ;;    	       	      187          ; See 171 above.
  (set-case-syntax 188 "_" table)	; fraction one-quarter
  (set-case-syntax 189 "_" table)	; fraction one-half
  (set-case-syntax 190 "_" table)	; fraction three-quarters
  (set-case-syntax 191 "." table)	; inverted question mark
  (set-case-syntax-pair 192 224 table) ; A with grave accent
  (set-case-syntax-pair 193 225 table) ; A with acute accent
  (set-case-syntax-pair 194 226 table) ; A with circumflex accent
  (set-case-syntax-pair 195 227 table) ; A with tilde
  (set-case-syntax-pair 196 228 table) ; A with diaeresis or umlaut mark
  (set-case-syntax-pair 197 229 table) ; A with ring
  (set-case-syntax-pair 198 230 table) ; AE diphthong
  (set-case-syntax-pair 199 231 table) ; C with cedilla
  (set-case-syntax-pair 200 232 table) ; E with grave accent
  (set-case-syntax-pair 201 233 table) ; E with acute accent
  (set-case-syntax-pair 202 234 table) ; E with circumflex accent
  (set-case-syntax-pair 203 235 table) ; E with diaeresis or umlaut mark
  (set-case-syntax-pair 204 236 table) ; I with grave accent
  (set-case-syntax-pair 205 237 table) ; I with acute accent
  (set-case-syntax-pair 206 238 table) ; I with circumflex accent
  (set-case-syntax-pair 207 239 table) ; I with diaeresis or umlaut mark
  (set-case-syntax-pair 208 240 table) ; D with stroke, Icelandic eth
  (set-case-syntax-pair 209 241 table) ; N with tilde
  (set-case-syntax-pair 210 242 table) ; O with grave accent
  (set-case-syntax-pair 211 243 table) ; O with acute accent
  (set-case-syntax-pair 212 244 table) ; O with circumflex accent
  (set-case-syntax-pair 213 245 table) ; O with tilde
  (set-case-syntax-pair 214 246 table) ; O with diaeresis or umlaut mark
  (set-case-syntax 215 "_" table)	; multiplication sign
  (set-case-syntax-pair 216 248 table) ; O with slash
  (set-case-syntax-pair 217 249 table) ; U with grave accent
  (set-case-syntax-pair 218 250 table) ; U with acute accent
  (set-case-syntax-pair 219 251 table) ; U with circumflex accent
  (set-case-syntax-pair 220 252 table) ; U with diaeresis or umlaut mark
  (set-case-syntax-pair 221 253 table) ; Y with acute accent
  (set-case-syntax-pair 222 254 table) ; thorn, Icelandic
  (set-case-syntax 223 "w" table)	; small sharp s, German
  (set-case-syntax 247 "_" table)	; division sign
  (set-case-syntax 255 "w" table)	; small y with diaeresis or umlaut mark
  (set-standard-case-table (list table)))

(provide 'iso8859-1)

;;; iso8859-1.el ends here