|
@@ -2093,13 +2093,6 @@ this is test, does not rename files" |
|
|
(concat my-system-info |
|
|
(concat my-system-info |
|
|
(ad-get-arg 0))))) |
|
|
(ad-get-arg 0))))) |
|
|
|
|
|
|
|
|
;; (subrp (symbol-function 'read-from-minibuffer)) |
|
|
|
|
|
|
|
|
|
|
|
;; (defadvice completing-read (before info-in-prompt activate) |
|
|
|
|
|
;; (ad-set-arg 0 |
|
|
|
|
|
;; (concat my-system-info |
|
|
|
|
|
;; (ad-get-arg 0)))) |
|
|
|
|
|
|
|
|
|
|
|
(defun my-real-function-subr-p (function) |
|
|
(defun my-real-function-subr-p (function) |
|
|
"Return t if function is a built-in function even if it is advised." |
|
|
"Return t if function is a built-in function even if it is advised." |
|
|
(let* ((advised (and (symbolp function) |
|
|
(let* ((advised (and (symbolp function) |
|
|