emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 77907b2 03/11: Remove some compat code from prolog.el


From: Lars Ingebrigtsen
Subject: master 77907b2 03/11: Remove some compat code from prolog.el
Date: Wed, 12 Aug 2020 12:59:53 -0400 (EDT)

branch: master
commit 77907b29e01113ddc66b7880e3ceae441b7289b5
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Remove some compat code from prolog.el
    
    * lisp/progmodes/prolog.el (match-string): Remove alias to
    function that always exists.
---
 lisp/progmodes/prolog.el | 14 --------------
 1 file changed, 14 deletions(-)

diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index bdb98a4..a209d21 100644
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -2748,20 +2748,6 @@ When called with prefix argument ARG, disable zipping 
instead."
                   (nth 1 state)))
         ))))
 
-;; For backward compatibility. Stolen from custom.el.
-(or (fboundp 'match-string)
-    ;; Introduced in Emacs 19.29.
-    (defun match-string (num &optional string)
-  "Return string of text matched by last search.
-NUM specifies which parenthesized expression in the last regexp.
- Value is nil if NUMth pair didn't match, or there were less than NUM pairs.
-Zero means the entire text matched by the whole regexp or whole string.
-STRING should be given if the last search was by `string-match' on STRING."
-  (if (match-beginning num)
-      (if string
-          (substring string (match-beginning num) (match-end num))
-        (buffer-substring (match-beginning num) (match-end num))))))
-
 (defun prolog-pred-start ()
   "Return the starting point of the first clause of the current predicate."
   ;; FIXME: Use SMIE.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]