From 0bc859b8a0599d0107f6b60a3cbed66bf8ff5849 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Tue, 22 Jan 2008 21:24:56 +0000 Subject: Clean --- lib/unicode-chars.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'lib') diff --git a/lib/unicode-chars.el b/lib/unicode-chars.el index c60927f5..5825e93b 100644 --- a/lib/unicode-chars.el +++ b/lib/unicode-chars.el @@ -1,6 +1,9 @@ -;;; unicode-chars.el --- table of Unicode characters - +;; unicode-chars.el --- table of Unicode characters +;; +;; Author: David Aspinall +;; ;; Adapted from Norman Walsh's unichars.el (iso8879 names removed) +;; (defvar unicode-chars.el '(;Unicode name Codept @@ -5041,8 +5044,10 @@ ;; taken from xmlunicode.el, also by Norman Walsh. ;; Modified a bit by me to use its own help-style buffer -(defun x-symbol-list-unicode-characters () - "Insert each Unicode character into a buffer. Let's you see which characters are available for literal display in your emacs font." +(defun unicode-chars-list-chars () + "Insert each Unicode character into a buffer. +Lets you see which characters are available for literal display +in your emacs font." (interactive) (pop-to-buffer "*x-symbol-unicode*") (let ((chars x-symbol-unicode-character-list) -- cgit v1.2.3