[elpa] 239/287: Allow emacs 24.4 differences for backward-up-list

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit de510c286464becbe4c2ef685a2734f883ac8e7b
Author: Matthew L. Fidler <address@hidden>
Date:   Fri Jun 27 00:04:53 2014 -0500

    Allow emacs 24.4 differences for backward-up-list
---
 ergoemacs-functions.el |    2 +-
 ergoemacs-macros.el    |   12 ++++++++++++
 2 files changed, 13 insertions(+), 1 deletions(-)

diff --git a/ergoemacs-functions.el b/ergoemacs-functions.el
index c369557..c8600e1 100644
--- a/ergoemacs-functions.el
+++ b/ergoemacs-functions.el
@@ -809,7 +809,7 @@ the prefix arguments of `end-of-buffer',
   (let (p1 p2)
     (if (nth 3 (syntax-ppss))
         (progn
-          (backward-up-list 1 "ESCAPE-STRINGS" "NO-SYNTAX-CROSSING")
+          (ergoemacs-backward-up-list 1 "ESCAPE-STRINGS" "NO-SYNTAX-CROSSING")
           (setq p1 (point))
           (forward-sexp 1)
           (setq p2 (point))
diff --git a/ergoemacs-macros.el b/ergoemacs-macros.el
index 89738af..20ee71d 100644
--- a/ergoemacs-macros.el
+++ b/ergoemacs-macros.el
@@ -429,6 +429,18 @@ This was stole/modified from `c-save-buffer-state'"
             (buffer-modified-p)
             (set-buffer-modified-p nil)))))
 
+;;;###autoload
+
+(defmacro ergoemacs-backward-up-list (arg arg1 arg2)
+  "Allow the three argument list for emacs 24.4.
+
+See `backward-up-list' for more information on your emacs
+version's implementation of this function."
+  (cond
+   ((and (<= 24 emacs-major-version)
+         (<= 4 emacs-minor-version))
+    `(backward-up-list ,arg ,arg1 ,arg2))
+   (t `(backward-up-list ,arg))))
 
 (provide 'ergoemacs-macros)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;