add perl-autocomplete, minor fixes

1 files changed, 10 insertions, 5 deletions

diff --git a/init.el b/init.el
index 997fae3..9838ddf 100755
--- a/init.el
+++ b/init.el
@@ -18,16 +18,17 @@
  '(calendar-week-start-day 1)
  '(case-fold-search t)
  '(column-number-mode t)
- '(confirm-kill-emacs (quote yes-or-no-p))
  '(cperl-close-paren-offset -4)
  '(cperl-continued-statement-offset 4)
+ '(cperl-font-lock t)
  '(cperl-indent-level 4)
  '(cperl-indent-parens-as-block t)
  '(cperl-under-as-char nil)
- '(cperl-font-lock t)
  '(current-language-environment "English")
  '(default-frame-alist (quote ((tool-bar-lines . 0) (menu-bar-lines . 0) (width . 80) (height . 25) (right-fringe) (left-fringe) (fullscreen . fullheight))))
- '(desktop-enable t nil (desktop))
+ '(desktop-load-locked-desktop t)
+ '(desktop-save t)
+ '(desktop-save-mode t)
  '(diary-date-forms (quote ((month "/" day "[^/0-9]") (month "/" day "/" year "[^0-9]") (monthname " *" day "[^,0-9]") (monthname " *" day ", *" year "[^0-9]") (dayname "\\W") (year "-" month "-" day "[^0-9]"))))
  '(ecb-cedet-url "http://belnet.dl.sourceforge.net/sourceforge/ecb/")
  '(ecb-download-url "http://belnet.dl.sourceforge.net/sourceforge/ecb/")
@@ -160,8 +161,6 @@
 ; I want auto-fill and fly-spell
 (add-hook 'rst-mode-hook (lambda ()
                            (progn
-                             (rst-text-mode-bindings)
-                             (rst-set-paragraph-separation)
                              (auto-fill-mode 1)
                              (flyspell-mode)
                              )))
@@ -185,6 +184,12 @@
 ; -------- other modes --------
 ; CPerl-mode instead of perl-mode
 (autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t)
+
+(add-hook 'cperl-mode-hook
+          (lambda ()
+            (require 'perl-completion)
+            (perl-completion-mode t)))
+
 ; I use references in my LaTeX files
 (add-hook 'latex-mode-hook 'turn-on-reftex)
 ; sometimes I edit POVRay files (mode from http://www.xahlee.org/3d/povray_emacs.html )