Mercurial > hg > xemacs-beta

comparison lisp/packages/makesum.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 43dd3413c7c7
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details. 18 ;; General Public License for more details.
19 19
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free 21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
22 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
23 ;; 02111-1307, USA.
23 24
24 ;;; Synched up with: FSF 19.30. 25 ;;; Synched up with: FSF 19.34.
25 26
26 ;;; Commentary: 27 ;;; Commentary:
27 28
28 ;; Displays a nice human-readable summary of all keybindings in a 29 ;; Displays a nice human-readable summary of all keybindings in a
29 ;; two-column format. 30 ;; two-column format.
104 (setq lines (cons line lines)) 105 (setq lines (cons line lines))
105 (delete-region (point) (progn (forward-line 1) (point))))) 106 (delete-region (point) (progn (forward-line 1) (point)))))
106 (setq lines (nreverse lines)) 107 (setq lines (nreverse lines))
107 (while lines 108 (while lines
108 (end-of-line) 109 (end-of-line)
110 ;; XEmacs change
109 (indent-to 41 1) 111 (indent-to 41 1)
110 (insert (car lines)) 112 (insert (car lines))
111 (forward-line 1) 113 (forward-line 1)
112 (setq lines (cdr lines)))) 114 (setq lines (cdr lines))))
113 (goto-char (- (point-max) from-end)))) 115 (goto-char (- (point-max) from-end))))