From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Eduardo Ochs Newsgroups: gmane.emacs.help Subject: Re: Why do I find ^L in elisp code? Date: Sat, 22 May 2021 14:02:33 -0300 Message-ID: References: Mime-Version: 1.0 Content-Type: text/plain; charset="UTF-8" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="31948"; mail-complaints-to="usenet@ciao.gmane.io" Cc: "help-gnu-emacs@gnu.org" To: Christopher Dimech Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Sat May 22 19:03:17 2021 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1lkV1w-00084b-V0 for geh-help-gnu-emacs@m.gmane-mx.org; Sat, 22 May 2021 19:03:16 +0200 Original-Received: from localhost ([::1]:48012 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lkV1w-0000VY-1A for geh-help-gnu-emacs@m.gmane-mx.org; Sat, 22 May 2021 13:03:16 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:34456) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lkV1X-0000VP-Ls for help-gnu-emacs@gnu.org; Sat, 22 May 2021 13:02:51 -0400 Original-Received: from mail-pj1-x102f.google.com ([2607:f8b0:4864:20::102f]:53911) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1lkV1U-0002ip-1K for help-gnu-emacs@gnu.org; Sat, 22 May 2021 13:02:51 -0400 Original-Received: by mail-pj1-x102f.google.com with SMTP id ot16so10622608pjb.3 for ; Sat, 22 May 2021 10:02:47 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:references:in-reply-to:from:date:message-id:subject:to :cc; bh=lwBxsXqjEes5358/bwQKH1jUjRoBlx8iVqv3s49ljEs=; b=vhMt6Q7Q3sZHfUd7iYUS9q50aFNR4aIeMP7DBXDmJ4KZ4DhNe9gEDy8YYsYU8kugY5 YpQ9bJR2MHziIU79YtGhP0tnHi66MLYfkF6fZDX+FaX40HAblO0sdUdt16T9EfueC7Bi lDzqOcx8xeHsfK2nA71FnwUF7OaBDJqdZ8Abi/9SitZEM+V07qW8IvPXwJPJFlUSv2mm DYgu7fERg31AdHbt/gE1j1LOxr8XFqFF5H8DNWy3fG0TT/EYqEDlJTUOQUPygCYOhNxq J2H6oBkLNbSVbUM8z7/2/NrmaN2luqvXQJ0jhfO1n4rNEJaXNmitYLtLFgbvg66wY6Gn 2ogQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:references:in-reply-to:from:date :message-id:subject:to:cc; bh=lwBxsXqjEes5358/bwQKH1jUjRoBlx8iVqv3s49ljEs=; b=chPnm/CUy9So4utn+B5bmdSsZFteQHwOcpuJytczBAZZDpw8z6OicP+3LAc2hpxdF3 w7ECEGB6fUJSokcX3uC5uJBsRlaLgOSP5CDg29B34ZB4Yoy9z6BlYOSrBrEKGTsgzwlJ sdhUk/odOLhpSUJzRbB6xKo1t624apflTd5/H8l35JYQxl03OIErxrvKUdr09ZLXy2qj C0auIOObdTNIXuMfGmGdL62t4GJ5KmdojVH54sAHhlTTXd4HBnGtZXzilSqv5X3P8T44 E6/w51a4098pMo4jSbSKbL3DUfbVm7hdxf0pJsmzRzlPLBkKdLwDTKQJbUeGkDwnbh5O n18w== X-Gm-Message-State: AOAM532nTdt4j456m1lPd9+R1ivybwPKnUG24iLbgrPCJ3j3hjPqWUi6 iteCd0xRUglm56G1S4Rtog+D0Kn2Srne6OBPKTo= X-Google-Smtp-Source: ABdhPJzBcg7QVqEXWJlN+GAE2Sid96doaUUb7A9GvFMRBxnUsK1TFbtpILyC+uAnxym+cdae93oA8jjWXLWydrrlCg0= X-Received: by 2002:a17:90a:a613:: with SMTP id c19mr16602711pjq.117.1621702965761; Sat, 22 May 2021 10:02:45 -0700 (PDT) In-Reply-To: Received-SPF: pass client-ip=2607:f8b0:4864:20::102f; envelope-from=eduardoochs@gmail.com; helo=mail-pj1-x102f.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.io gmane.emacs.help:130071 Archived-At: Hi Christopher, On Sat, 22 May 2021 at 12:48, Christopher Dimech wrote: > > Is it still useful in new code? > > The Form Feed is hard to type. Most text editors do not provide easy ways to type it. > Could emacs cease using invisible glyphs as they could be are confusing and hard to read > and type? Sometimes I see an ASCII art box. > > Regards > Christopher This is what I use to make the formfeed and a few other special characters be displayed as colored glyphs (and stand out): ;; Screenshot: ;; http://angg.twu.net/glyphs/eev-glyphs.el.png ;; The code below was mostly taken from: ;; http://angg.twu.net/eev-current/eepitch.el.html#glyphs ;; http://angg.twu.net/eev-current/eepitch.el (defface eev-glyph-face-bluebg '((t (:background "blue"))) "Face used for the glyph for backspace (char 8; a solid blue box).") (defface eev-glyph-face-yellow-on-red '((t (:foreground "yellow" :background "red"))) "Face used for the formfeed glyph (char 12).") (defface eev-glyph-face-blue '((t (:foreground "blue"))) "Face used for the glyph for CR (char 13).") (defface eepitch-star-face '((t (:foreground "red"))) "Face used for the red star glyph (char 15).") (defun eepitch-set-glyph0 (pos &optional char face) "See: (find-eepitch-intro \"glyph\")" (aset standard-display-table pos (if char (vector (make-glyph-code char face))))) (defun eepitch-set-glyph (pos &optional char face) "See: (find-eepitch-intro \"glyph\") and: (find-anchors-intro \"glyphs\") This is the high-level version of `eepitch-set-glyph0', with a hack to make it work similarly in unibyte and multibyte buffers." (eepitch-set-glyph0 pos char face) (if (<= 128 pos) (eepitch-set-glyph0 (make-char 'eight-bit pos) char face))) (if (not standard-display-table) (setq standard-display-table (make-display-table))) (eepitch-set-glyph 8 32 'eev-glyph-face-bluebg) (eepitch-set-glyph 12 ?L 'eev-glyph-face-yellow-on-red) (eepitch-set-glyph 13 ?M 'eev-glyph-face-blue) (eepitch-set-glyph 15 ?* 'eepitch-star-face) ;; Test: (insert "\n" 8 12 13 15) ;; Cheers, ;; Eduardo Ochs =) ;; http://angg.twu.net/#eev