User: viteno Date: 05/11/14 08:05:55 Modified: packages/xemacs-packages/edit-utils ChangeLog savehist.el Log: Sync savehist with upstream. Revision Changes Path 1.209 +2 -0 XEmacs/packages/xemacs-packages/edit-utils/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edit-utils/ChangeLog,v retrieving revision 1.208 retrieving revision 1.209 diff -u -p -r1.208 -r1.209 --- ChangeLog 2005/11/14 06:58:59 1.208 +++ ChangeLog 2005/11/14 07:05:54 1.209 ＠＠ -1,5 +1,7 ＠＠ 2005-11-14 Norbert Koch <viteno(a)xemacs.org&gt; + * savehist.el: Sync with upstream version 23. + * Makefile (VERSION): XEmacs package 2.28 released. 2005-11-02 Norbert Koch <viteno(a)xemacs.org&gt; 1.4 +8 -4 XEmacs/packages/xemacs-packages/edit-utils/savehist.el Index: savehist.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edit-utils/savehist.el,v retrieving revision 1.3 retrieving revision 1.4 diff -u -p -r1.3 -r1.4 --- savehist.el 2005/11/02 07:02:14 1.3 +++ savehist.el 2005/11/14 07:05:54 1.4 ＠＠ -4,7 +4,7 ＠＠ ;; Author: Hrvoje Niksic <hniksic(a)xemacs.org&gt; ;; Keywords: minibuffer -;; Version: 22 +;; Version: 23 ;; This file is part of GNU Emacs. ＠＠ -138,7 +138,8 ＠＠ save." ;; Mule. XEmacs prir to 21.5 had UTF-8 provided by an external ;; package which may not be loaded, which is why we check for version. (defvar savehist-coding-system (if (and (featurep 'xemacs) - (< emacs-major-version 21) (< emacs-minor-version 5)) + (<= emacs-major-version 21) + (< emacs-minor-version 5)) 'iso-2022-8 'utf-8) "The coding system savehist uses for saving the minibuffer history. Changing this value while Emacs is running is supported, but considered ＠＠ -361,8 +362,11 ＠＠ Does nothing if savehist-mode is off." (error nil)))))) (defun savehist-minibuffer-hook () - (add-to-list 'savehist-minibuffer-history-variables - minibuffer-history-variable)) + ;; XEmacs sets minibuffer-history-variable to t to mean "no history + ;; is being recorded". + (unless (eq minibuffer-history-variable t) + (add-to-list 'savehist-minibuffer-history-variables + minibuffer-history-variable))) (provide 'savehist)