/[emacs]/emacs/lisp/calc/calc-yank.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-yank.el

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

revision 1.4 by walters, Mon Nov 19 07:42:46 2001 UTC revision 1.4.4.1 by miles, Fri Apr 4 06:20:15 2003 UTC
# Line 3  Line 3 
3  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
4    
5  ;; Author: David Gillespie <daveg@synaptics.com>  ;; Author: David Gillespie <daveg@synaptics.com>
6  ;; Maintainer: Colin Walters <walters@debian.org>  ;; Maintainers: D. Goel <deego@gnufans.org>
7    ;;              Colin Walters <walters@debian.org>
8    
9  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
10    
# Line 130  Line 131 
131    
132  (defun calc-clean-newlines (s)  (defun calc-clean-newlines (s)
133    (cond    (cond
134      
135     ;; Omit leading/trailing whitespace     ;; Omit leading/trailing whitespace
136     ((or (string-match "\\`[ \n\r]+\\([^\001]*\\)\\'" s)     ((or (string-match "\\`[ \n\r]+\\([^\001]*\\)\\'" s)
137          (string-match "\\`\\([^\001]*\\)[ \n\r]+\\'" s))          (string-match "\\`\\([^\001]*\\)[ \n\r]+\\'" s))
# Line 140  Line 141 
141     ((string-match "\\`\\(.*\\)[\n\r]+\\([^\001]*\\)\\'" s)     ((string-match "\\`\\(.*\\)[\n\r]+\\([^\001]*\\)\\'" s)
142      (calc-clean-newlines (concat (math-match-substring s 1) ","      (calc-clean-newlines (concat (math-match-substring s 1) ","
143                                   (math-match-substring s 2))))                                   (math-match-substring s 2))))
144      
145     (t s)))     (t s)))
146    
147    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.4.1

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