Mercurial > emacs
diff lisp/calc/calc-yank.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | f4d68f97221e |
| children | 695cf19ef79e d7ddb3e565de |
line wrap: on
line diff
--- a/lisp/calc/calc-yank.el Tue Feb 04 12:29:42 2003 +0000 +++ b/lisp/calc/calc-yank.el Tue Feb 04 13:24:35 2003 +0000 @@ -3,7 +3,7 @@ ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. ;; Author: David Gillespie <daveg@synaptics.com> -;; Maintainers: D. Goel <deego@gnufans.org> +;; Maintainers: D. Goel <deego@gnufans.org> ;; Colin Walters <walters@debian.org> ;; This file is part of GNU Emacs. @@ -131,7 +131,7 @@ (defun calc-clean-newlines (s) (cond - + ;; Omit leading/trailing whitespace ((or (string-match "\\`[ \n\r]+\\([^\001]*\\)\\'" s) (string-match "\\`\\([^\001]*\\)[ \n\r]+\\'" s)) @@ -141,7 +141,7 @@ ((string-match "\\`\\(.*\\)[\n\r]+\\([^\001]*\\)\\'" s) (calc-clean-newlines (concat (math-match-substring s 1) "," (math-match-substring s 2)))) - + (t s)))