home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / emacs-18.59src.lha / emacs-18.59 / amiga / contrib / chopps / lisp / amiga-user-name.el next >
Encoding:
Text File  |  1993-03-19  |  601 b   |  24 lines
  1. ;;
  2. ;;  User-Name.el.
  3. ;;  ------------
  4. ;;   -ch3/11/93.
  5. ;;
  6. ;;  This is a replacement for the (user-full-name) function that comes
  7. ;;  comes with emacs, so that it fetches the login name from $USERNAME
  8. ;;  and the full name from $REALNAME.  As is the default on most amiga
  9. ;;  systems that are running UUCP and related utils.
  10. ;;
  11. ;;  It will also check $USER for the login name.
  12. ;;
  13.  
  14. (defun user-login-name ()
  15.   (if (eq nil (getenv "UserName"))
  16.       (getenv "User")
  17.     (getenv "UserName")))
  18.  
  19. (defun user-full-name ()
  20.   (if (eq nil (getenv "RealName"))
  21.       (user-login-name)
  22.     (getenv "RealName")))
  23.  
  24.