From: Peter Kleiweg Date: Sat, 23 Feb 2013 22:06:45 +0000 (-0800) Subject: Update ps-mode.el from upstream X-Git-Tag: emacs-24.3.90~173^2~6^2~54 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ae3d73667b6b59480070b4e6b4f7802cacc3455;p=emacs.git Update ps-mode.el from upstream * lisp/progmodes/ps-mode.el (ps-mode-version): Bump to 1.1i. (ps-mode-octal-region): Use string-make-unibyte. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 02bfc7b7539..1897e48d715 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-02-23 Peter Kleiweg + + * progmodes/ps-mode.el (ps-mode-version): Bump to 1.1i. + (ps-mode-octal-region): Use string-make-unibyte. + 2013-02-23 Glenn Morris * emulation/viper-cmd.el (viper-submit-report): diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el index dcb3e667f7c..0f994a8422b 100644 --- a/lisp/progmodes/ps-mode.el +++ b/lisp/progmodes/ps-mode.el @@ -5,7 +5,7 @@ ;; Author: Peter Kleiweg ;; Maintainer: Peter Kleiweg ;; Created: 20 Aug 1997 -;; Version: 1.1h +;; Version: 1.1i ;; Keywords: PostScript, languages ;; Yoni Rabkin contacted the maintainer of this @@ -35,7 +35,7 @@ ;;; Code: -(defconst ps-mode-version "1.1h, 16 Jun 2005") +(defconst ps-mode-version "1.1i, 17 May 2008") (defconst ps-mode-maintainer-address "Peter Kleiweg , bug-gnu-emacs@gnu.org") @@ -806,7 +806,7 @@ Only one `%' is removed, and it has to be in the first column." (while (re-search-forward "[\200-\377]" (marker-position endm) t) (setq i (1+ i)) (backward-char) - (insert (format "\\%03o" (string-to-char (buffer-substring (point) (1+ (point)))))) + (insert (format "\\%03o" (string-to-char (string-make-unibyte (buffer-substring (point) (1+ (point))))))) (delete-char 1)) (message "%d change%s made" i (if (= i 1) "" "s")) (set-marker endm nil)))))