Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
xemacs
bbdb
Commits
4599541ebe35
Commit
a0db8de0
authored
Jan 04, 2021
by
Henry S Thompson
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
override broken-in-XEmacs defn of bbdb-file-coding-system
parent
d52f24143ff6
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
27 additions
and
0 deletions
+27
-0
ChangeLog
ChangeLog
+6
-0
lisp/bbdb-xemacs.el
lisp/bbdb-xemacs.el
+21
-0
No files found.
ChangeLog
View file @
4599541e
2021-01-04 root <ht@home.hst.name>
* lisp/bbdb-xemacs.el: (bbdb-file-coding-system): Replaced Emacs-specifics
The version in bbdb.el always fails in XEmacs
2014-05-15 Norbert Koch <viteno@xemacs.org>
* Makefile (VERSION): XEmacs package 1.34 released.
...
...
lisp/bbdb-xemacs.el
View file @
4599541e
...
...
@@ -110,4 +110,25 @@ They are stored in `sound-alist' as touchtone0 to touchtone11."
(
featurep
'native-sound
))
(
bbdb-load-touchtones
))
;;; HST rewrote this removing the works-in-Emacs-only coding-system-p
;;; and the Emacs-preferred utf-8-emacs which
;;; is not defined in XEmacs -- there may well be a better way...
(
defconst
bbdb-file-coding-system
;; Note that in XEmacs, coding-system-p is _not_ right, it checks
;; for the coding-system struct...
(
if
(
fboundp
'find-coding-system
)
(
let
((
utf-8
(
or
(
cdr
(
assq
system-type
'
((
linux
.
utf-8-unix
)
(
cygwin32
.
utf-8-unix
)
(
cygwin64
.
utf-8-unix
)
(
windows-nt
.
utf-8-dos
))))
'utf-8
)))
(
cond
((
find-coding-system
utf-8
)
utf-8
)
;; (t 'iso-2022-7bit) -- bad idea, loses idempotence for e.g. Chinese
(
t
'iso-2022-8
)
; hope this is better, not tested
)))
"Coding system used for reading and writing `bbdb-file'.
This should not be changed by users."
)
(
provide
'bbdb-xemacs
)
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment