Mercurial > hg > xemacs-beta

comparison lisp/hm--html-menus/hm--html.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 25f70ba0133c
children 6075d714658b
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
1 ;;; $Id: hm--html.el,v 1.7 1997/05/29 23:49:43 steve Exp $ 1 ;;; $Id: hm--html.el,v 1.8 1997/06/06 00:57:04 steve Exp $
2 ;;; 2 ;;;
3 ;;; Copyright (C) 1993 - 1997 Heiko Muenkel 3 ;;; Copyright (C) 1993 - 1997 Heiko Muenkel
4 ;;; email: muenkel@tnt.uni-hannover.de 4 ;;; email: muenkel@tnt.uni-hannover.de
5 ;;; 5 ;;;
6 ;;; This program is free software; you can redistribute it and/or modify 6 ;;; This program is free software; you can redistribute it and/or modify
4052 (progn 4052 (progn
4053 (delete-char -1) 4053 (delete-char -1)
4054 (hm--html-greater-than) 4054 (hm--html-greater-than)
4055 (setq hm--just-insert-greater-than nil)) 4055 (setq hm--just-insert-greater-than nil))
4056 (insert ?>) 4056 (insert ?>)
4057 ;; Next line added by Bob Weiner, Altrasoft, 11/21/96.
4058 #+infodock (if id-html-auto-indent (indent-according-to-mode))
4057 (setq hm--just-insert-greater-than t))) 4059 (setq hm--just-insert-greater-than t)))
4058 4060
4059 4061
4060 (defvar hm--just-insert-ampersand nil 4062 (defvar hm--just-insert-ampersand nil
4061 "Internal variable.") 4063 "Internal variable.")