X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fformat-spec.el;h=99116ef52fbd45c75ee194e19985d7f4bddc44ed;hb=27688c4fe73986a46e3f2cb9051170f41ef82f4c;hp=241e9dcb0111a3b7674e9691fe82fa1b0b4ed226;hpb=688636e75e02be0a1c319f546ec388ed9ec10a85;p=elisp%2Fgnus.git- diff --git a/lisp/format-spec.el b/lisp/format-spec.el index 241e9dc..99116ef 100644 --- a/lisp/format-spec.el +++ b/lisp/format-spec.el @@ -1,5 +1,5 @@ ;;; format-spec.el --- functions for formatting arbitrary formatting strings -;; Copyright (C) 1999 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; Keywords: tools @@ -18,8 +18,8 @@ ;; 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. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: @@ -47,12 +47,12 @@ to values." (val (cdr (assq spec specification)))) (delete-region (1- (match-beginning 0)) (match-end 0)) (unless val - (error "Invalid format character: %s" spec)) + (error "Invalid format character: `%%%c'" spec)) (insert (format (concat "%" num "s") val)))) ;; Signal an error on bogus format strings. (t (error "Invalid format string")))) - (buffer-substring (point-min) (point-max)))) + (buffer-string))) (defun format-spec-make (&rest pairs) "Return an alist suitable for use in `format-spec' based on PAIRS.