commit/text-modes: 5 new changesets

5 new commits in text-modes: https://bitbucket.org/xemacs/text-modes/commits/38b0e98e9db6/ Changeset: 38b0e98e9db6 User: Norbert Koch Date: 2014-06-29 20:58:45 Summary: XEmacs Package Release 2.04 Affected #: 2 files diff -r da2c71235bd8dbade52e3bd2ccf93b8e7cdcf61a -r 38b0e98e9db628fcec1aa8e3e09ec414080d1de1 ChangeLog --- a/ChangeLog +++ b/ChangeLog ＠＠ -1,3 +1,7 ＠＠ +2014-06-29 Norbert Koch <viteno(a)xemacs.org&gt; + + * Makefile (VERSION): XEmacs package 2.04 released. + 2014-05-15 Norbert Koch <viteno(a)xemacs.org&gt; * Makefile (VERSION): XEmacs package 2.03 released. diff -r da2c71235bd8dbade52e3bd2ccf93b8e7cdcf61a -r 38b0e98e9db628fcec1aa8e3e09ec414080d1de1 Makefile --- a/Makefile +++ b/Makefile ＠＠ -19,7 +19,7 ＠＠ # This XEmacs package contains independent single file lisp packages -VERSION = 2.03 +VERSION = 2.04 AUTHOR_VERSION = MAINTAINER = XEmacs Development Team <xemacs-beta(a)xemacs.org&gt; PACKAGE = text-modes https://bitbucket.org/xemacs/text-modes/commits/bab8a549b30d/ Changeset: bab8a549b30d User: Norbert Koch Date: 2014-06-29 20:58:45 Summary: Added tag text-modes-2_04 for changeset 38b0e98e9db6 Affected #: 1 file diff -r 38b0e98e9db628fcec1aa8e3e09ec414080d1de1 -r bab8a549b30d5e93d0e39364acd7dccc08330b37 .hgtags --- a/.hgtags +++ b/.hgtags ＠＠ -129,3 +129,4 ＠＠ abd8765677a96f7fd376594909f5eaaaccd43c82 text-modes-2_01 efe2145f27a41413b21cbde5e3733949a8375d47 text-modes-2_02 ec34db0eb59318e097914e3bf7714ca1817ef7bc text-modes-2_03 +38b0e98e9db628fcec1aa8e3e09ec414080d1de1 text-modes-2_04 https://bitbucket.org/xemacs/text-modes/commits/08d03d0af20a/ Changeset: 08d03d0af20a User: Norbert Koch Date: 2014-06-29 21:46:27 Summary: Merge outstanding stuff into my workspace Affected #: 3 files diff -r bab8a549b30d5e93d0e39364acd7dccc08330b37 -r 08d03d0af20af1dc68fdb9789150d73f22bf5449 ChangeLog --- a/ChangeLog +++ b/ChangeLog ＠＠ -2,6 +2,13 ＠＠ * Makefile (VERSION): XEmacs package 2.04 released. +2014-06-11 Jerry James <james(a)xemacs.org&gt; + + * Makefile (ELCS): Add format-spec.elc and realphabetize. + * format-spec.el: New file, from Emacs. + * xpm-mode.el: Remove spurious executable permissions. + * *.xpm: Ditto. + 2014-05-15 Norbert Koch <viteno(a)xemacs.org&gt; * Makefile (VERSION): XEmacs package 2.03 released. diff -r bab8a549b30d5e93d0e39364acd7dccc08330b37 -r 08d03d0af20af1dc68fdb9789150d73f22bf5449 Makefile --- a/Makefile +++ b/Makefile ＠＠ -27,14 +27,14 ＠＠ REQUIRES = ispell fsf-compat xemacs-base CATEGORY = standard -ELCS = autoinsert.elc crontab.elc filladapt.elc flyspell.elc folding.elc \ - hexl.elc htmlize.elc image-mode.elc iso-acc.elc iso-ascii.elc \ - iso-cvt.elc iso-insert.elc iso-swed.elc nroff-mode.elc scribe.elc \ - swedish.elc tabify.elc tpum.elc underline.elc whitespace.elc \ - whitespace-mode.elc whitespace-visual-mode.elc winmgr-mode.elc \ - ws-mode.elc xpm-mode.elc xrdb-mode.elc ansi-color.elc \ - rtf-support.elc apache-mode.elc po-mode.elc po-compat.elc \ - css-mode.elc desktop-entry-mode.elc +ELCS = ansi-color.elc apache-mode.elc autoinsert.elc crontab.elc css-mode.elc \ + desktop-entry-mode.elc filladapt.elc flyspell.elc folding.elc \ + format-spec.elc hexl.elc htmlize.elc image-mode.elc iso-acc.elc \ + iso-ascii.elc iso-cvt.elc iso-insert.elc iso-swed.elc nroff-mode.elc \ + po-compat.elc po-mode.elc rtf-support.elc scribe.elc swedish.elc \ + tabify.elc tpum.elc underline.elc whitespace.elc whitespace-mode.elc \ + whitespace-visual-mode.elc winmgr-mode.elc ws-mode.elc xpm-mode.elc \ + xrdb-mode.elc DATA_FILES = xpm-black-color-icon-48-48.xpm xpm-marker-icon-48-48.xpm \ xpm-rotate-cw-icon-48-48.xpm xpm-shift-up-icon-48-48.xpm \ diff -r bab8a549b30d5e93d0e39364acd7dccc08330b37 -r 08d03d0af20af1dc68fdb9789150d73f22bf5449 format-spec.el --- /dev/null +++ b/format-spec.el ＠＠ -0,0 +1,77 ＠＠ +;;; format-spec.el --- functions for formatting arbitrary formatting strings + +;; Copyright (C) 1999-2014 Free Software Foundation, Inc. + +;; Author: Lars Magne Ingebrigtsen <larsi(a)gnus.org&gt; +;; Keywords: tools + +;; This file is part of XEmacs. + +;; XEmacs 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 3 of the License, or +;; (at your option) any later version. + +;; XEmacs 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 XEmacs. If not, see <http://www.gnu.org/licenses/>;. + +;;; Commentary: + +;;; Code: + +(defun format-spec (format specification) + "Return a string based on FORMAT and SPECIFICATION. +FORMAT is a string containing `format'-like specs like \"bash %u %k\", +while SPECIFICATION is an alist mapping from format spec characters +to values. Any text properties on a %-spec itself are propagated to +the text that it generates." + (with-temp-buffer + (insert format) + (goto-char (point-min)) + (while (search-forward "%" nil t) + (cond + ;; Quoted percent sign. + ((eq (char-after) ?%) + (delete-char 1)) + ;; Valid format spec. + ((looking-at "\\([-0-9.]*\\)\\([a-zA-Z]\\)") + (let* ((num (match-string 1)) + (spec (string-to-char (match-string 2))) + (val (assq spec specification))) + (unless val + (error "Invalid format character: `%%%c'" spec)) + (setq val (cdr val)) + ;; Pad result to desired length. + (let ((text (format (concat "%" num "s") val))) + ;; Insert first, to preserve text properties. + (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 (1- (match-beginning 0)) (match-beginning 0))))) + ;; Signal an error on bogus format strings. + (t + (error "Invalid format string")))) + (buffer-string))) + +(defun format-spec-make (&rest pairs) + "Return an alist suitable for use in `format-spec' based on PAIRS. +PAIRS is a list where every other element is a character and a value, +starting with a character." + (let (alist) + (while pairs + (unless (cdr pairs) + (error "Invalid list of pairs")) + (push (cons (car pairs) (cadr pairs)) alist) + (setq pairs (cddr pairs))) + (nreverse alist))) + +(provide 'format-spec) + +;;; format-spec.el ends here https://bitbucket.org/xemacs/text-modes/commits/f7a0a0027ba9/ Changeset: f7a0a0027ba9 User: Norbert Koch Date: 2014-06-29 21:46:54 Summary: XEmacs Package Release 2.05 Affected #: 2 files diff -r 08d03d0af20af1dc68fdb9789150d73f22bf5449 -r f7a0a0027ba96ae17f78a5162c7eba02ddbde95a ChangeLog --- a/ChangeLog +++ b/ChangeLog ＠＠ -1,3 +1,7 ＠＠ +2014-06-29 Norbert Koch <viteno(a)xemacs.org&gt; + + * Makefile (VERSION): XEmacs package 2.05 released. + 2014-06-29 Norbert Koch <viteno(a)xemacs.org&gt; * Makefile (VERSION): XEmacs package 2.04 released. diff -r 08d03d0af20af1dc68fdb9789150d73f22bf5449 -r f7a0a0027ba96ae17f78a5162c7eba02ddbde95a Makefile --- a/Makefile +++ b/Makefile ＠＠ -19,7 +19,7 ＠＠ # This XEmacs package contains independent single file lisp packages -VERSION = 2.04 +VERSION = 2.05 AUTHOR_VERSION = MAINTAINER = XEmacs Development Team <xemacs-beta(a)xemacs.org&gt; PACKAGE = text-modes https://bitbucket.org/xemacs/text-modes/commits/c11d90d5b9be/ Changeset: c11d90d5b9be User: Norbert Koch Date: 2014-06-29 21:46:55 Summary: Added tag text-modes-2_05 for changeset f7a0a0027ba9 Affected #: 1 file diff -r f7a0a0027ba96ae17f78a5162c7eba02ddbde95a -r c11d90d5b9be0a56e3e239e239e15efe205243d7 .hgtags --- a/.hgtags +++ b/.hgtags ＠＠ -130,3 +130,4 ＠＠ efe2145f27a41413b21cbde5e3733949a8375d47 text-modes-2_02 ec34db0eb59318e097914e3bf7714ca1817ef7bc text-modes-2_03 38b0e98e9db628fcec1aa8e3e09ec414080d1de1 text-modes-2_04 +f7a0a0027ba96ae17f78a5162c7eba02ddbde95a text-modes-2_05 Repository URL: https://bitbucket.org/xemacs/text-modes/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches