diff options
| author | Pavel Janík | 2002-01-05 18:51:11 +0000 |
|---|---|---|
| committer | Pavel Janík | 2002-01-05 18:51:11 +0000 |
| commit | 082d147b669db9be90897ad6ceec3b5e05f22770 (patch) | |
| tree | 0d76dc54b911117c248c5bec645d16f88c3b34b7 | |
| parent | 91fc6577b0a09a707a737097c1e6d2563833a098 (diff) | |
| download | emacs-082d147b669db9be90897ad6ceec3b5e05f22770.tar.gz emacs-082d147b669db9be90897ad6ceec3b5e05f22770.zip | |
(eudc-edit-hotlist): Avoid error when editing an empty hotlist.
| -rw-r--r-- | lisp/net/eudc-hotlist.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el index 4d9f07580ba..2496a28e633 100644 --- a/lisp/net/eudc-hotlist.el +++ b/lisp/net/eudc-hotlist.el | |||
| @@ -1,6 +1,6 @@ | |||
| 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> |
| @@ -62,7 +62,7 @@ These are the special commands of this mode: | |||
| 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) |