comparison lisp/hexl.el @ 107617:c5f9e4613394

Merge from mainline.

107616:fa5ad3eee9f5

;;; 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, 2007, 2008, 2009 Free Software Foundation, Inc.

;; Author: Keith Gabryelski <[e-mail]>
;; Maintainer: FSF
;; Keywords: data

      (- character ?0)
    (error "Invalid octal digit `%c'" character)))

(defun hexl-printable-character (ch)
  "Return a displayable string for character CH."
  (format "%c" (if hexl-iso
		   (if (or (< ch 32) (and (>= ch 127) (< ch 160)))
		       46
		     ch)
		 (if (or (< ch 32) (>= ch 127))
		     46
		   ch))))

(defun hexl-insert-multibyte-char (ch num)
  "Insert a possibly multibyte character CH NUM times.

107617:c5f9e4613394

;;; 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, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.

;; Author: Keith Gabryelski <[e-mail]>
;; Maintainer: FSF
;; Keywords: data

      (- character ?0)
    (error "Invalid octal digit `%c'" character)))

(defun hexl-printable-character (ch)
  "Return a displayable string for character CH."
  (format "%c" (if (equal hexl-iso "")
		   (if (or (< ch 32) (>= ch 127))
		       46
		     ch)
		 (if (or (< ch 32) (and (>= ch 127) (< ch 160)))
		     46
		   ch))))

(defun hexl-insert-multibyte-char (ch num)
  "Insert a possibly multibyte character CH NUM times.