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

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

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

revision 1.7 by lektu, Tue Feb 4 12:47:09 2003 UTC revision 1.8 by lektu, Tue Feb 18 10:58:50 2003 UTC
# Line 391  Line 391 
391           (delete-region (match-beginning 0) (match-end 0))           (delete-region (match-beginning 0) (match-end 0))
392           (if (looking-at ",")           (if (looking-at ",")
393               (delete-char 1)               (delete-char 1)
394             (while (memq (preceding-char) '(?\ ?\t))             (while (memq (preceding-char) '(?\s ?\t))
395               (forward-char -1))               (forward-char -1))
396             (if (eq (preceding-char) ?\,)             (if (eq (preceding-char) ?\,)
397                 (delete-backward-char 1))))                 (delete-backward-char 1))))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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