Mercurial > hg > xemacs-beta

comparison lisp/utils/skeleton.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 859a2309aef8
children 131b0175ea99
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
163 (prefix-numeric-value (or arg 163 (prefix-numeric-value (or arg
164 current-prefix-arg)) 164 current-prefix-arg))
165 (and skeleton-autowrap 165 (and skeleton-autowrap
166 (or (eq last-command 'mouse-drag-region) 166 (or (eq last-command 'mouse-drag-region)
167 (and (boundp 'transient-mark-mode) 167 (and (boundp 'transient-mark-mode)
168 (boundp 'mark-active)
168 transient-mark-mode mark-active)) 169 transient-mark-mode mark-active))
169 -1))) 170 -1)))
170 (if (stringp str) 171 (if (stringp str)
171 str)) 172 str))
172 (and skeleton-abbrev-cleanup 173 (and skeleton-abbrev-cleanup
209 (prefix-numeric-value (or arg 210 (prefix-numeric-value (or arg
210 current-prefix-arg)) 211 current-prefix-arg))
211 (and skeleton-autowrap 212 (and skeleton-autowrap
212 (or (eq last-command 'mouse-drag-region) 213 (or (eq last-command 'mouse-drag-region)
213 (and (boundp 'transient-mark-mode) 214 (and (boundp 'transient-mark-mode)
215 (boundp 'mark-active)
214 transient-mark-mode mark-active)) 216 transient-mark-mode mark-active))
215 -1))) 217 -1)))
216 (if (stringp str) 218 (if (stringp str)
217 str)) 219 str))
218 (and skeleton-abbrev-cleanup 220 (and skeleton-abbrev-cleanup
516 symmetrical ones, and the same character twice for the others." 518 symmetrical ones, and the same character twice for the others."
517 (interactive "*P") 519 (interactive "*P")
518 (let ((mark (and skeleton-autowrap 520 (let ((mark (and skeleton-autowrap
519 (or (eq last-command 'mouse-drag-region) 521 (or (eq last-command 'mouse-drag-region)
520 (and (boundp 'transient-mark-mode) 522 (and (boundp 'transient-mark-mode)
523 (boundp 'mark-active)
521 transient-mark-mode mark-active)))) 524 transient-mark-mode mark-active))))
522 (skeleton-end-hook)) 525 (skeleton-end-hook))
523 (if (or arg 526 (if (or arg
524 (not skeleton-pair) 527 (not skeleton-pair)
525 (and (not mark) 528 (and (not mark)