Mercurial > emacs

comparison lisp/array.el @ 662:8a533acedb77

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** 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