| 
					
				 | 
			
			
				@@ -7362,36 +7362,6 @@ the cache." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                  ;; returned non-nil). 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                  (last-match t) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                  continue-flag 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                 ;; Byte-compile FUNC making sure that it is as performant 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                 ;; as it could be. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                 (func (if (or (byte-code-function-p func) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                               (and (symbolp func) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                                    (subrp (symbol-function func))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                               (and (symbolp func) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                                    (fboundp 'native-comp-available-p) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                                    (native-comp-available-p) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                                    (fboundp 'subr-native-elisp-p) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                                    (subr-native-elisp-p (symbol-function func))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                               ;; FIXME: Working around bug 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                               ;; https://list.orgmode.org/87tuha62rq.fsf@localhost/T/#t 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                               ;; Byte-compilation in 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                               ;; `org-agenda-get-scheduled' call 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                               ;; somehow alters the FUNC result in 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                               ;; Emacs 26 and 27, but not in Emacs 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                               ;; >=28. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                               (version< emacs-version "29")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                           func 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                         (let ((warning-minimum-log-level :error) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                               (inhibit-message t)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                           (condition-case nil 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                               (if (and (fboundp 'native-comp-available-p) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                                        (fboundp 'native-compile) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                                        (native-comp-available-p)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                                   ;; Use native compilation to even better 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                                   ;; performance. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                                   (native-compile func) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                                 (byte-compile func)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                             (error func))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                  ;; Generic regexp to search next potential match.  If it 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                  ;; is a cons of (regexp . 'match-beg), we are 100% sure 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                  ;; that the match beginning is the existing element 
			 |