Add Perl emacs formatting macros to src/tools/editors/emacs.samples.

Peter Eisentraut

diff --git a/src/tools/editors/emacs.samples b/src/tools/editors/emacs.samples
index d9cfa2ffd88e52a2c2633d0c91e38bffacf6c999..c8d8d07a20b640269fbb0d605b9f46a23538e546 100644 (file)
--- a/src/tools/editors/emacs.samples
+++ b/src/tools/editors/emacs.samples
@@ -12,6 +12,8 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+;;; Mode for C files to match src/tools/pgindent/pgindent formatting
+
 ;;; This set is known to work with old versions of emacs
 
 (setq auto-mode-alist
@@ -80,6 +82,26 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+;;; Mode for Perl files to match src/tools/pgindent/perltidyrc formatting
+
+(defun pgsql-perl-style ()
+  "Perl style adjusted for PostgreSQL project"
+  (interactive)
+  (setq tab-width 4)
+  (setq perl-indent-level 4)
+  (setq perl-continued-statement-offset 4)
+  (setq perl-continued-brace-offset 4)
+  (setq perl-brace-offset 0)
+  (setq perl-brace-imaginary-offset 0)
+  (setq perl-label-offset -2))
+
+(add-hook 'perl-mode-hook
+           (lambda ()
+             (if (string-match "postgresql" buffer-file-name)
+                 (pgsql-perl-style))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
 ;;; To work on the documentation, the following (or a variant, as above)
 ;;; can be helpful.