From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Drew Adams Newsgroups: gmane.emacs.bugs Subject: bug#18059: 24.3.92; defvar and special variables Date: Wed, 21 Feb 2018 09:11:33 -0800 (PST) Message-ID: <88a831b1-f2d4-4fe0-9c28-687f850d5c91@default> References: <87ha2c7lxy.fsf@web.de> <87mv0gbq33.fsf@users.sourceforge.net> <87y3k0bdm9.fsf@web.de> <87inb4bbse.fsf@users.sourceforge.net> <873727bkud.fsf@users.sourceforge.net> <87efloa000.fsf@users.sourceforge.net> <87fu5y53w5.fsf@gmail.com> <87371xlpmw.fsf@web.de> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: blaine.gmane.org 1519233156 16250 195.159.176.226 (21 Feb 2018 17:12:36 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Wed, 21 Feb 2018 17:12:36 +0000 (UTC) Cc: Michael Heerdegen , 18059@debbugs.gnu.org, Stefan Monnier To: Noam Postavsky Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Feb 21 18:12:31 2018 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1eoXwR-0003mC-Oy for geb-bug-gnu-emacs@m.gmane.org; Wed, 21 Feb 2018 18:12:27 +0100 Original-Received: from localhost ([::1]:33862 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eoXyU-0005Uv-2E for geb-bug-gnu-emacs@m.gmane.org; Wed, 21 Feb 2018 12:14:34 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:40875) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eoXw7-0003xn-Kr for bug-gnu-emacs@gnu.org; Wed, 21 Feb 2018 12:12:09 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eoXw2-0007as-KU for bug-gnu-emacs@gnu.org; Wed, 21 Feb 2018 12:12:07 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:46810) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1eoXw2-0007ab-98 for bug-gnu-emacs@gnu.org; Wed, 21 Feb 2018 12:12:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1eoXw2-0004qJ-0k for bug-gnu-emacs@gnu.org; Wed, 21 Feb 2018 12:12:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Drew Adams Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 21 Feb 2018 17:12:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 18059 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch Original-Received: via spool by 18059-submit@debbugs.gnu.org id=B18059.151923310418591 (code B ref 18059); Wed, 21 Feb 2018 17:12:01 +0000 Original-Received: (at 18059) by debbugs.gnu.org; 21 Feb 2018 17:11:44 +0000 Original-Received: from localhost ([127.0.0.1]:54707 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1eoXvk-0004pn-ER for submit@debbugs.gnu.org; Wed, 21 Feb 2018 12:11:44 -0500 Original-Received: from aserp2130.oracle.com ([141.146.126.79]:54876) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1eoXvi-0004pZ-DL for 18059@debbugs.gnu.org; Wed, 21 Feb 2018 12:11:43 -0500 Original-Received: from pps.filterd (aserp2130.oracle.com [127.0.0.1]) by aserp2130.oracle.com (8.16.0.22/8.16.0.22) with SMTP id w1LH985Z124515; Wed, 21 Feb 2018 17:11:36 GMT DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=oracle.com; h=mime-version : message-id : date : from : sender : to : cc : subject : references : in-reply-to : content-type : content-transfer-encoding; s=corp-2017-10-26; bh=X+yB3e23LRePDj3TzC5etve1/WzDWJyr4hVRQrdfI6k=; b=KxOoONqKCe61ym/1O9rcmmnLOnlvdZc/oLHC7OvrIZc+zm8bTHTE9GP2Df3b5AcBi67+ av+298SGA4ruswRwj/NR++ylNSqGzAWbHkqg8SSiyUfT/n34J4tfq2MMBpnMKwIbvp7s pEFn2ZohYU0jX9eWSUbmt+TOhAETDzhpNlUNG5Nz3PBTmg/h4W7vdRoY4UcYeJWJqd3h 6McHTovW69tco820DMCvjljnDuP5owfM4MjOLlXchZy2yHd6vw7448zKg3Jx+k7guOf+ vcVb91vGVBmyNshqVQqlYqz/dGKT/tVjHzjnRQRn9qDyqsR/eH35La94Y/QkHNZKB11z DA== Original-Received: from userv0021.oracle.com (userv0021.oracle.com [156.151.31.71]) by aserp2130.oracle.com with ESMTP id 2g9byggc7k-1 (version=TLSv1.2 cipher=ECDHE-RSA-AES256-GCM-SHA384 bits=256 verify=OK); Wed, 21 Feb 2018 17:11:36 +0000 Original-Received: from aserv0121.oracle.com (aserv0121.oracle.com [141.146.126.235]) by userv0021.oracle.com (8.14.4/8.14.4) with ESMTP id w1LHBY56010026 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-GCM-SHA384 bits=256 verify=FAIL); Wed, 21 Feb 2018 17:11:35 GMT Original-Received: from abhmp0005.oracle.com (abhmp0005.oracle.com [141.146.116.11]) by aserv0121.oracle.com (8.14.4/8.13.8) with ESMTP id w1LHBYFv005469; Wed, 21 Feb 2018 17:11:34 GMT In-Reply-To: X-Priority: 3 X-Mailer: Oracle Beehive Extensions for Outlook 2.0.1.9.1 (1003210) [OL 16.0.4654.0 (x86)] X-Proofpoint-Virus-Version: vendor=nai engine=5900 definitions=8811 signatures=668676 X-Proofpoint-Spam-Details: rule=notspam policy=default score=0 suspectscore=0 malwarescore=0 phishscore=0 bulkscore=0 spamscore=0 mlxscore=0 mlxlogscore=999 adultscore=0 classifier=spam adjust=0 reason=mlx scancount=1 engine=8.0.1-1711220000 definitions=main-1802210209 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:143561 Archived-At: > > (when (> emacs-major-version 24) > > (defvar foo 42 "The answer.")) > > > > (when (fboundp 'fooness) > > (let ((the_answer (fooness))) > > (defvar foo the_answer "The answer."))) >=20 > I meant real life examples. Do these count? (when (> emacs-major-version 24) (defvar bmkp-eww-history () "History for EWW bookmarks.")) (when (< emacs-major-version 23) (defvar bookmark-make-record-function 'bookmark-make-record-default "Function called with no arguments, to create a bookmark record. ...") (when (or (featurep 'bookmark+-lit) (and (fboundp 'diredp-highlight-autofiles-mode) (featurep 'highlight))) (defvar bmkp-bmenu-highlight-menu (make-sparse-keymap "Highlight") "`Highlight' submenu for menu-bar `Bookmark+' menu.") ...) (when (< emacs-major-version 21) (defvar custom-raised-buttons nil)) (when (fboundp 'dired-hide-details-mode) ; Emacs 24.4+ (defvar diredp-hide-details-last-state diredp-hide-details-initially-flag "Last `dired-hide-details-mode' value. ...") (defvar diredp-hide-details-toggled nil "Non-nil means you have already ...") ...) (when (fboundp 'epa-dired-do-encrypt) ; Emacs 23+ (defvar diredp-single-encryption-menu (make-sparse-keymap "Encryption"))) (when (require 'bookmark+ nil t) (defvar diredp-single-bookmarks-menu (make-sparse-keymap "Bookmark"))) (when (boundp 'Info-virtual-files) ; Emacs 23.2+ (defvar Info-indexed-file "*Indexed*" "Info file for virtual manual from ....") (defvar Info-indexed-nodes () "Alist of cached nodes with matching index entries.)) (defun icicle-cmd2-after-load-hexrgb () "..." (defvar icicle-named-colors () "Named colors.") ...) ;; The name changed during development of Emacs 23. ;; They aliased it for 23.1, but removed it for 23.2. ;; Use the new name and alias the old, but don't declare ;; old obsolete (let Emacs 23 do that.) ;; (when (and (boundp 'minibuffer-local-must-match-filename-map) =20 (fboundp 'defvaralias)) ; Emacs 22 (defvar minibuffer-local-filename-must-match-map minibuffer-local-must-match-filename-map "Local keymap for ....") (defvaralias 'minibuffer-local-must-match-filename-map 'minibuffer-local-filename-must-match-map)) (eval-after-load "crm" '(progn ... (defvar icicle-ORIG-crm-local-completion-map crm-local-completion-map "Original CRM completion map.") ...)) (defun icicle-define-icicle-maps () "..." ... (unless icicle-menu-map ... (cond ((not icicle-touche-pas-aux-menus-flag) (defvar icicle-options-menu-map (make-sparse-keymap) "`Options' > `Icicles' submenu.") ...) (t (defvar icicle-options-menu-map (make-sparse-keymap) "`Icicles' > `Icicles Options' submenu.") ...)) ... (defvar icicle-options-toggle-menu-map (make-sparse-keymap) "`Toggle' submenu of Icicles options menu.") ... (defvar icicle-options-choose-menu-map (make-sparse-keymap) "`Choose' submenu of Icicles options menu.") ... ; LOTS more )) (when (> emacs-major-version 23) (defvar icicle-file-name-completion-table (completion-table-in-turn #'icicle-completion--embedded-envvar-table #'completion-file-name-table) "Completion table used for file-name completion.")) (when (require 'kmacro nil t) ; Emacs 22+ (defvar icicle-kmacro-alist nil "Alist with elements ....") ...) (when (and (fboundp 'read-char-by-name) ; Emacs 23-25 (< emacs-major-version 26)) (defvar icicle-read-char-history () "...")) (when (require 'kmacro nil t); Emacs 22+ (defvar icicle-saved-kmacro-ring-max kmacro-ring-max "Saved ....")) (when (> emacs-major-version 23) ; Emacs 24+ (unless (boundp 'isearch-lax-whitespace) ; Emacs 24.1, 24.2. (defvar isearch-lax-whitespace t "...") (defvar isearch-regexp-lax-whitespace nil "...")) ...) ...) (when (< emacs-major-version 24) (defvar isearch-face 'isearch "Face used to ....")) (when (or (> emacs-major-version 24) ; Emacs 24.4+ (and (=3D emacs-major-version 24) (> emacs-minor-version 3))) ... (defvar isearchp-lazy-regexp-level-overlays nil "Overlays used to ....") ... (defvar isearchp-filter-map nil "Keymap ....") ... (defvar isearchp-regexp-level-overlays nil "Overlays used to ....") (defvar isearchp-ffap-max-region-size 1024 ; See bug #25243. "Max size of active region used to ....") ... ; Plenty more ) (unless (boundp 'isearch-update-post-hook) (defvar isearch-update-post-hook () "Function(s) ....")) (when (boundp 'isearch-lazy-highlight) ; Emacs 22+ (defvar isearchp-lazy-highlight-face 'lazy-highlight "Face ....") ...) (when (or (featurep 'doremi-frm) (featurep 'doremi-cmd)) (defvar menu-bar-doremi-menu (make-sparse-keymap "Do Re Mi")) ...) (when (or (featurep 'frame-cmds) (featurep 'fit-frame)) (defvar menu-bar-frames-menu (make-sparse-keymap "Frames")) ...) (unless (< emacs-major-version 22) (defvar menu-bar-i-search-menu (make-sparse-keymap "Incremental Search")) ...) (when (boundp 'pre-redisplay-function) ; Emacs 24.4+ ... (defvar mlw-pre-redisplay-selected-window nil "Window selected before redisplay.") ... (defvar mlw-orig-mode-line-buf-id (default-value 'mode-line-buffer-identification) "Original default value of ....") ...) (when (featurep 'xemacs) ;; XEmacs which has no built-in minibuffer history truncation. (defvar history-length 100)) And plenty, plenty more. Not to mention lots of vacuous defvars to quiet the byte-compiler: (unless (> emacs-major-version 22) (defvar display-buffer-reuse-frames))