Mercurial > emacs
view lisp/rsz-mini.el @ 29010:f62cfa81b0c4
(concat): Handle 8-bit characters correctly.
(Fstring_as_unibyte): Be sure to make all 8-bit characters in
unibyte in the result.
(Fstring_as_multibyte): Be sure to make all 8-bit characters in
valid multibyte form in the result.
(map_char_table): Use MAKE_CHAR instead of MAKE_NON_ASCII_CHAR.
(Fbase64_encode_region, Fbase64_encode_string): If base64_encode_1
return -1, signal an error.
(base64_encode_1): New arg MULTIBYTE. Get each character by
CHAR_STRING_AND_LENGTH if MULTIBYTE is nonzero. If a multibyte
character is found, return -1.
(Fbase64_decode_region): Delete codes for handling byte-combining.
Treat each decoded byte as a unibyte character.
(Fbase64_decode_string): Return unibyte string.
(Fcompare_strings, concat, string_byte_to_char): Use
FETCH_STRING_CHAR_ADVANCE_NO_CHECK instead off
FETCH_STRING_CHAR_ADVANCE.
(Fstring_lessp): Use FETCH_STRING_CHAR_ADVANCE unconditionally.
(mapcar1): If SEQ is string, always use FETCH_STRING_CHAR_ADVANCE.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 19 May 2000 23:59:50 +0000 |
parents | f541d471520a |
children | dd613770eb0f |
line wrap: on
line source
;;; rsz-mini.el --- dynamically resize minibuffer to display entire contents ;; Copyright (C) 1990, 1993-1995, 1997 Free Software Foundation, Inc. ;; Author: Noah Friedman <friedman@splode.com> ;; Roland McGrath <roland@gnu.org> ;; Maintainer: Noah Friedman <friedman@splode.com> ;; Keywords: minibuffer, window, frame, display ;; $Id: rsz-mini.el,v 1.2 1999/09/13 13:00:24 gerd Exp $ ;; 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, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; This package is obsolete. Emacs now resizes mini-windows ;; automatically. ;;; Code: (defgroup resize-minibuffer nil "This customization group is obsolete." :group 'frames) ;;;###autoload (defcustom resize-minibuffer-mode nil "*This variable is obsolete." :type 'boolean :group 'resize-minibuffer :require 'rsz-mini) ;;;###autoload (defcustom resize-minibuffer-window-max-height nil "*This variable is obsolete." :type '(choice (const nil) integer) :group 'resize-minibuffer) ;;;###autoload (defcustom resize-minibuffer-window-exactly t "*This variable is obsolete." :type 'boolean :group 'resize-minibuffer) ;;;###autoload (defcustom resize-minibuffer-frame nil "*This variable is obsolete." :type 'boolean :group 'resize-minibuffer) ;;;###autoload (defcustom resize-minibuffer-frame-max-height nil "*This variable is obsolete.") ;;;###autoload (defcustom resize-minibuffer-frame-exactly t "*This variable is obsolete." :type 'boolean :group 'resize-minibuffer) ;;;###autoload (defun resize-minibuffer-mode (&optional prefix) "This function is obsolete." (interactive "P")) (provide 'rsz-mini) ;; rsz-mini.el ends here