Mercurial > emacs
comparison lisp/array.el @ 662:8a533acedb77
*** empty log message ***
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Sat, 30 May 1992 23:54:21 +0000 |
parents | 289ee39b1637 |
children | 4f28bd14272c |
comparison
equal
deleted
inserted
replaced
661:36fbc3f71803 | 662:8a533acedb77 |
---|---|
1 ;;; Array editing commands for Gnu Emacs | 1 ;;; array.el --- array editing commands for Gnu Emacs |
2 | |
2 ;;; Written by dmb%morgoth@harvard.harvard.edu (address is old) | 3 ;;; Written by dmb%morgoth@harvard.harvard.edu (address is old) |
3 ;;; (David M. Brown at Goldberg-Zoino & Associates, Inc.) | 4 ;;; (David M. Brown at Goldberg-Zoino & Associates, Inc.) |
4 ;;; Thanks to cph@kleph.ai.mit.edu for assistance | 5 ;;; Thanks to cph@kleph.ai.mit.edu for assistance |
5 | 6 |
6 ;; Copyright (C) 1987 Free Software Foundation, Inc. | 7 ;; Copyright (C) 1987 Free Software Foundation, Inc. |
953 "Initialize the value of lines-per-row." | 954 "Initialize the value of lines-per-row." |
954 (setq lines-per-row | 955 (setq lines-per-row |
955 (or arg | 956 (or arg |
956 (+ (ceiling max-column columns-per-line) | 957 (+ (ceiling max-column columns-per-line) |
957 (if rows-numbered 1 0))))) | 958 (if rows-numbered 1 0))))) |
959 | |
960 ;;; array.el ends here |