From 49b7e2ebeb18c92e1598a422919c75e2f8974c09 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Arthur=20Fayzrakhmanov=20=28=D0=90=D1=80=D1=82=D1=83=D1=80?= =?UTF-8?q?=20=D0=A4=D0=B0=D0=B9=D0=B7=D1=80=D0=B0=D1=85=D0=BC=D0=B0=D0=BD?= =?UTF-8?q?=D0=BE=D0=B2=29?= Date: Wed, 16 Mar 2016 01:10:29 +0500 Subject: [PATCH] Return removed names for backward compatibility Define removed functions as aliases and mark them as obsolete. --- haskell-cabal.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/haskell-cabal.el b/haskell-cabal.el index 7a2e2425e..13d3d89df 100644 --- a/haskell-cabal.el +++ b/haskell-cabal.el @@ -159,6 +159,14 @@ it from list if one of the following conditions are hold: (setq indent-tabs-mode nil) ) +(make-obsolete #'haskell-cabal-get-setting + #'haskell-cabal--get-field + "March 14, 2016") +(defalias #'haskell-cabal-get-setting #'haskell-cabal--get-field + "Try to read value of field with NAME from current buffer. +Obsolete function. Defined for backward compatibility. Use +`haskell-cabal--get-field' instead.") + (defun haskell-cabal--get-field (name) "Try to read value of field with NAME from current buffer." (save-excursion @@ -183,6 +191,15 @@ it from list if one of the following conditions are hold: (setq val (replace-match "" t t val)))) val))))) + +(make-obsolete #'haskell-cabal-guess-setting + #'haskell-cabal-get-field + "March 14, 2016") +(defalias #'haskell-cabal-guess-setting #'haskell-cabal-get-field + "Read the value of field with NAME from project's cabal file. +Obsolete function. Defined for backward compatibility. Use +`haskell-cabal-get-field' instead.") + ;;;###autoload (defun haskell-cabal-get-field (name) "Read the value of field with NAME from project's cabal file.