projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
lisp/ChangeLog (2013-06-05): Fix file name
[gnus]
/
lisp
/
format-spec.el
diff --git
a/lisp/format-spec.el
b/lisp/format-spec.el
index
6fef56e
..
6bb0fe9
100644
(file)
--- a/
lisp/format-spec.el
+++ b/
lisp/format-spec.el
@@
-1,7
+1,6
@@
;;; format-spec.el --- functions for formatting arbitrary formatting strings
;;; format-spec.el --- functions for formatting arbitrary formatting strings
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: tools
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: tools
@@
-45,14
+44,15
@@
the text that it generates."
((looking-at "\\([-0-9.]*\\)\\([a-zA-Z]\\)")
(let* ((num (match-string 1))
(spec (string-to-char (match-string 2)))
((looking-at "\\([-0-9.]*\\)\\([a-zA-Z]\\)")
(let* ((num (match-string 1))
(spec (string-to-char (match-string 2)))
- (val (
cdr (assq spec specification)
)))
+ (val (
assq spec specification
)))
(unless val
(error "Invalid format character: `%%%c'" spec))
(unless val
(error "Invalid format character: `%%%c'" spec))
+ (setq val (cdr val))
;; Pad result to desired length.
;; Pad result to desired length.
-
(let ((text (format (concat "%" num "s") val)))
+ (let ((text (format (concat "%" num "s") val)))
;; Insert first, to preserve text properties.
;; Insert first, to preserve text properties.
-
(insert-and-inherit text)
-
;; Delete the specifier body.
+ (insert-and-inherit text)
+ ;; Delete the specifier body.
(delete-region (+ (match-beginning 0) (length text))
(+ (match-end 0) (length text)))
;; Delete the percent sign.
(delete-region (+ (match-beginning 0) (length text))
(+ (match-end 0) (length text)))
;; Delete the percent sign.
@@
-76,5
+76,4
@@
starting with a character."
(provide 'format-spec)
(provide 'format-spec)
-;; arch-tag: c22d49cf-d167-445d-b7f1-2504d4173f53
;;; format-spec.el ends here
;;; format-spec.el ends here