Mercurial > emacs
changeset 33092:181e948ec3ac
Little programming improvement.
(delimit-columns-str): New macro.
(delimit-columns-region, delimit-columns-rectangle): Code fix.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 31 Oct 2000 11:56:45 +0000 |
| parents | 4090ae62f487 |
| children | 46fe3d0d327b |
| files | lisp/delim-col.el |
| diffstat | 1 files changed, 15 insertions(+), 31 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/delim-col.el Tue Oct 31 11:54:38 2000 +0000 +++ b/lisp/delim-col.el Tue Oct 31 11:56:45 2000 +0000 @@ -4,7 +4,7 @@ ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> -;; Time-stamp: <2000/10/24 10:35:58 vinicius> +;; Time-stamp: <2000/10/28 09:34:15 Vinicius> ;; Version: 2.1 ;; Keywords: internal ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ @@ -250,6 +250,10 @@ (customize-group 'columns)) +(defmacro delimit-columns-str (str) + `(if (stringp ,str) ,str "")) + + ;;;###autoload (defun delimit-columns-region (start end) "Prettify all columns in a text region. @@ -257,25 +261,15 @@ START and END delimits the text region." (interactive "*r") (let ((delimit-columns-str-before - (if (stringp delimit-columns-str-before) - delimit-columns-str-before - "")) + (delimit-columns-str delimit-columns-str-before)) (delimit-columns-str-separator - (if (stringp delimit-columns-str-separator) - delimit-columns-str-separator - " ")) + (delimit-columns-str delimit-columns-str-separator)) (delimit-columns-str-after - (if (stringp delimit-columns-str-after) - delimit-columns-str-after - "")) + (delimit-columns-str delimit-columns-str-after)) (delimit-columns-before - (if (stringp delimit-columns-before) - delimit-columns-before - "")) + (delimit-columns-str delimit-columns-before)) (delimit-columns-after - (if (stringp delimit-columns-after) - delimit-columns-after - "")) + (delimit-columns-str delimit-columns-after)) (delimit-columns-start (if (and (integerp delimit-columns-start) (>= delimit-columns-start 0)) @@ -323,25 +317,15 @@ START and END delimits the corners of text rectangle." (interactive "*r") (let ((delimit-columns-str-before - (if (stringp delimit-columns-str-before) - delimit-columns-str-before - "")) + (delimit-columns-str delimit-columns-str-before)) (delimit-columns-str-separator - (if (stringp delimit-columns-str-separator) - delimit-columns-str-separator - " ")) + (delimit-columns-str delimit-columns-str-separator)) (delimit-columns-str-after - (if (stringp delimit-columns-str-after) - delimit-columns-str-after - "")) + (delimit-columns-str delimit-columns-str-after)) (delimit-columns-before - (if (stringp delimit-columns-before) - delimit-columns-before - "")) + (delimit-columns-str delimit-columns-before)) (delimit-columns-after - (if (stringp delimit-columns-after) - delimit-columns-after - "")) + (delimit-columns-str delimit-columns-after)) (delimit-columns-start (if (and (integerp delimit-columns-start) (>= delimit-columns-start 0))