Hello, world!
This is a naive replacement of "OpenOffice.org" with "LibreOffice" in
emacs.el in the "build" repository.
Will patches sent with git send-email be accepted? Also, this and any
future patches I send will of course be under LGPLv3+/MPL.
Thanks,
--
Tim Retout <t...@retout.co.uk>
>From 038c55d03c22f38ad4583dd6b7a698c2b3cd899f Mon Sep 17 00:00:00 2001
From: Tim Retout <t...@retout.co.uk>
Date: Sat, 30 Oct 2010 10:59:59 +0100
Subject: [PATCH] emacs.el: Replace all mentions of OOo with LO.
Signed-off-by: Tim Retout <t...@retout.co.uk>
---
emacs.el | 32 ++++++++++++++++----------------
1 files changed, 16 insertions(+), 16 deletions(-)
diff --git a/emacs.el b/emacs.el
index 76dfd55..497ade1 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1,34 +1,34 @@
-(defvar openoffice.org-path-regexp
- "openoffice"
- "Regexp that matches paths into your OpenOffice.org source tree.")
+(defvar libreoffice-path-regexp
+ "libreoffice"
+ "Regexp that matches paths into your LibreOffice source tree.")
-(defun openoffice.org-c-hook ()
- "Set C++ style and tab stopsto match OOo style."
- (when (string-match openoffice.org-path-regexp buffer-file-name)
- (message "Using OpenOffice.org code settings")
+(defun libreoffice-c-hook ()
+ "Set C++ style and tab stops to match LO style."
+ (when (string-match libreoffice-path-regexp buffer-file-name)
+ (message "Using LibreOffice code settings")
(setq tab-width 4)
(setq tab-stop-list '(4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72
76 80 84 88 92 96 100 104 108 112 116 120))
(c-set-style "stroustrup")
(set-variable 'c-basic-offset 4)
(set-variable 'indent-tabs-mode nil)
- (let ((env-file (openoffice.org-set-env-file buffer-file-name)))
+ (let ((env-file (libreoffice-set-env-file buffer-file-name)))
(setq compile-command (if (null env-file)
"dmake"
(concat ". "
(file-relative-name env-file)
"; dmake"))))))
-(add-hook 'c-mode-common-hook 'openoffice.org-c-hook)
+(add-hook 'c-mode-common-hook 'libreoffice-c-hook)
(add-to-list 'auto-mode-alist (cons "\\.sdi\\'" 'c++-mode))
(add-to-list 'auto-mode-alist (cons "\\.hrc\\'" 'c++-mode))
(add-to-list 'auto-mode-alist (cons "\\.src\\'" 'c++-mode))
;; stolen from vc-hooks.el (vc-find-root)
-(defun openoffice.org-src-dir (file)
- "Find the root of an OpenOffice.org source directory.
-Find the root of the OpenOffice.org source directory that
+(defun libreoffice-src-dir (file)
+ "Find the root of an LibreOffice source directory.
+Find the root of the LibreOffice source directory that
contains FILE, or nil if FILE is not in such a directory"
(let ((dir nil))
(while (not (or dir
@@ -39,11 +39,11 @@ contains FILE, or nil if FILE is not in such a directory"
(setq file (directory-file-name file))))
dir))
-(defun openoffice.org-set-env-file (file)
- "Find OOo *Env.Set.sh script.
+(defun libreoffice-set-env-file (file)
+ "Find LO *Env.Set.sh script.
Returns the name of the solar environment setter script for the
-OpenOffice.org source tree to which FILE belongs. Unix-only."
- (let* ((root (openoffice.org-src-dir file))
+LibreOffice source tree to which FILE belongs. Unix-only."
+ (let* ((root (libreoffice-src-dir file))
(files (and root
(file-expand-wildcards
(expand-file-name "*Env.Set.sh" root)))))
--
1.7.2.3
_______________________________________________
LibreOffice mailing list
LibreOffice@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice
