mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit de510c286464becbe4c2ef685a2734f883ac8e7b Author: Matthew L. Fidler <[email protected]> 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) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
