[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 636dc37: Revert "Make describe-face also output the
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 636dc37: Revert "Make describe-face also output the version information" |
Date: |
Sun, 14 Jul 2019 12:38:49 -0400 (EDT) |
branch: master
commit 636dc37c70abf3c41261d035e06e2713070ce8cd
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Revert "Make describe-face also output the version information"
This reverts commit a7aae1473c1aed7758b550a23cda61ee17668e23.
The patch broke the build.
---
lisp/faces.el | 11 +----------
lisp/help-fns.el | 11 +++++------
2 files changed, 6 insertions(+), 16 deletions(-)
diff --git a/lisp/faces.el b/lisp/faces.el
index c3ef7dc..f9e8c6c 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -25,8 +25,6 @@
;;; Code:
-(require 'subr-x)
-
(defcustom term-file-prefix (purecopy "term/")
"If non-nil, Emacs startup performs terminal-specific initialization.
It does this by: (load (concat term-file-prefix (getenv \"TERM\")))
@@ -1418,8 +1416,6 @@ argument, prompt for a regular expression using
`read-regexp'."
(dolist (face (face-list))
(copy-face face face frame disp-frame)))))
-(declare-function describe-variable-custom-version-info "help-fns"
- (variable &optional type))
(defun describe-face (face &optional frame)
"Display the properties of face FACE on FRAME.
@@ -1432,7 +1428,6 @@ If FRAME is omitted or nil, use the selected frame."
(interactive (list (read-face-name "Describe face"
(or (face-at-point t) 'default)
t)))
- (require 'help-fns)
(let* ((attrs '((:family . "Family")
(:foundry . "Foundry")
(:width . "Width")
@@ -1529,11 +1524,7 @@ If FRAME is omitted or nil, use the selected frame."
(re-search-backward ": \\([^:]+\\)" nil t)
(help-xref-button 1 'help-face attr)))
(insert "\n")))))
- (terpri)
- (when-let ((version-info (describe-variable-custom-version-info
- f 'face)))
- (insert version-info))
- (terpri)))))))
+ (terpri)))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 0b5c547..39f701a 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -860,15 +860,14 @@ If ANY-SYMBOL is non-nil, don't insist the symbol be
bound."
(and (or any-symbol (boundp sym)) sym)))))
0)))
-(defun describe-variable-custom-version-info (variable &optional type)
+(defun describe-variable-custom-version-info (variable)
(let ((custom-version (get variable 'custom-version))
(cpv (get variable 'custom-package-version))
- (type (or type "variable"))
(output nil))
(if custom-version
(setq output
- (format "This %s was introduced, or its default value was
changed, in\nversion %s of Emacs.\n"
- type custom-version))
+ (format "This variable was introduced, or its default value was
changed, in\nversion %s of Emacs.\n"
+ custom-version))
(when cpv
(let* ((package (car-safe cpv))
(version (if (listp (cdr-safe cpv))
@@ -878,11 +877,11 @@ If ANY-SYMBOL is non-nil, don't insist the symbol be
bound."
(emacsv (cdr (assoc version pkg-versions))))
(if (and package version)
(setq output
- (format (concat "This %s was introduced, or its default
value was changed, in\nversion %s of the %s package"
+ (format (concat "This variable was introduced, or its
default value was changed, in\nversion %s of the %s package"
(if emacsv
(format " that is part of Emacs %s"
emacsv))
".\n")
- type version package))))))
+ version package))))))
output))
;;;###autoload
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 636dc37: Revert "Make describe-face also output the version information",
Lars Ingebrigtsen <=