Mercurial > emacs

comparison lisp/progmodes/ada-prj.el @ 91041:bdb3fe0ba9fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 866-879) - Merge multi-tty branch - Update from CVS - Merge from emacs--rel--22 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-257
author Miles Bader <miles@gnu.org>
date Thu, 11 Oct 2007 16:22:07 +0000
parents f55f9811f5d7 6c8465b69c48
children 606f2d163a64
comparison
equal deleted inserted replaced
91040:14c4a6aac623 91041:bdb3fe0ba9fa
252 ;; Widget support in Emacs 21 requires that we clear the buffer first 252 ;; Widget support in Emacs 21 requires that we clear the buffer first
253 (if (and (not (featurep 'xemacs)) (>= emacs-major-version 21)) 253 (if (and (not (featurep 'xemacs)) (>= emacs-major-version 21))
254 (progn 254 (progn
255 (setq widget-field-new nil 255 (setq widget-field-new nil
256 widget-field-list nil) 256 widget-field-list nil)
257 (mapcar (lambda (x) (delete-overlay x)) (car (overlay-lists))) 257 (mapc (lambda (x) (delete-overlay x)) (car (overlay-lists)))
258 (mapcar (lambda (x) (delete-overlay x)) (cdr (overlay-lists))))) 258 (mapc (lambda (x) (delete-overlay x)) (cdr (overlay-lists)))))
259 259
260 ;; Display the tabs 260 ;; Display the tabs
261 261
262 (widget-insert "\n Project configuration.\n 262 (widget-insert "\n Project configuration.\n
263 ___________ ____________ ____________ ____________ ____________\n / ") 263 ___________ ____________ ____________ ____________ ____________\n / ")