[Emacs-diffs] Changes to emacs/lisp/net/eudc-hotlist.el

[Pavel Janík]

Index: emacs/lisp/net/eudc-hotlist.el
diff -c emacs/lisp/net/eudc-hotlist.el:1.3 emacs/lisp/net/eudc-hotlist.el:1.4
*** emacs/lisp/net/eudc-hotlist.el:1.3  Sat Jan  5 13:51:11 2002
--- emacs/lisp/net/eudc-hotlist.el      Sun Jan  6 10:05:28 2002
***************
*** 67,73 ****
      (switch-to-buffer (get-buffer-create "*EUDC Servers*"))
      (setq buffer-read-only nil)
      (erase-buffer)
!     (mapcar (function 
             (lambda (entry)
               (setq proto-col (max (length (car entry)) proto-col))))
            eudc-server-hotlist)
--- 67,73 ----
      (switch-to-buffer (get-buffer-create "*EUDC Servers*"))
      (setq buffer-read-only nil)
      (erase-buffer)
!     (mapcar (function
             (lambda (entry)
               (setq proto-col (max (length (car entry)) proto-col))))
            eudc-server-hotlist)
***************
*** 113,119 ****
    (let ((buffer-read-only nil))
      (save-excursion
        (beginning-of-line)
!       (if (and (>= (point) eudc-hotlist-list-beginning)     
               (looking-at "^\\([-.a-zA-Z:0-9]+\\)[ \t]+\\([a-zA-Z]+\\)"))
          (kill-line 1)
        (error "No server on this line")))))
--- 113,119 ----
    (let ((buffer-read-only nil))
      (save-excursion
        (beginning-of-line)
!       (if (and (>= (point) eudc-hotlist-list-beginning)
               (looking-at "^\\([-.a-zA-Z:0-9]+\\)[ \t]+\\([a-zA-Z]+\\)"))
          (kill-line 1)
        (error "No server on this line")))))
***************
*** 131,137 ****
                          hotlist))
        (forward-line 1))
      (if (not (looking-at "^[ \t]*$"))
!       (error "Malformed entry in hotlist, discarding edits")) 
      (setq eudc-server-hotlist (nreverse hotlist))
      (eudc-install-menu)
      (eudc-save-options)
--- 131,137 ----
                          hotlist))
        (forward-line 1))
      (if (not (looking-at "^[ \t]*$"))
!       (error "Malformed entry in hotlist, discarding edits"))
      (setq eudc-server-hotlist (nreverse hotlist))
      (eudc-install-menu)
      (eudc-save-options)
***************
*** 150,156 ****
          (eudc-set-server (match-string 1) (intern (match-string 2)))
          (message "Current directory server is %s (%s)" eudc-server 
eudc-protocol))
        (error "No server on this line"))))
!       
  (defun eudc-hotlist-transpose-servers ()
    "Swap the order of the server with the previous one in the list."
    (interactive)
--- 150,156 ----
          (eudc-set-server (match-string 1) (intern (match-string 2)))
          (message "Current directory server is %s (%s)" eudc-server 
eudc-protocol))
        (error "No server on this line"))))
! 
  (defun eudc-hotlist-transpose-servers ()
    "Swap the order of the server with the previous one in the list."
    (interactive)
***************
*** 161,173 ****
        (beginning-of-line)
        (if (and (>= (point) eudc-hotlist-list-beginning)
               (looking-at "^\\([-.a-zA-Z:0-9]+\\)[ \t]+\\([a-zA-Z]+\\)")
!              (progn 
                 (forward-line -1)
                 (looking-at "^\\([-.a-zA-Z:0-9]+\\)[ \t]+\\([a-zA-Z]+\\)")))
          (progn
            (forward-line 1)
            (transpose-lines 1))))))
!   
  (setq eudc-hotlist-mode-map
        (let ((map (make-sparse-keymap)))
        (define-key map "a" 'eudc-hotlist-add-server)
--- 161,173 ----
        (beginning-of-line)
        (if (and (>= (point) eudc-hotlist-list-beginning)
               (looking-at "^\\([-.a-zA-Z:0-9]+\\)[ \t]+\\([a-zA-Z]+\\)")
!              (progn
                 (forward-line -1)
                 (looking-at "^\\([-.a-zA-Z:0-9]+\\)[ \t]+\\([a-zA-Z]+\\)")))
          (progn
            (forward-line 1)
            (transpose-lines 1))))))
! 
  (setq eudc-hotlist-mode-map
        (let ((map (make-sparse-keymap)))
        (define-key map "a" 'eudc-hotlist-add-server)
***************
*** 189,195 ****
      ["Exit without Saving" kill-this-buffer t]))
  
  (if eudc-emacs-p
!     (easy-menu-define eudc-hotlist-emacs-menu 
                      eudc-hotlist-mode-map
                      ""
                      eudc-hotlist-menu))
--- 189,195 ----
      ["Exit without Saving" kill-this-buffer t]))
  
  (if eudc-emacs-p
!     (easy-menu-define eudc-hotlist-emacs-menu
                      eudc-hotlist-mode-map
                      ""
                      eudc-hotlist-menu))