hiro/boon
1
0
Fork 0
mirror of https://github.com/vale981/boon synced 2025-03-06 01:51:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix borders

Browse source
This commit is contained in:
Jean-Philippe Bernardy 2014-10-19 22:50:33 +02:00
parent 84cde79944
commit 0eee8f1eb4
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
boon-arguments.el
View file

@ -92,7 +92,8 @@
(cons (+ (car reg) 1) (- (cdr reg) 1)))
(defun boon-select-borders (how-much regs)
(interactive (cons prefix-arg (boon-spec-region "select contents")))
"Return the bordering (of size (as HOW-MUCH)) of a region (as REGS)."
(interactive (cons (prefix-numeric-value prefix-arg) (boon-spec-region "select contents")))
(cons 'region (apply 'append (mapcar (lambda (reg) (boon-borders reg how-much)) (mapcar 'boon-normalize-reg regs)))))
(defun boon-select-content (regs)