Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Little programming improvement.

Browse source 
(delimit-columns-str): New macro.
(delimit-columns-region, delimit-columns-rectangle): Code fix.
This commit is contained in:
Gerd Moellmann 2000-10-31 11:57:12 +00:00
parent ea0c615db0
commit 9e20722fec
2 changed files with 19 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -19,6 +19,10 @@
(ps-print-preprint, ps-output, ps-begin-file, ps-begin-page)
(ps-plot-region, ps-generate, ps-end-job): Code fix.
* delim-col.el: Little programming improvement.
(delimit-columns-str): New macro.
(delimit-columns-region, delimit-columns-rectangle): Code fix.
2000-10-31 Kenichi Handa <handa@etl.go.jp>
* term/mac-win.el: (decode-mac-roman, encode-mac-roman,

46
lisp/delim-col.el
View file

@ -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 @@ column (column 0) is located at left corner."
(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 @@ column (column 0) is located at left corner."
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 text region."
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))