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

[Juanma Barranquero]

Index: emacs/lisp/net/eudc.el
diff -c emacs/lisp/net/eudc.el:1.8 emacs/lisp/net/eudc.el:1.9
*** emacs/lisp/net/eudc.el:1.8  Fri Sep 20 19:51:44 2002
--- emacs/lisp/net/eudc.el      Fri Oct 18 04:46:53 2002
***************
*** 38,44 ****
  ;;    The main entry points of EUDC are:
  ;;      `eudc-query-form': Query a directory server from a query form
  ;;      `eudc-expand-inline': Query a directory server for the e-mail address
! ;;                            of the name before cursor and insert it in the 
  ;;                            buffer
  ;;      `eudc-get-phone': Get a phone number from a directory server
  ;;      `eudc-get-email': Get an e-mail address from a directory server
--- 38,44 ----
  ;;    The main entry points of EUDC are:
  ;;      `eudc-query-form': Query a directory server from a query form
  ;;      `eudc-expand-inline': Query a directory server for the e-mail address
! ;;                            of the name before cursor and insert it in the
  ;;                            buffer
  ;;      `eudc-get-phone': Get a phone number from a directory server
  ;;      `eudc-get-email': Get an e-mail address from a directory server
***************
*** 207,213 ****
  (defun eudc-default-set (var val)
    "Set the EUDC default value of VAR to VAL.
  The current binding of VAR is not changed."
!   (put var 'eudc-locals 
         (plist-put (get var 'eudc-locals) 'default val))
    (add-to-list 'eudc-local-vars var))
  
--- 207,213 ----
  (defun eudc-default-set (var val)
    "Set the EUDC default value of VAR to VAL.
  The current binding of VAR is not changed."
!   (put var 'eudc-locals
         (plist-put (get var 'eudc-locals) 'default val))
    (add-to-list 'eudc-local-vars var))
  
***************
*** 221,227 ****
         (protocol-locals (eudc-plist-get eudc-locals 'protocol)))
      (setq protocol-locals (plist-put protocol-locals (or protocol
                                                         eudc-protocol) val))
!     (setq eudc-locals 
          (plist-put eudc-locals 'protocol protocol-locals))
      (put var 'eudc-locals eudc-locals)
      (add-to-list 'eudc-local-vars var)
--- 221,227 ----
         (protocol-locals (eudc-plist-get eudc-locals 'protocol)))
      (setq protocol-locals (plist-put protocol-locals (or protocol
                                                         eudc-protocol) val))
!     (setq eudc-locals
          (plist-put eudc-locals 'protocol protocol-locals))
      (put var 'eudc-locals eudc-locals)
      (add-to-list 'eudc-local-vars var)
***************
*** 293,299 ****
                  (eudc-plist-member eudc-locals 'server)))
        'unbound
        (setq server-locals (eudc-plist-get eudc-locals 'server))
!       (eudc-lax-plist-get server-locals 
                          (or server
                              eudc-server) 'unbound))))
  
--- 293,299 ----
                  (eudc-plist-member eudc-locals 'server)))
        'unbound
        (setq server-locals (eudc-plist-get eudc-locals 'server))
!       (eudc-lax-plist-get server-locals
                          (or server
                              eudc-server) 'unbound))))
  
***************
*** 789,795 ****
    (let (formats)
      (while (and (null formats)
                (> n 0))
!       (setq formats 
            (delq nil
                  (mapcar '(lambda (format)
                             (if (= n
--- 789,795 ----
    (let (formats)
      (while (and (null formats)
                (> n 0))
!       (setq formats
            (delq nil
                  (mapcar '(lambda (format)
                             (if (= n
***************
*** 1103,1109 ****
  
  ;;}}}
  
! ;;{{{      Menus an keymaps
  
  (require 'easymenu)
  
--- 1103,1109 ----
  
  ;;}}}
  
! ;;{{{      Menus and keymaps
  
  (require 'easymenu)