+2007-11-27 Glenn Morris <rgm@gnu.org>
+
+ * eshell/eshell.el (eshell-report-bug): Add version number of
+ obsolescence.
+
+ * ediff-diff.el, ediff-help.el, ediff-merg.el, ediff-mult.el,
+ ediff-ptch.el, ediff-util.el, ediff-vers.el, ediff-wind.el, ediff.el:
+ Load ediff-*.el files silently.
+
+ * ediff.el: Load dired silently. Don't load info, pcl-cvs when
+ compiling.
+ (Info-goto-node): Declare as a function.
+
+ * ediff-init.el: Don't load ange-ftp when compiling.
+ * ediff-util.el: Don't load reporter when compiling.
+
+ * ediff-wind.el (ediff-display-pixel-width)
+ (ediff-display-pixel-height):
+ * generic-x.el (ini-generic-mode):
+ * ps-print.el (ps-mule-encode-header-string, ps-mule-begin-page)
+ (ps-mule-prepare-ascii-font, ps-mule-set-ascii-font)
+ (ps-mule-initialize, ps-mule-begin-job):
+ * calendar/cal-bahai.el (add-to-diary-list, diary-name-pattern)
+ (mark-calendar-days-named):
+ * calendar/cal-hebrew.el (holiday-filter-visible-calendar)
+ (add-to-diary-list, diary-name-pattern)
+ (mark-calendar-days-named):
+ * calendar/cal-islam.el (add-to-diary-list, diary-name-pattern)
+ (mark-calendar-days-named):
+ * calendar/cal-x.el (make-fancy-diary-buffer):
+ * calendar/holidays.el (calendar-absolute-from-julian):
+ * calendar/todo-mode.el (calendar-current-date):
+ Declare as functions.
+
+ * calendar/calendar.el (nongregorian-diary-listing-hook): Doc fix.
+ (Info-find-emacs-command-nodes, Info-find-node): Declare as functions.
+
+ * ffap.el (ffap-bug, ffap-submit-bug): Redefine as obsolete
+ aliases for report-emacs-bug.
+ (gnus-summary-select-article, gnus-configure-windows): Declare as
+ functions.
+
+ * pgg-parse.el (pgg-parse-24, pgg-parse-crc24-string): Declare for
+ compiler.
+
+ * pgg.el (pgg-clear-string): Declare as a function.
+ (pgg-run-at-time-1): Wrap whole definition in (featurep 'xemacs) test.
+ (pgg-run-at-time, pgg-cancel-timer): Move definitions before use.
+
+ * emacs-lisp/check-declare.el (check-declare-locate):
+ Handle compressed files.
+ (check-declare-verify): Handle define-generic-mode,
+ define-global(ized)-minor-mode, define-obsolete-function-alias.
+
2007-11-27 Jay Belanger <jay.p.belanger@gmail.com>
* calc-menu.el (calc-modes-menu): Add normal and incomplete
2007-11-26 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/lisp.el (end-of-defun): Restructure so that
- end-of-defun-function is called consistently, even for negative arguments.
+ end-of-defun-function is called consistently, even for negative
+ arguments.
(end-of-defun-function): Default to forward-sexp.
2007-11-26 Juanma Barranquero <lekktu@gmail.com>
;;; @ utility functions
;;;
+(eval-when-compile
+ (unless (featurep 'xemacs)
+ (defalias 'pgg-run-at-time 'run-at-time)
+ (defalias 'pgg-cancel-timer 'cancel-timer))
+
+ (when (featurep 'xemacs)
+ (defmacro pgg-run-at-time-1 (time repeat function args)
+ (if (condition-case nil
+ (let ((delete-itimer 'delete-itimer)
+ (itimer-driver-start 'itimer-driver-start)
+ (itimer-value 'itimer-value)
+ (start-itimer 'start-itimer))
+ (unless (or (symbol-value 'itimer-process)
+ (symbol-value 'itimer-timer))
+ (funcall itimer-driver-start))
+ ;; Check whether there is a bug to which the difference of
+ ;; the present time and the time when the itimer driver was
+ ;; woken up is subtracted from the initial itimer value.
+ (let* ((inhibit-quit t)
+ (ctime (current-time))
+ (itimer-timer-last-wakeup
+ (prog1
+ ctime
+ (setcar ctime (1- (car ctime)))))
+ (itimer-list nil)
+ (itimer (funcall start-itimer "pgg-run-at-time"
+ 'ignore 5)))
+ (sleep-for 0.1) ;; Accept the timeout interrupt.
+ (prog1
+ (> (funcall itimer-value itimer) 0)
+ (funcall delete-itimer itimer))))
+ (error nil))
+ `(let ((time ,time))
+ (apply #'start-itimer "pgg-run-at-time"
+ ,function (if time (max time 1e-9) 1e-9)
+ ,repeat nil t ,args)))
+ `(let ((time ,time)
+ (itimers (list nil)))
+ (setcar
+ itimers
+ (apply #'start-itimer "pgg-run-at-time"
+ (lambda (itimers repeat function &rest args)
+ (let ((itimer (car itimers)))
+ (if repeat
+ (progn
+ (set-itimer-function
+ itimer
+ (lambda (itimer repeat function &rest args)
+ (set-itimer-restart itimer repeat)
+ (set-itimer-function itimer function)
+ (set-itimer-function-arguments itimer args)
+ (apply function args)))
+ (set-itimer-function-arguments
+ itimer
+ (append (list itimer repeat function) args)))
+ (set-itimer-function
+ itimer
+ (lambda (itimer function &rest args)
+ (delete-itimer itimer)
+ (apply function args)))
+ (set-itimer-function-arguments
+ itimer
+ (append (list itimer function) args)))))
+ 1e-9 (if time (max time 1e-9) 1e-9)
+ nil t itimers ,repeat ,function ,args))))
+
+ (defun pgg-run-at-time (time repeat function &rest args)
+ "Emulating function run as `run-at-time'.
+TIME should be nil meaning now, or a number of seconds from now.
+Return an itimer object which can be used in either `delete-itimer'
+or `cancel-timer'."
+ (pgg-run-at-time-1 time repeat function args))
+ (defun pgg-cancel-timer (timer)
+ "Emulate cancel-timer for xemacs."
+ (let ((delete-itimer 'delete-itimer))
+ (funcall delete-itimer timer)))
+ ))
+
(defun pgg-invoke (func scheme &rest args)
(progn
(require (intern (format "pgg-%s" scheme)))
(defun pgg-clear-string (string)
(fillarray string ?_)))
+(declare-function pgg-clear-string "pgg" (string))
+
(defun pgg-remove-passphrase-from-cache (key &optional notruncate)
"Omit passphrase associated with KEY in time-limited passphrase cache.
(pgg-cancel-timer old-timer)
(unintern interned-timer-key pgg-pending-timers))))
-(eval-when-compile
- (defmacro pgg-run-at-time-1 (time repeat function args)
- (when (featurep 'xemacs)
- (if (condition-case nil
- (let ((delete-itimer 'delete-itimer)
- (itimer-driver-start 'itimer-driver-start)
- (itimer-value 'itimer-value)
- (start-itimer 'start-itimer))
- (unless (or (symbol-value 'itimer-process)
- (symbol-value 'itimer-timer))
- (funcall itimer-driver-start))
- ;; Check whether there is a bug to which the difference of
- ;; the present time and the time when the itimer driver was
- ;; woken up is subtracted from the initial itimer value.
- (let* ((inhibit-quit t)
- (ctime (current-time))
- (itimer-timer-last-wakeup
- (prog1
- ctime
- (setcar ctime (1- (car ctime)))))
- (itimer-list nil)
- (itimer (funcall start-itimer "pgg-run-at-time"
- 'ignore 5)))
- (sleep-for 0.1) ;; Accept the timeout interrupt.
- (prog1
- (> (funcall itimer-value itimer) 0)
- (funcall delete-itimer itimer))))
- (error nil))
- `(let ((time ,time))
- (apply #'start-itimer "pgg-run-at-time"
- ,function (if time (max time 1e-9) 1e-9)
- ,repeat nil t ,args)))
- `(let ((time ,time)
- (itimers (list nil)))
- (setcar
- itimers
- (apply #'start-itimer "pgg-run-at-time"
- (lambda (itimers repeat function &rest args)
- (let ((itimer (car itimers)))
- (if repeat
- (progn
- (set-itimer-function
- itimer
- (lambda (itimer repeat function &rest args)
- (set-itimer-restart itimer repeat)
- (set-itimer-function itimer function)
- (set-itimer-function-arguments itimer args)
- (apply function args)))
- (set-itimer-function-arguments
- itimer
- (append (list itimer repeat function) args)))
- (set-itimer-function
- itimer
- (lambda (itimer function &rest args)
- (delete-itimer itimer)
- (apply function args)))
- (set-itimer-function-arguments
- itimer
- (append (list itimer function) args)))))
- 1e-9 (if time (max time 1e-9) 1e-9)
- nil t itimers ,repeat ,function ,args))))))
-
-(eval-and-compile
- (if (featurep 'xemacs)
- (progn
- (defun pgg-run-at-time (time repeat function &rest args)
- "Emulating function run as `run-at-time'.
-TIME should be nil meaning now, or a number of seconds from now.
-Return an itimer object which can be used in either `delete-itimer'
-or `cancel-timer'."
- (pgg-run-at-time-1 time repeat function args))
- (defun pgg-cancel-timer (timer)
- "Emulate cancel-timer for xemacs."
- (let ((delete-itimer 'delete-itimer))
- (funcall delete-itimer timer)))
- )
- (defalias 'pgg-run-at-time 'run-at-time)
- (defalias 'pgg-cancel-timer 'cancel-timer)))
-
(defmacro pgg-convert-lbt-region (start end lbt)
`(let ((pgg-conversion-end (set-marker (make-marker) ,end)))
(goto-char ,start)
projects / emacs.git / commitdiff