CVS update by aidan MODIFIED: packages/xemacs-packages/perl-modes ...
User: aidan
Date: 05/02/09 03:03:25
Modified: packages/xemacs-packages/perl-modes ChangeLog cperl-mode.el
Log:
Autoload cperl-perldoc and cperl-perldoc-at-point; bind them by default
within cperl-mode.
Revision Changes Path
1.18 +6 -0 XEmacs/packages/xemacs-packages/perl-modes/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/perl-modes/ChangeLog,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- ChangeLog 2004/08/13 16:38:42 1.17
+++ ChangeLog 2005/02/09 02:03:23 1.18
＠＠ -1,3 +1,9 ＠＠
+2005-02-09 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * cperl-mode.el: Autoload cperl-perldoc, cperl-perldoc-at-point.
+ * cperl-mode.el (cperl-mode-map):
+ Bind them to C-cC-hp, C-cC-hP, respectively.
+
2004-08-13 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 1.06 released.
1.7 +6 -0 XEmacs/packages/xemacs-packages/perl-modes/cperl-mode.el
Index: cperl-mode.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/perl-modes/cperl-mode.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- cperl-mode.el 2004/08/13 10:06:44 1.6
+++ cperl-mode.el 2005/02/09 02:03:23 1.7
＠＠ -2172,6 +2172,10 ＠＠
[(control c) (control h) v]))
(cperl-define-key "\C-c\C-hf" 'cperl-info-on-current-command
[(control c) (control h) f])
+ (cperl-define-key "\C-c\C-hp" 'cperl-perldoc
+ [(control c) (control h) p])
+ (cperl-define-key "\C-c\C-hP" 'cperl-perldoc-at-point
+ [(control c) (control h) P])
(cperl-define-key "\C-c\C-hv"
;;(concat (char-to-string help-char) "v") ; does not work
'cperl-get-help
＠＠ -8142,6 +8146,7 ＠＠
;;; Getting help on modules in C-h f ?
;;; This is a modified version of `man'.
;;; Need to teach it how to lookup functions
+;;;###autoload
(defun cperl-perldoc (word)
"Run `perldoc' on WORD."
(interactive
＠＠ -8173,6 +8178,7 ＠＠
(t
(Man-getpage-in-background word)))))
+;;;###autoload
(defun cperl-perldoc-at-point ()
"Run a `perldoc' on the word around point."
(interactive)