/[emacs]/emacs/lisp/delim-col.el
ViewVC logotype

Diff of /emacs/lisp/delim-col.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by viniciusjl, Wed Mar 10 00:47:45 2004 UTC revision 1.10 by lektu, Mon Jul 4 01:53:04 2005 UTC
# Line 125  Line 125 
125  ;; User Options:  ;; User Options:
126    
127  (defgroup columns nil  (defgroup columns nil
128    "Prettify columns"    "Prettify columns."
129    :link '(emacs-library-link :tag "Source Lisp File" "delim-col.el")    :link '(emacs-library-link :tag "Source Lisp File" "delim-col.el")
130    :prefix "delimit-columns-"    :prefix "delimit-columns-"
131    :group 'internal)    :group 'internal)
# Line 424  START and END delimits the corners of te Line 424  START and END delimits the corners of te
424         (and delimit-columns-format         (and delimit-columns-format
425              (make-string (- (aref delimit-columns-max ncol)              (make-string (- (aref delimit-columns-max ncol)
426                              (- (current-column) origin))                              (- (current-column) origin))
427                           ?\ )))                           ?\s)))
428        (setq ncol (1+ ncol)))        (setq ncol (1+ ncol)))
429      ;; Prepare last column spaces      ;; Prepare last column spaces
430      (let ((spaces (and delimit-columns-format      (let ((spaces (and delimit-columns-format
431                         (make-string (- (aref delimit-columns-max ncol)                         (make-string (- (aref delimit-columns-max ncol)
432                                         (- (current-column) origin))                                         (- (current-column) origin))
433                                      ?\ ))))                                      ?\s))))
434        ;; Adjust extra columns, if needed        ;; Adjust extra columns, if needed
435        (and delimit-columns-extra        (and delimit-columns-extra
436             (while (and (< (setq ncol (1+ ncol)) len)             (while (and (< (setq ncol (1+ ncol)) len)
# Line 438  START and END delimits the corners of te Line 438  START and END delimits the corners of te
438               (delimit-columns-format spaces)               (delimit-columns-format spaces)
439               (setq spaces (and delimit-columns-format               (setq spaces (and delimit-columns-format
440                                 (make-string (aref delimit-columns-max ncol)                                 (make-string (aref delimit-columns-max ncol)
441                                              ?\ )))))                                              ?\s)))))
442        ;; insert last formating        ;; insert last formating
443        (cond ((null delimit-columns-format)        (cond ((null delimit-columns-format)
444               (insert delimit-columns-after delimit-columns-str-after))               (insert delimit-columns-after delimit-columns-str-after))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26