Re: hexlify-buffer warns "discards undo info; ok?" when no undo info is being kept

[Stefan Monnier]

Thanks, I've installed the patch below instead.


        Stefan


--- hexl.el     07 Dec 2006 21:33:08 -0500      1.110
+++ hexl.el     11 Jan 2007 11:20:25 -0500      
@@ -1,7 +1,7 @@
 ;;; hexl.el --- edit a file in a hex dump format using the hexl filter
 
 ;; Copyright (C) 1989, 1994, 1998, 2001, 2002, 2003, 2004,
-;;   2005, 2006 Free Software Foundation, Inc.
+;;   2005, 2006, 2007 Free Software Foundation, Inc.
 
 ;; Author: Keith Gabryelski <address@hidden>
 ;; Maintainer: FSF
@@ -706,10 +706,10 @@
   "Convert a binary buffer to hexl format.
 This discards the buffer's undo information."
   (interactive)
-  (and buffer-undo-list
+  (and (consp buffer-undo-list)
        (or (y-or-n-p "Converting to hexl format discards undo info; ok? ")
-          (error "Aborted")))
-  (setq buffer-undo-list nil)
+          (error "Aborted"))
+       (setq buffer-undo-list nil))
   ;; Don't decode text in the ASCII part of `hexl' program output.
   (let ((coding-system-for-read 'raw-text)
        (coding-system-for-write buffer-file-coding-system)
@@ -731,10 +731,10 @@
   "Convert a hexl format buffer to binary.
 This discards the buffer's undo information."
   (interactive)
-  (and buffer-undo-list
+  (and (consp buffer-undo-list)
        (or (y-or-n-p "Converting from hexl format discards undo info; ok? ")
-          (error "Aborted")))
-  (setq buffer-undo-list nil)
+          (error "Aborted"))
+       (setq buffer-undo-list nil))
   (let ((coding-system-for-write 'raw-text)
        (coding-system-for-read buffer-file-coding-system)
        (buffer-undo-list t))