Mercurial > emacs

comparison lisp/net/eudc-hotlist.el @ 42553:e34193f03ff3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(eudc-edit-hotlist): Avoid error when editing an empty hotlist.
author Pavel Janík <Pavel@Janik.cz>
date Sat, 05 Jan 2002 18:51:11 +0000
parents 7a94f1c588c4
children 78a4068d960a
comparison
equal deleted inserted replaced
42552:27d9f14cc4af 42553:e34193f03ff3
1 ;;; eudc-hotlist.el --- hotlist management for EUDC 1 ;;; eudc-hotlist.el --- hotlist management for EUDC
2 2
3 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc.
4 4
5 ;; Author: Oscar Figueiredo <oscar@xemacs.org> 5 ;; Author: Oscar Figueiredo <oscar@xemacs.org>
6 ;; Maintainer: Oscar Figueiredo <oscar@xemacs.org> 6 ;; Maintainer: Oscar Figueiredo <oscar@xemacs.org>
7 ;; Keywords: help 7 ;; Keywords: help
8 8
60 60
61 ;;;###autoload 61 ;;;###autoload
62 (defun eudc-edit-hotlist () 62 (defun eudc-edit-hotlist ()
63 "Edit the hotlist of directory servers in a specialized buffer." 63 "Edit the hotlist of directory servers in a specialized buffer."
64 (interactive) 64 (interactive)
65 (let ((proto-col 0) 65 (let ((proto-col 10)
66 gap) 66 gap)
67 (switch-to-buffer (get-buffer-create "*EUDC Servers*")) 67 (switch-to-buffer (get-buffer-create "*EUDC Servers*"))
68 (setq buffer-read-only nil) 68 (setq buffer-read-only nil)
69 (erase-buffer) 69 (erase-buffer)
70 (mapcar (function 70 (mapcar (function