Mercurial > hg > xemacs-beta
comparison lisp/hm--html-menus/adapt.el @ 22:8fc7fe29b841 r19-15b94
Import from CVS: tag r19-15b94
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:50:29 +0200 |
parents | ac2d302a0011 |
children | 6a22abad6937 |
comparison
equal
deleted
inserted
replaced
21:b88636d63495 | 22:8fc7fe29b841 |
---|---|
1 ;;; $Id: adapt.el,v 1.1.1.2 1996/12/18 03:46:45 steve Exp $ | 1 ;;; $Id: adapt.el,v 1.2 1997/02/16 01:29:07 steve Exp $ |
2 ;;; | 2 ;;; |
3 ;;; Copyright (C) 1993, 1994, 1995 Heiko Muenkel | 3 ;;; Copyright (C) 1993, 1994, 1995 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 |
310 (setq minor-mode-map-alist | 310 (setq minor-mode-map-alist |
311 (cons (cons toggle keymap) | 311 (cons (cons toggle keymap) |
312 minor-mode-map-alist)))) | 312 minor-mode-map-alist)))) |
313 )) | 313 )) |
314 ) | 314 ) |
315 | |
316 (if (not (fboundp 'redraw-modeline)) | |
317 (defalias 'redraw-modeline 'force-mode-line-update)) | |
318 | |
315 )) | 319 )) |
316 | 320 |
317 | 321 |
318 (provide 'adapt) | 322 (provide 'adapt) |