Mercurial > hg > xemacs-beta

comparison lisp/utils/edmacro.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 59463afc5666
children 0132846995bd
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
3 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. 3 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
4 4
5 ;; Author: Dave Gillespie <daveg@synaptics.com> 5 ;; Author: Dave Gillespie <daveg@synaptics.com>
6 ;; Hrvoje Niksic <hniksic@srce.hr> -- XEmacs port 6 ;; Hrvoje Niksic <hniksic@srce.hr> -- XEmacs port
7 ;; Maintainer: Hrvoje Niksic <hniksic@srce.hr> 7 ;; Maintainer: Hrvoje Niksic <hniksic@srce.hr>
8 ;; Version: 3.14 8 ;; Version: 3.15
9 ;; Keywords: abbrev 9 ;; Keywords: abbrev
10 10
11 ;; This file is part of XEmacs. 11 ;; This file is part of XEmacs.
12 12
13 ;; XEmacs is free software; you can redistribute it and/or modify 13 ;; XEmacs is free software; you can redistribute it and/or modify
653 (start keys) 653 (start keys)
654 el) 654 el)
655 (while keys 655 (while keys
656 (when (or (eq (car keys) ?-) 656 (when (or (eq (car keys) ?-)
657 (eq (car keys) '-) 657 (eq (car keys) '-)
658 (eq (car keys) ?>)
658 (not (or togetherp (eq start keys)))) 659 (not (or togetherp (eq start keys))))
659 (callf concat res " ")) 660 (callf concat res " "))
660 (if (> times 1) 661 (if (> times 1)
661 (setq res (concat (format "%d*" times) res))) 662 (setq res (concat (format "%d*" times) res)))
662 (setq el (car keys)) 663 (setq el (car keys))