CVS update by michaels packages/xemacs-packages/eshell, em-unix.el ...

  User: michaels
  Date: 09/06/17 09:02:29

  Modified:    packages/xemacs-packages/eshell ChangeLog em-cmpl.el
                        em-unix.el
Log:
2009-06-12  It's me FKtPp ;)  <[email protected]>

	* em-cmpl.el (eshell-cmpl-man-function): Use #'manual-entry
	instead of #'man
	* em-unix.el (eshell/man): Use #'manual-entry instead of #'man

Revision  Changes    Path
1.44      +6 -0      XEmacs/packages/xemacs-packages/eshell/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/eshell/ChangeLog,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -p -r1.43 -r1.44
--- ChangeLog	2009/02/02 09:56:10	1.43
+++ ChangeLog	2009/06/17 07:02:25	1.44
@@ -1,3 +1,9 @@
+2009-06-12  It's me FKtPp ;)  <[email protected]>
+
+	* em-cmpl.el (eshell-cmpl-man-function): Use #'manual-entry
+	instead of #'man
+	* em-unix.el (eshell/man): Use #'manual-entry instead of #'man
+
 2009-02-02  Norbert Koch  <[email protected]>
 
 	* Makefile (VERSION): XEmacs package 1.17 released.



1.3       +3 -1      XEmacs/packages/xemacs-packages/eshell/em-cmpl.el

Index: em-cmpl.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/eshell/em-cmpl.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- em-cmpl.el	2008/08/27 21:26:30	1.2
+++ em-cmpl.el	2009/06/17 07:02:25	1.3
@@ -168,7 +168,9 @@ to writing a completion function."
   :type (get 'pcomplete-recexact 'custom-type)
   :group 'eshell-cmpl)
 
-(defcustom eshell-cmpl-man-function 'man
+(defcustom eshell-cmpl-man-function (if (featurep 'xemacs)
+                    #'manual-entry
+                      #'man)
   (documentation-property 'pcomplete-man-function
 			  'variable-documentation)
   :type (get 'pcomplete-man-function 'custom-type)



1.4       +4 -1      XEmacs/packages/xemacs-packages/eshell/em-unix.el

Index: em-unix.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/eshell/em-unix.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- em-unix.el	2008/08/27 21:26:32	1.3
+++ em-unix.el	2009/06/17 07:02:25	1.4
@@ -163,7 +163,10 @@ Otherwise, Emacs will attempt to use rsh
 
 (defun eshell/man (&rest args)
   "Invoke man, flattening the arguments appropriately."
-  (funcall 'man (apply 'eshell-flatten-and-stringify args)))
+  (funcall (if (featurep 'xemacs)
+           #'manual-entry
+         #'man)
+       (apply 'eshell-flatten-and-stringify args)))
 
 (put 'eshell/man 'eshell-no-numeric-conversions t)