home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / sunpro / sunpro-init.el next >
Encoding:
Text File  |  1994-09-20  |  1.6 KB  |  57 lines
  1. (defconst era-version "0.93" "\
  2. Version numbers of this version of Era.")
  3.  
  4. ;; We're calling this version Sun Era.
  5. (defconst sun-era t)
  6.  
  7. (defun era-version () "\
  8. Return string describing the version of Era that is running."
  9.   (interactive)
  10.   (if (interactive-p)
  11.       (message "%s" (era-version))
  12.     (format "%sEra %s of %s %s on %s (%s)"
  13.         (if sun-era "Sun " "")
  14.         era-version
  15.         (substring emacs-build-time 0
  16.                (string-match " *[0-9]*:" emacs-build-time))
  17.         (substring emacs-build-time
  18.                        (string-match "[0-9]*$" emacs-build-time))
  19.         emacs-build-system system-type)))
  20.  
  21. (setq bar-cursor 2)
  22.  
  23. (defun sunpro-maybe-connect-to-tooltalk ()
  24.   (if (and (not (noninteractive))
  25.        (fboundp 'command-line-do-tooltalk))
  26.       (command-line-do-tooltalk nil)))
  27.  
  28. ;; sunpro-maybe-connect-to-tooltalk must appear in the hook list
  29. ;; before any clients that register patterns, like eos-load.el.
  30. ;; Currently eos-load.el places its functions at the end of the list
  31.  
  32. (add-hook 'before-init-hook 'sunpro-maybe-connect-to-tooltalk)
  33.  
  34. (setq x-pointer-shape "xterm")
  35. (setq x-nontext-pointer-shape "xterm")
  36.  
  37. ;; W3 doesn't know about using pageview, so let's fix that.
  38.  
  39. (defun sunpro-fix-postscript-viewer ()
  40.   (if (not (noninteractive))
  41.     (condition-case nil
  42.       (w3-parse-mailcap
  43.         (expand-file-name "sparcworks/sunpro-mailcap" data-directory))
  44.       (error nil))))
  45.  
  46. (add-hook 'w3-load-hooks 'sunpro-fix-postscript-viewer)
  47.  
  48. ;; turn on pending delete without messing up its autoloads
  49. (defun sunpro-pending-delete-on ()
  50.   (if (not (noninteractive))
  51.       (pending-delete-on nil)))
  52.  
  53. (add-hook 'before-init-hook 'sunpro-pending-delete-on)
  54.  
  55. (provide 'sunpro)
  56.  
  57.